/[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 45 by dpavlin,
Wed May 18 13:12:54 2005 UTC
 Line 16 
 our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'
  our @EXPORT = qw(
  );
- our $VERSION = '0.3';
+ our $VERSION = '0.4';
  use Class::DBI::Loader;
  use Email::Valid;
 Line 158 
 sub add_member_to_list {
                  email => $email,
          }) || croak "can't find or create member\n";
-         if ($name && $this_user->full_name ne $name) {
+         if ($name && $this_user->name ne $name) {
-                 $this_user->full_name($name || '');
+                 $this_user->name($name || '');
                  $this_user->update;
          }
 Line 175 
 sub add_member_to_list {
          return $this_user->id;
  }
+ =head2 list_members
+ List all members of some list.
+  my @members = list_members(
+         list => 'My list',
+  );
+ Returns array of hashes with user informations like this:
+  $member = {
+         name => 'Dobrica Pavlinusic',
+         email => 'dpavlin@rot13.org
+  }
+ If list is not found, returns false.
+ =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 || return;
+         my @results;
+         foreach my $user_on_list ($user_list->search(list_id => $this_list->id)) {
+                 my $row = {
+                         name => $user_on_list->user_id->name,
+                         email => $user_on_list->user_id->email,
+                 };
+                 push @results, $row;
+         }
+         return @results;
+ }
+ =head2 delete_member
+ Delete member from database.
+  my $ok = delete_member(
+         name => 'Dobrica Pavlinusic'
+  );
+  my $ok = delete_member(
+         email => 'dpavlin@rot13.org'
+  );
+ Returns false if user doesn't exist.
+ =cut
+ sub delete_member {
+         my $self = shift;
+         my $args = {@_};
+         croak "need name or email of user to delete" unless ($args->{'name'} || $args->{'email'});
+         my $key = 'name';
+         $key = 'email' if ($args->{'email'});
+         my $users = $self->{'loader'}->find_class('users');
+         my $this_user = $users->search( $key => $args->{$key} )->first || return;
+ print Dumper($this_user);
+         $this_user->delete || croak "can't delete user\n";
+         return $users->dbi_commit || croak "can't commit";
+ }
  =head2 add_message_to_list
  Adds message to one list's queue for later sending.
-Line 288 
 sub send_queued_messages {
+Line 372 
 sub send_queued_messages {
                                  my $hash = $auth->generate_hash( $to_email );
                                  my $from = $u->list_id->name . " <" . $from . "+" . $hash . ( $domain ? "@" . $domain : '' ). ">";
-                                 my $to = $u->user_id->full_name . " <$to_email>";
+                                 my $to = $u->user_id->name . " <$to_email>";
                                  my $m_obj = Email::Simple->new($msg) || croak "can't parse message";
-Line 370 
 sub inbox_message {
+Line 454 
 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 476 
 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 555 
 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 605 
 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 628 
 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.45
 Legend:



Removed from v.39
 


changed lines


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

	ViewVC Help
Powered by ViewVC 1.1.26