notice-sender/trunk/soap-client.pl

#!/usr/bin/perl -w

use SOAP::Lite; #+trace => 'debug';
my $HOST   = "http://localhost/~dpavlin/notice-sender/soap.cgi";
my $NS     = "http://localhost/Nos/SOAP/";
my $soap = SOAP::Lite
        ->readable(1)
        ->uri($NS)
        ->proxy($HOST);

print "added member ID ",$soap->AddMemberToList({
                list => 'My list',
                email => 'dpavlin@rot13.org',
                name => 'Dobrica Pavlinusic',
        })->result,"\n";

print "added message ID ",$soap->AddMessageToList({
                list => 'My list',
                message => 'To: member@example.com
From: mylist@example.com
Subject: text

This is a dummy test
',
        })->result,"\n";
1;
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 = "http://localhost/Nos/SOAP/";
6	my $soap = SOAP::Lite
7	->readable(1)
8	->uri($NS)
9	->proxy($HOST);
10
11	print "added member ID ",$soap->AddMemberToList({
12	list => 'My list',
13	email => 'dpavlin@rot13.org',
14	name => 'Dobrica Pavlinusic',
15	})->result,"\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;