Parent Directory | Revision Log
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; |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |