--- trunk/soap.cgi 2005/05/16 20:58:44 29 +++ trunk/soap.cgi 2005/05/17 15:03:57 34 @@ -26,6 +26,32 @@ This methods are thin wrappers to provide SOAP calls. +Usually, you want to used named variables in your SOAP calls if at all +possible. However, if you have broken SOAP libraries (like PHP's PEAR SOAP) +you will want to use positional arguments (in same order as documented for +methods below). + +=head2 NewList + + $message_id = NewList( + list => 'My list', + email => 'my-list@example.com' + ); + +=cut + +sub NewList { + my $self = shift; + + if ($_[0] !~ m/^HASH/) { + return $nos->new_list( + list => $_[0], email => $_[1], + ); + } else { + return $nos->new_list( %{ shift @_ } ); + } +} + =head2 AddMemberToList $member_id = AddMemberToList( @@ -39,7 +65,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 @@ -54,6 +86,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 @_ } ); + } }