343 |
my $this_user = $user->search( email => $args->{'email'} )->first || croak "can't find user: ".$args->{'email'}; |
my $this_user = $user->search( email => $args->{'email'} )->first || croak "can't find user: ".$args->{'email'}; |
344 |
my $this_list = $list->search( name => $args->{'list'} )->first || croak "can't find list: ".$args->{'list'}; |
my $this_list = $list->search( name => $args->{'list'} )->first || croak "can't find list: ".$args->{'list'}; |
345 |
|
|
346 |
my $this_user_list = $user_list->search_where( list_id => $this_list->id, user_id => $this_list->id )->first || return; |
my $this_user_list = $user_list->search_where( list_id => $this_list->id, user_id => $this_user->id )->first || return; |
347 |
|
|
348 |
$this_user_list->delete || croak "can't delete user from list\n"; |
$this_user_list->delete || croak "can't delete user from list\n"; |
349 |
|
|
801 |
|
|
802 |
Returns array of hashes with user informations, see C<list_members>. |
Returns array of hashes with user informations, see C<list_members>. |
803 |
|
|
804 |
|
Returning arrays from SOAP calls is somewhat fuzzy (at least to me). It |
805 |
|
seems that SOAP::Lite client thinks that it has array with one element which |
806 |
|
is array of hashes with data. |
807 |
|
|
808 |
=cut |
=cut |
809 |
|
|
810 |
sub ListMembers { |
sub ListMembers { |
818 |
$list_name = $_[0]->{'list'}; |
$list_name = $_[0]->{'list'}; |
819 |
} |
} |
820 |
|
|
821 |
return $nos->list_members( list => $list_name ); |
return [ $nos->list_members( list => $list_name ) ]; |
822 |
|
} |
823 |
|
|
824 |
|
|
825 |
|
=head2 DeleteMemberFromList |
826 |
|
|
827 |
|
$member_id = DeleteMemberFromList( |
828 |
|
list => 'My list', |
829 |
|
email => 'e-mail@example.com', |
830 |
|
); |
831 |
|
|
832 |
|
=cut |
833 |
|
|
834 |
|
sub DeleteMemberFromList { |
835 |
|
my $self = shift; |
836 |
|
|
837 |
|
if ($_[0] !~ m/^HASH/) { |
838 |
|
return $nos->delete_member_from_list( |
839 |
|
list => $_[0], email => $_[1], |
840 |
|
); |
841 |
|
} else { |
842 |
|
return $nos->delete_member_from_list( %{ shift @_ } ); |
843 |
|
} |
844 |
} |
} |
845 |
|
|
846 |
|
|
847 |
=head2 AddMessageToList |
=head2 AddMessageToList |
848 |
|
|
849 |
$message_id = AddMessageToList( |
$message_id = AddMessageToList( |