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


my $list_id = $soap->NewList({
                list => 'My list',
                email => 'my-soap@example.com',
        })->result || die "can't add list";

print "added list ID $list_id\n";


my $member_id = $soap->AddMemberToList({
                list => 'My list',
                email => 'dpavlin@rot13.org',
                name => 'Dobrica Pavlinusic',
        })->result || die "can't add user";

print "added member ID $member_id\n";


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

This is a dummy test
',
        })->result || die "can't add message";

print "added message ID $message_id\n";

1;
1	dpavlin	25	#!/usr/bin/perl -w
2
3	dpavlin	33	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	33
12			my $list_id = $soap->NewList({
13	dpavlin	27	list => 'My list',
14	dpavlin	33	email => 'my-soap@example.com',
15			})->result \|\| die "can't add list";
16
17			print "added list ID $list_id\n";
18
19
20			my $member_id = $soap->AddMemberToList({
21			list => 'My list',
22	dpavlin	27	email => 'dpavlin@rot13.org',
23			name => 'Dobrica Pavlinusic',
24	dpavlin	33	})->result \|\| die "can't add user";
25	dpavlin	25
26	dpavlin	33	print "added member ID $member_id\n";
27
28
29			my $message_id = $soap->AddMessageToList({
30	dpavlin	27	list => 'My list',
31			message => 'To: member@example.com
32			From: mylist@example.com
33			Subject: text
34
35			This is a dummy test
36			',
37	dpavlin	33	})->result \|\| die "can't add message";
38
39			print "added message ID $message_id\n";
40
41	dpavlin	25	1;