1 #!/usr/bin/perl
  2
  3 use strict;
  4
  5 use Net::XMPP;
  6
  7 my $server = "maszyna.pl";
  8 my $botUserName = "ujskrypty";
  9 my $botPasswd = "botbokot";
 10 my $adminJid = $ARGV[0];
 11
 12 my $client = new Net::XMPP::Client();
 13
 14 $client->Execute(
 15     hostname=>"$server",
 16     username=>"$botUserName",
 17     password=>"$botPasswd",
 18     resource=>'notifier',
 19     tls=>1,
 20     );
 21
 22 $client->MessageSend(
 23     to=>"$adminJid",
 24     type=>'chat',
 25     body=>'dupa dupa'
 26     );
 27
 28     $client->Process(10);
 29     $client->Di