Parent Directory | Revision Log
SOAP now works, return member ID for add_member_to_list
1 | dpavlin | 25 | #!/usr/bin/perl -w |
2 | |||
3 | dpavlin | 27 | use SOAP::Lite; #+trace => 'debug'; |
4 | dpavlin | 25 | my $HOST = "http://localhost/~dpavlin/notice-sender/soap.cgi"; |
5 | dpavlin | 27 | my $NS = "http://localhost/Nos/SOAP/"; |
6 | dpavlin | 25 | my $soap = SOAP::Lite |
7 | ->readable(1) | ||
8 | ->uri($NS) | ||
9 | ->proxy($HOST); | ||
10 | |||
11 | dpavlin | 27 | print "added member ID ",$soap->AddMemberToList({ |
12 | list => 'My list', | ||
13 | email => 'dpavlin@rot13.org', | ||
14 | name => 'Dobrica Pavlinusic', | ||
15 | })->result,"\n"; | ||
16 | dpavlin | 25 | |
17 | dpavlin | 27 | 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 | dpavlin | 25 | 1; |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |