#!perl -w
#!d:\perl\bin\perl.exe
# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
use SOAP::Transport::JABBER;
# real user/passwords are used to give you a chance to try it out-of-the-box
# you may put your own user/password
my $server = SOAP::Transport::JABBER::Server
-> new('jabber://soaplite_server:soapliteserver@jabber.org:5222')
-> dispatch_to('echo')
;
print "Contact to SOAP server\n";
do { $server->handle } while sleep 1;
sub echo { $_[1] }