Sorry, wrong link.
http://search.cpan.org/~mkutter/SOAP-Lite-0.710.10/lib/SOAP/Server.pod#SOAP::Server::Parameters
#!/usr/bin/perl --
#~ perltidy -csc -otr -opr -ce -nibc -i=2
#~ 2009-11-05-18:08:37
Main(@ARGV);
exit(0);
sub Main {
use SOAP::Transport::HTTP;
my $daemon = SOAP::Transport::HTTP::Daemon->new(
LocalAddr => 'localhost',
LocalPort => 10013,
Reuse => 1
)->dispatch_to('Demo');
print "Contact to SOAP server at ", $daemon->url, "\n";
$daemon->handle;
} ## end sub Main
BEGIN {
package Demo;
use Data::Dumper;
use vars qw(@ISA);
@ISA = qw(SOAP::Server::Parameters);
sub OrderInquiry {
print "OrderInquiry called\n";
my $self = shift;
my $envelope = pop;
print Dumper( \@_ );
print Dumper( $envelope->valueof('/Envelope/Body') );
return "OrderInquiry order Created";
} ## end sub OrderInquiry
1;
} ## end BEGIN
__END__
$ perl serv.pl
Contact to SOAP server at http://localhost:10013/
OrderInquiry called
$VAR1 = [
'physi'
];
$VAR1 = {
'OrderInquiry' => {
'vorname' => 'physi'
}
};
Terminating on signal SIGINT(2)
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|