Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
Hello Everybody, I'm trying to implement a simple soap client and server. I get connected to the server from the Client but then the server response that I get is a bit weird. I get the entire server program instead of the return value itself.
#!/usr/bin/perl -w use strict; use SOAP::Lite; # +trace => 'all'; my $soap = SOAP::Lite -> uri('urn:Demo') -> proxy('http://localhost/soap-test/hibye.cgi') -> hi(); print $soap->result;
And this is my server program:
#!/usr/bin/perl -w use SOAP::Transport::HTTP; SOAP::Transport::HTTP::CGI -> dispatch_to("Demo") -> handle; package Demo; sub hi { return "Hello"; }
And below is the output that I get.
no element found at line 1, column 0, byte -1 at /usr/local/lib/perl/5 +.10.0/XML/Parser.pm line 153 #!/usr/bin/perl -w use SOAP::Transport::HTTP; SOAP::Transport::HTTP::CGI -> dispatch_to("Demo") -> handle; package Demo; sub hi { return "Hello"; } at hibye.pl line 4
|
|---|