--- trunk/soap-client.pl	2005/05/17 11:09:08	33
+++ trunk/soap-client.pl	2005/08/25 11:58:15	79
@@ -1,6 +1,11 @@
 #!/usr/bin/perl -w
 
-use SOAP::Lite; # +trace => 'debug';
+use SOAP::Lite;
+use Data::Dumper;
+
+my $debug = 0;
+$debug = 1 if (@ARGV);
+
 my $HOST   = "http://localhost/~dpavlin/notice-sender/soap.cgi";
 my $NS     = "http://localhost/Nos/SOAP/";
 my $soap = SOAP::Lite
@@ -8,8 +13,9 @@
 	->uri($NS)
 	->proxy($HOST);
 
+$soap->on_debug(sub{print "# ",@_}) if ($debug);
 
-my $list_id = $soap->NewList({
+my $list_id = $soap->CreateList({
 		list => 'My list',
 		email => 'my-soap@example.com',
 	})->result || die "can't add list";
@@ -38,4 +44,33 @@
 
 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";
+}
+
+my @r = $soap->MessagesReceived({
+	list => 'My list',
+})->result;
+print "received messages: ", Dumper(\@r);
+
+$soap->DeleteMemberFromList({
+	list => 'My list',
+	email => 'dpavlin@rot13.org',
+})->result || die "can't delete member";
+
+print "deleted member\n";
+
+$soap->DropList({
+	list => 'My list'
+});
+
+print "delete list\n";
+
 1;