#!/usr/bin/perl -w use Socket; ($server, $user, $password) = @ARGV; if (( not defined( $server )) || (not defined( $user )) || (not defined( $password )) ) { print "USAGE: jmessaeg.pl \n"; exit 0; } #connect to the server: $iaddr = inet_aton($server) or die "no host: $server"; $paddr = sockaddr_in( 5222, $iaddr ); $proto = getprotobyname('tcp'); socket( SOCK, PF_INET, SOCK_STREAM, $proto) or die "socket: $!"; connect( SOCK, $paddr ); $sendit = "\r\n"; send SOCK, $sendit, 0; while( recv SOCK, $line, 10000, MSG_PEEK) { if( ($line =~ //m) ) { #opening line, kill it off the stream recv SOCK, $line, 10000, 0; #perform login my $sendit = "$user$passwordPerlScript\r\n"; send SOCK, $sendit, 0; } elsif ( ($line =~ / ); print "Body:"; chop( $body = ); recv SOCK, $line, 10000, 0; #ask for agents my $sendit = "$body\r\n"; send SOCK, $sendit ,0; #message sent, logoff print "Message Sent\n"; exit; } elsif ( ($line =~ /error.+(.+)<\/error>/m) ) { #some sort of error die "error from the server: $1\n"; } else { die "unhandled XML: $line\n"; } } close( SOCK ) or die "close: $!"; exit;