2 # ----------------------------------------------------------------------
3 # Utility script for registring users on a jabber server.
4 # ----------------------------------------------------------------------
9 print "\nperl $0 <server> <port> <username> <password> \n\n";
13 my $server = $ARGV[0];
15 my $username = $ARGV[2];
16 my $password = $ARGV[3];
17 my $resource = "test_${server}_$$";
19 my $connection = Net::Jabber::Client->new;
21 my $status = $connection->Connect(hostname=>$server, port=>$port);
23 my @stat = $connection->RegisterSend(
25 username => $username,
26 password => $password );
29 print "Register results : @stat\n";
32 if (!defined($status)) {
33 print "ERROR: Jabber server is down or connection was not allowed.\n";
38 my @result = $connection->AuthSend(
39 username=>$username, password=>$password, resource=>$resource);
41 if ($result[0] ne "ok") {
42 print "ERROR: Authorization failed: $result[0] - $result[1]\n";
46 print "Logged in OK to $server:$port\nRegistration succeeded for $username\@$server!\n";
48 $connection->Disconnect();