Parent Directory | Revision Log
added SOAP server and example (non-working) client
1 | dpavlin | 25 | #!/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 |