File: jabserver.pl

package info (click to toggle)
soap-lite 0.69-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 1,412 kB
  • ctags: 583
  • sloc: perl: 9,194; makefile: 59; cs: 16
file content (20 lines) | stat: -rw-r--r-- 487 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!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] }