SetHandler perl-script PerlHandler Apache::SOAP PerlSetVar dispatch_to 'Demo' ##

##

package Demo;

sub hi {
  return "hello, world";
}

##

##

use SOAP::Lite +trace => [qw(all)];

my $soap = SOAP::Lite->uri('http:///Demo');
my $proxy = $soap->proxy('http:///steve/rpc/');
my $obj = $proxy->hi();
print $obj->result;

##

##

SOAP::Transport::new: ()
SOAP::Serializer::new: ()
SOAP::Deserializer::new: ()
SOAP::Parser::new: ()
SOAP::Lite::new: ()
SOAP::Transport::HTTP::Client::new: ()
SOAP::Lite::call: ()
SOAP::Serializer::envelope: ()
SOAP::Serializer::envelope: hi
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Data::new: ()
SOAP::Transport::HTTP::Client::send_receive: HTTP::Request=HASH(0x18baed8)
SOAP::Transport::HTTP::Client::send_receive: POST
http://www.cm.aol.com/steve/rpc/ HTTP/1.1
Accept: text/xml
Accept: multipart/*
Content-Length: 448
Content-Type: text/xml; charset=utf-8
SOAPAction: "http://www.cm.aol.com/Demo#hi"


SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH(0x18c18e4)
SOAP::Transport::HTTP::Client::send_receive: HTTP/0.9 200 (OK) EOF
Client-Date: Thu, 18 Aug 2005 16:22:41 GMT
Client-Peer: 10.178.2.10:80
Client-Response-Num: 1

Can't call method "result" on an undefined value at ./test1.pl line 13.
SOAP::Lite::DESTROY: ()
SOAP::Serializer::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Deserializer::DESTROY: ()
SOAP::Parser::DESTROY: ()
SOAP::Transport::DESTROY: ()
SOAP::Transport::HTTP::Client::DESTROY: ()

##

##

[Thu Aug 18 09:21:40 2005] [notice] child pid 868 exit signal Bus error (10)