/[notice-sender]/trunk/soap-client.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk/soap-client.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 25 - (show annotations)
Mon May 16 13:52:43 2005 UTC (18 years, 10 months ago) by dpavlin
File MIME type: text/plain
File size: 475 byte(s)
added SOAP server and example (non-working) client

1 #!/usr/bin/perl -w
2
3 use SOAP::Lite +trace => 'debug';
4 my $HOST = "http://localhost/~dpavlin/notice-sender/soap.cgi";
5 my $NS = "urn:Nos";
6 my $soap = SOAP::Lite
7 ->readable(1)
8 ->uri($NS)
9 ->proxy($HOST);
10
11 my $som = $soap->add_member_to_list(
12 SOAP::Data->name("list" => "My list"),
13 SOAP::Data->name("email" => 'dpavlin@rot13.org'),
14 SOAP::Data->name("name" => 'Dobrica Pavlinusic'),
15 );
16 print "The response from the server was:\n".( $som->result || 'null' )."\n";
17
18 1;

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26