use strict;
use SOAP::Lite + "trace";
use SOAP::Transport::HTTP;
use Data::Dumper;
my $serverinfo = {
version => "0.1.dev",
validTypes => [
filetype => "txt",
filetype => "html",
],
statistics => {
documentsProcessed => 0,
},
};
sub FileQueue::getServerInfo {
return SOAP::Data->name( info => $serverinfo );
}
my $daemon = SOAP::Transport::HTTP::Daemon
-> new (LocalPort => 88)
-> dispatch_to('FileQueue')
;
print "Contact to SOAP server at ", $daemon->url, "\n";
$daemon->handle;
####
0
0.1.dev
- filetype
- txt
- filetype
- html
##
##
0.1.dev
txt
txt
0