OpenForum RSS: Perl-Xml

OpenForum RSS: Perl-Xml https://www.opennet.ru/openforum/vsluhforumID1/76425.html получяю xml сообщение:<br>use SOAP::Lite;<br>my $soap = SOAP::Lite<br> -> uri('http://sms.com/daemon')<br> -> proxy('http://sms.com/cgi-bin/SMS/2.cgi');<br> <br>$xml = SOAP::Data->name('sms' => \SOAP::Data->value(<br> SOAP::Data->name('id' => '3334'),<br> SOAP::Data->name('language' => 'en'),<br> SOAP::Data->name('text' => 'Jhon')));<br> <br>$r=$soap->sms($xml);<br>$rez = $r -> result;<br>print "Результат:$rez \n";<br>exit;<br><br>теперь в 2.cgi:<br>#!/usr/bin/perl -w<br>use SOAP::Transport::HTTP;<br>SOAP::Transport::HTTP::CGI<br> -> dispatch_to('daimon')<br> -> handle;<br>package daimon;<br>sub sms {<br> my $class = shift;<br> return SOAP::Data->name('text'=>$class);<br>}<br>должен возращят $class='Jhon' , а он возвращяет $class='daemon' <br> Perl-Xml (terry) https://www.opennet.ru/openforum/vsluhforumID1/76425.html#1 Wed, 26 Sep 2007 09:36:21 GMT >[оверквотинг удален]<br>>use SOAP::Transport::HTTP; <br>>SOAP::Transport::HTTP::CGI <br>> -> dispatch_to('daimon')<br>> -> handle;<br>>package daimon; <br>>sub sms { <br>> my $class = shift; <br>> return SOAP::Data->name('text'=>$class);<br>>} <br>>должен возращят $class='Jhon' , а он возвращяет $class='daemon' <br><br>