--- trunk/soap-client.pl	2005/05/16 13:52:43	25
+++ trunk/soap-client.pl	2005/05/16 16:25:14	27
@@ -1,18 +1,26 @@
 #!/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     = "urn:Nos";
+my $NS     = "http://localhost/Nos/SOAP/";
 my $soap = SOAP::Lite
 	->readable(1)
 	->uri($NS)
 	->proxy($HOST);
 
-my $som = $soap->add_member_to_list(
-	SOAP::Data->name("list" => "My list"),
-	SOAP::Data->name("email" => 'dpavlin@rot13.org'),
-	SOAP::Data->name("name" => 'Dobrica Pavlinusic'),
-	);
-	print "The response from the server was:\n".( $som->result || 'null' )."\n";
+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;