получяю xml сообщение:
use SOAP::Lite;
my $soap = SOAP::Lite
-> uri('http://sms.com/daemon')
-> proxy('http://sms.com/cgi-bin/SMS/2.cgi');
$xml = SOAP::Data->name('sms' => \SOAP::Data->value(
SOAP::Data->name('id' => '3334'),
SOAP::Data->name('language' => 'en'),
SOAP::Data->name('text' => 'Jhon')));
$r=$soap->sms($xml);
$rez = $r -> result;
print "Результат:$rez \n";
exit;теперь в 2.cgi:
#!/usr/bin/perl -w
use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI
-> dispatch_to('daimon')
-> handle;
package daimon;
sub sms {
my $class = shift;
return SOAP::Data->name('text'=>$class);
}
должен возращят $class='Jhon' , а он возвращяет $class='daemon'