1 |
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
2 |
|
|
3 |
use SOAP::Lite +trace => 'debug'; |
use SOAP::Lite; #+trace => 'debug'; |
4 |
my $HOST = "http://localhost/~dpavlin/notice-sender/soap.cgi"; |
my $HOST = "http://localhost/~dpavlin/notice-sender/soap.cgi"; |
5 |
my $NS = "urn:Nos"; |
my $NS = "http://localhost/Nos/SOAP/"; |
6 |
my $soap = SOAP::Lite |
my $soap = SOAP::Lite |
7 |
->readable(1) |
->readable(1) |
8 |
->uri($NS) |
->uri($NS) |
9 |
->proxy($HOST); |
->proxy($HOST); |
10 |
|
|
11 |
my $som = $soap->add_member_to_list( |
print "added member ID ",$soap->AddMemberToList({ |
12 |
SOAP::Data->name("list" => "My list"), |
list => 'My list', |
13 |
SOAP::Data->name("email" => 'dpavlin@rot13.org'), |
email => 'dpavlin@rot13.org', |
14 |
SOAP::Data->name("name" => 'Dobrica Pavlinusic'), |
name => 'Dobrica Pavlinusic', |
15 |
); |
})->result,"\n"; |
|
print "The response from the server was:\n".( $som->result || 'null' )."\n"; |
|
16 |
|
|
17 |
|
print "added message ID ",$soap->AddMessageToList({ |
18 |
|
list => 'My list', |
19 |
|
message => 'To: member@example.com |
20 |
|
From: mylist@example.com |
21 |
|
Subject: text |
22 |
|
|
23 |
|
This is a dummy test |
24 |
|
', |
25 |
|
})->result,"\n"; |
26 |
1; |
1; |