Re^3: How to get SOAP Tags in SOAP::Lite Server

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__
[download]

$ perl serv.pl
Contact to SOAP server at http://localhost:10013/
OrderInquiry called
$VAR1 = [
          'physi'
        ];
$VAR1 = {
          'OrderInquiry' => {
                            'vorname' => 'physi'
                          }
        };
Terminating on signal SIGINT(2)
[download]

Comment on Re^3: How to get SOAP Tags in SOAP::Lite Server Select or Download Code


No such thing as a small change
	PerlMonks