--- trunk/soap-client.pl	2005/05/16 16:25:14	27
+++ trunk/soap-client.pl	2005/06/22 12:31:45	62
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-use SOAP::Lite; #+trace => 'debug';
+use SOAP::Lite; # +trace => 'debug';
 my $HOST   = "http://localhost/~dpavlin/notice-sender/soap.cgi";
 my $NS     = "http://localhost/Nos/SOAP/";
 my $soap = SOAP::Lite
@@ -8,13 +8,25 @@
 	->uri($NS)
 	->proxy($HOST);
 
-print "added member ID ",$soap->AddMemberToList({
+
+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,"\n";
+	})->result || die "can't add user";
+
+print "added member ID $member_id\n";
 
-print "added message ID ",$soap->AddMessageToList({
+
+my $message_id = $soap->AddMessageToList({
 		list => 'My list',
 		message => 'To: member@example.com
 From: mylist@example.com
@@ -22,5 +34,26 @@
 
 This is a dummy test
 ',
-	})->result,"\n";
+	})->result || die "can't add message";
+
+print "added message ID $message_id\n";
+
+my $result = $soap->ListMembers({
+		list => 'My list',
+});
+
+die "can't list members ".$result->faultcode.": ".$result->faultstrig if ($result->fault);
+
+print "members:\n";
+foreach my $m (@{$result->result}) {
+	print "\t",$m->{'email'},"\n";
+}
+
+$soap->DeleteMemberFromList({
+	list => 'My list',
+	email => 'dpavlin@rot13.org',
+})->result || die "can't delete member";
+
+print "deleted member\n";
+
 1;