SOAP::Serializer::new: ()
SOAP::Deserializer::new: ()
SOAP::Parser::new: ()
SOAP::Lite::new: ()
SOAP::Transport::HTTP::Client::new: ()
SOAP::Deserializer::new: ()
SOAP::Parser::new: ()
SOAP::Schema::new: ()
SOAP::Lite::call: ()
SOAP::Serializer::envelope: ()
SOAP::Serializer::envelope: hi Kutter Martin
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Transport::HTTP::Client::send_receive: HTTP::Request=HASH(0x27aaa04)
SOAP::Transport::HTTP::Client::send_receive: POST http://192.168.xx.xx:80/prueba
s2/WebService/hibye.cgi HTTP/1.1
Accept: text/xml
Accept: multipart/*
Accept: application/soap
Content-Length: 501
Content-Type: text/xml; charset=utf-8
SOAPAction: "urn:HelloWorld#hi"
<?xml version="1.0" encoding="UTF-8"?><soap:Envelope soap:encodingStyle="http://
schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap.org/soap/
envelope/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="
http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-in
stance"><soap:Body><hi xmlns="urn:HelloWorld"><c-gensym3 xsi:type="xsd:string">K
utter</c-gensym3><c-gensym5 xsi:type="xsd:string">Martin</c-gensym5></hi></soap:
Body></soap:Envelope>
SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH(0x2af6594)
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 200 OK
Connection: Keep-Alive
Date: Mon, 02 Apr 2018 15:55:31 GMT
Accept-Ranges: bytes
ETag: "0-1547-5ac2523d"
Server: SAMBAR
Content-Length: 871
Content-Type: text/plain
Last-Modified: Mon, 02 Apr 2018 15:54:37 GMT
Client-Date: Mon, 02 Apr 2018 15:55:31 GMT
Client-Peer: 192.168.xx.xx:80
Client-Response-Num: 1
Keep-Alive: max=50, timeout=25
#!perl -w
use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI
-> dispatch_to('Demo')
-> handle;
package Demo;
sub hi {
return "hello, world";
}
sub bye {
return "goodbye, cruel world";
}
###########!/usr/bin/perl
##########use SOAP::Transport::HTTP;
##########SOAP::Transport::HTTP::CGI
########## ->dispatch_to('C2FService')
########## ->handle;
##########BEGIN {
########## package C2FService;
########## use vars qw(@ISA);
########## @ISA = qw(Exporter SOAP::Server::Parameters);
########## use SOAP::Lite;
########## sub c2f {
########## my $self = shift;
########## my $envelope = pop;
########## my $temp = $envelope->dataof("//c2f/temperature");
########## return SOAP::Data->name('convertedTemp' => (((9/5)*($temp->value
)) + 32));
########## }
##########}
SOAP::Deserializer::deserialize: ()
SOAP::Parser::decode: ()
not well-formed (invalid token) at line 1, column 1, byte 1 at C:/Perl/lib/XML/P
arser.pm line 187
#!perl -w
use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI
-> dispatch_to('Demo')
-> handle;
package Demo;
sub hi {
return "hello, world";
}
sub bye {
return "goodbye, cruel world";
}
###########!/usr/bin/perl
##########use SOAP::Transport::HTTP;
##########SOAP::Transport::HTTP::CGI
########## ->dispatch_to('C2FService')
########## ->handle;
##########BEGIN {
########## package C2FService;
########## use vars qw(@ISA);
########## @ISA = qw(Exporter SOAP::Server::Parameters);
########## use SOAP::Lite;
########## sub c2f {
########## my $self = shift;
########## my $envelope = pop;
########## my $temp = $envelope->dataof("//c2f/temperature");
########## return SOAP::Data->name('convertedTemp' => (((9/5)*($temp->value
)) + 32));
########## }
##########} at hibye.pl line 38
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Parser::DESTROY: ()
SOAP::Deserializer::DESTROY: ()
SOAP::Parser::DESTROY: ()
SOAP::Transport::DESTROY: ()
SOAP::Transport::HTTP::Client::DESTROY: ()
SOAP::Serializer::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Deserializer::DESTROY: ()
SOAP::Schema::DESTROY: ()
SOAP::Lite::DESTROY: ()
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4