--- trunk/soap.cgi	2005/05/17 11:09:08	33
+++ trunk/soap.cgi	2005/05/17 15:05:57	35
@@ -26,6 +26,13 @@
 
 This methods are thin wrappers to provide SOAP calls.
 
+Usually, you want to use named variables in your SOAP calls if at all
+possible.
+
+However, if you have broken SOAP library (like PHP SOAP class from PEAR)
+you will want to use positional arguments (in same order as documented for
+methods below).
+
 =head2 NewList
 
  $message_id = NewList(
@@ -38,7 +45,13 @@
 sub NewList {
 	my $self = shift;
 
-	return $nos->new_list( %{ shift @_ } );
+	if ($_[0] !~ m/^HASH/) {
+		return $nos->new_list(
+			list => $_[0], email => $_[1],
+		);
+	} else {
+		return $nos->new_list( %{ shift @_ } );
+	}
 }
 
 =head2 AddMemberToList
@@ -54,7 +67,13 @@
 sub AddMemberToList {
 	my $self = shift;
 
-	return $nos->add_member_to_list( %{ shift @_ } );
+	if ($_[0] !~ m/^HASH/) {
+		return $nos->add_member_to_list(
+			list => $_[0], email => $_[1], name => $_[2],
+		);
+	} else {
+		return $nos->add_member_to_list( %{ shift @_ } );
+	}
 }
 
 =head2 AddMessageToList
@@ -69,6 +88,12 @@
 sub AddMessageToList {
 	my $self = shift;
 
-	return $nos->add_message_to_list( %{ shift @_ } );
+	if ($_[0] !~ m/^HASH/) {
+		return $nos->add_message_to_list(
+			list => $_[0], message => $_[1],
+		);
+	} else {
+		return $nos->add_message_to_list( %{ shift @_ } );
+	}
 }