Skip Menu |
 

This queue is for tickets about the Jabber-SimpleSend CPAN distribution.

Report information
The Basics
Id: 47190
Status: new
Priority: 0/
Queue: Jabber-SimpleSend

People
Owner: Nobody in particular
Requestors: demofreak+cpan [...] demofreak.de
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: Adding TLS and debuglevel option
Download (untitled) / with headers
text/plain 1.1k
Apply this patch to have TLS and debug log available: ------------------------------------------------------------------ --- SimpleSend.pm.bak 2009-02-15 23:54:07.000000000 +0100 +++ SimpleSend.pm 2009-06-20 18:58:01.000000000 +0200 @@ -38,9 +38,10 @@ croak "The user argument doesnt look like a valid JID." unless (length($hostname)); - my $jabber_connection = Net::Jabber::Client->new(); + my $jabber_connection = Net::Jabber::Client->new(debuglevel => defined($arguments->{debuglevel}) ? $arguments->{debuglevel} : -1); $jabber_connection->Connect( 'hostname' => $hostname, - 'port' => 5222 + 'port' => 5222, + 'tls' => $arguments->{tls} ); --------------------------------------------------------------- Use it in your script like this: send_jabber_message({ user => 'demofreak@somehost.tld', password => '*********', tls => 1, debuglevel => 1, target => 'someuser@somehost.tld', subject => 'Test', message => "TroetGeschnetz" });


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.