NuSOAP to Perl to NuSOAP
| From: | Rudi Starcevic | Date: | Thu, 12 Sep 2002 12:01:05 +0000 |
| Subject: | NuSOAP to Perl to NuSOAP | ||
| Groups: | php.soap | ||
| Request: | Send a blank email to php-soap+get-251@lists.php.net to get a copy of this message | ||
Hi,
Sorry to bother you again.
I am trying - I've read the read me's without joy so I'd thought
I'd ask again.
This time I'm trying to use PHP and NuSOAP to access my Perl SOAP server.
Here is my SOAP client php source code :
<?php
require_once('nusoap/nusoap.php');
$client = new soapclient('http://192.168.0.1:10000/urn:data');
$response = $client->call('sales');
if ($client->fault) {
echo "FAULT: <p>Code: {$client->faultcode}<br />";
echo "String: {$client->faultstring}";
} else {
echo "$" . $response;
}
?>
Here is my error :
FAULT:
Code: SOAP-ENV:Client
String: Denied access to method (sales) in class (main) at
/usr/local/lib/perl5/site_perl/5.8.0/SOAP/Lite.pm line 2113.
Here is my Perl SOAP server code :
%
#!/usr/bin/perl -w
use SOAP::Transport::HTTP;
# don't want to die on 'Broken pipe' or Ctrl-C
$SIG{PIPE} = $SIG{INT} = 'IGNORE';
my $daemon = SOAP::Transport::HTTP::Daemon
-> new (LocalPort => 10000 , Reuse => 1)
-> dispatch_to('/home/soaplite/modules')
;
print "Contact to SOAP server at ", $daemon->url, "\n";
$daemon->handle;
Here is some sample Perl client code that works fine :
#!/usr/bin/perl -w
use SOAP::Lite;
my $remoteCall = SOAP::Lite
-> uri('data')
-> proxy('http://192.168.0.1:10000')
-> sales();
print $remoteCall->result();
Thanks.
Just to let you know I want both Perl and PHP SOAP servers.
Kind regards
Rudi.