| Subject: | Adding TLS and debuglevel option |
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"
});