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; |