OpenForum RSS: Perl SOAP::Lite

Perl SOAP::Lite (NN_was)

Tue, 04 Dec 2007 12:47:54 GMT

>$p=@_; # object/class reference
>�� $param='Jhon' , � �� $param='2'

�� $p=@_; # object/class reference
� $p �� @_, �.�. �� 2, � �� .
�� :)).

Perl SOAP::Lite (NuINu)

Wed, 26 Sep 2007 13:32:53 GMT

>�� xml ��:
>�� $param='Jhon' , � �� $param='2'

�� .
�� : �� serv2.pl:
#!/usr/bin/perl -w

use SOAP::Transport::HTTP;
use Data::Dumper;
use strict;

SOAP::Transport::HTTP::CGI
-> dispatch_to('daemon')
-> handle;

package daemon;

sub sms {
my $p=shift; # object/class reference
my $envelope = pop;

my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
my $logsdir = "/srv/www_test/log/"; #��
$year += 1900;
$mon++;
my $month_logsfile = $logsdir.sprintf("%.4d%.2d.log",$year,$mon);

open(LOG, '>>', $month_logsfile) or die "Can't open log file $month_logsfile\n";
print LOG sprintf("%.4d.%.2d.%.2d %.2d:%.2d:%.2d",$year, $mon, $mday, $hour,$min,$sec), " Get query:\n";

print LOG Data::Dumper::Dumper($envelope);
$envelope->{'text'} = $envelope->{'text'} . " +server ret";

close

Perl SOAP::Lite (help)

Tue, 25 Sep 2007 13:45:53 GMT

�� 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 {
$p=@_; # object/class reference
my $param2 = SOAP::Data->name('text'=>$p);
return $param2;
}
�� $param='Jhon' , � �� $param='2'

Perl SOAP::Lite (NuINu)

Tue, 25 Sep 2007 13:26:40 GMT

>>>�� SOAP::Lite, please ��
>>
>>:))) � �� ? �� , ��
>>��, �� .
>
> ��

�� . � �� . :)

Perl SOAP::Lite (help)

Tue, 25 Sep 2007 11:56:40 GMT

>>�� SOAP::Lite, please ��
>
>:))) � �� ? �� , ��
>��, �� .

��

Perl SOAP::Lite (NuINu)

Tue, 25 Sep 2007 11:45:18 GMT

>�� SOAP::Lite, please ��

:))) � �� ? �� , �� , �� .