Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
share
/
doc
/
perl-SOAP-WSDL-examples
/
example
/
server
Upload
3 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
hello_simple.pl
689 B
-rw-r--r--
2014-08-20 12:34:40
Edit
Del
Editing: hello_simple.pl
(689 B)
Path: /usr/share/doc/perl-SOAP-WSDL-examples/example/server/hello_simple.pl
Back
use lib '../../lib'; use lib '../lib'; use SOAP::WSDL::Server::Simple; use base qw(HTTP::Server::Simple::CGI); use MyServer::HelloWorld::HelloWorldSoap; sub handle_request { my ($self, $cgi) = @_; my $server = MyServer::HelloWorld::HelloWorldSoap->new({ dispatch_to => 'main', transport_class => 'SOAP::WSDL::Server::Simple', }); $server->handle($cgi); } my $httpd = __PACKAGE__->new(8081); $httpd->run(); sub sayHello { my ($self, $body, $header) = @_; my $name = $body->get_name(); my $givenName = $body->get_givenName(); return MyElements::sayHelloResponse->new({ sayHelloResult => "Hello $givenName $name" }) }