/[notice-sender]/trunk/Nos.pm

This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!

Diff of /trunk/Nos.pm

Parent Directory | Revision Log | View Patch Patch

-revision 39 by dpavlin,
Tue May 17 22:23:40 2005 UTC
+revision 43 by dpavlin,
Wed May 18 12:29:35 2005 UTC
 Line 175 
 sub add_member_to_list {
          return $this_user->id;
  }
+ =head2 list_members
+  my @members = list_members(
+         list => 'My list',
+  );
+ Returns array of hashes with user informations like this:
+  $member = {
+         full_name => 'Dobrica Pavlinusic',
+         email => 'dpavlin@rot13.org
+  }
+ =cut
+ sub list_members {
+         my $self = shift;
+         my $args = {@_};
+         my $list_name = $args->{'list'} || confess "need list name";
+         my $lists = $self->{'loader'}->find_class('lists');
+         my $user_list = $self->{'loader'}->find_class('user_list');
+         my $this_list = $lists->search( name => $list_name )->first || croak "can't find list $list_name\n";
+         my @results;
+         foreach my $user_on_list ($user_list->search(list_id => $this_list->id)) {
+                 my $row = {
+                         full_name => $user_on_list->user_id->full_name,
+                         email => $user_on_list->user_id->email,
+                 };
+                 push @results, $row;
+         }
+         return @results;
+ }
  =head2 add_message_to_list
  Adds message to one list's queue for later sending.
-Line 370 
 sub inbox_message {
+Line 413 
 sub inbox_message {
                  $user_id = $sent_msg->user_id || carp "no user_id";
          }
- print "message_id: ",($message_id || "not found"),"\n";
          my $is_bounce = 0;
-Line 393 
 print "message_id: ",($message_id || "no
+Line 435 
 print "message_id: ",($message_id || "no
          $this_received->dbi_commit;
+         print "message_id: ",($message_id || "not found")," -- $is_bounce\n";
          warn "inbox is not yet implemented";
  }
-Line 469 
 sub _get_list {
+Line 514 
 sub _get_list {
  package Nos::SOAP;
+ use Carp;
  =head1 SOAP methods
  This methods are thin wrappers to provide SOAP calls. They are grouped in
-Line 517 
 sub NewList {
+Line 564 
 sub NewList {
          }
  }
  =head2 AddMemberToList
   $member_id = AddMemberToList(
-         list => "My list",
+         list => 'My list',
-         email => "e-mail@example.com",
+         email => 'e-mail@example.com',
-         name => "Full Name"
+         name => 'Full Name'
   );
  =cut
-Line 539 
 sub AddMemberToList {
+Line 587 
 sub AddMemberToList {
          }
  }
+ =head2 ListMembers
+  my @members = ListMembers(
+         list => 'My list',
+  );
+ Returns array of hashes with user informations, see C<list_members>.
+ =cut
+ sub ListMembers {
+         my $self = shift;
+         my $list_name;
+         if ($_[0] !~ m/^HASH/) {
+                 $list_name = shift;
+         } else {
+                 $list_name = $_[0]->{'list'};
+         }
+         return $nos->list_members( list => $list_name );
+ }
  =head2 AddMessageToList
   $message_id = AddMessageToList(

 Legend:



Removed from v.39
 


changed lines


 
Added in v.43
 Legend:



Removed from v.39
 


changed lines


 
Added in v.43
-Removed from v.39
+Added in v.43

	ViewVC Help
Powered by ViewVC 1.1.26