/[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!
ViewVC logotype

Diff of /trunk/Nos.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 80 by dpavlin, Fri Aug 26 05:38:00 2005 UTC revision 83 by dpavlin, Mon Aug 29 14:53:53 2005 UTC
# Line 739  array very large. Use with care. Line 739  array very large. Use with care.
739    
740  =back  =back
741    
742    Date ranges are inclusive, so results will include messages sent on
743    particular date specified with C<date_from> or C<date_to>.
744    
745  Each element in returned array will have following structure:  Each element in returned array will have following structure:
746    
747   my $row = {   my $row = {
# Line 777  sub received_messages { Line 780  sub received_messages {
780                          join users on users.id = user_id                          join users on users.id = user_id
781          };          };
782    
783          my $order = qq{ order by date desc };          my $order = qq{ order by date asc };
784    
785          my $where;          my $where;
786    
# Line 863  sub _add_aliases { Line 866  sub _add_aliases {
866          $self_path =~ s#/[^/]+$##;          $self_path =~ s#/[^/]+$##;
867          $self_path =~ s#/t/*$#/#;          $self_path =~ s#/t/*$#/#;
868    
869          $target .= qq#| cd $self_path && ./sender.pl --inbox="$list"#;          $target .= qq#"| cd $self_path && ./sender.pl --inbox='$list'"#;
870    
871            # remove hostname from email to make Postfix's postalias happy
872            $email =~ s/@.+//;
873    
874          if ($a->exists($email)) {          if ($a->exists($email)) {
875                  $a->update($email, $target) or croak "can't update alias ".$a->error_check;                  $a->update($email, $target) or croak "can't update alias ".$a->error_check;
# Line 1221  sub MessagesReceived { Line 1227  sub MessagesReceived {
1227          } else {          } else {
1228                  my $arg = shift;                  my $arg = shift;
1229                  die "need list or email argument" unless ($arg->{'list'} || $arg->{'email'});                  die "need list or email argument" unless ($arg->{'list'} || $arg->{'email'});
1230                  return $nos->received_messages( $arg );                  return $nos->received_messages( %{ $arg } );
1231          }          }
1232  }  }
1233    
1234  ###  ###
1235    
 =head1 UNIMPLEMENTED SOAP FUNCTIONS  
   
 This is a stub for documentation of unimplemented functions.  
   
 =head2 MessagesReceivedByDate  
   
 =head2 MessagesReceivedByDateWithContent  
   
 =head2 ReceivedMessageContent  
   
 Return content of received message.  
   
  my $mail_body = ReceivedMessageContent( id => 42 );  
   
   
   
   
1236  =head1 NOTE ON ARRAYS IN SOAP  =head1 NOTE ON ARRAYS IN SOAP
1237    
1238  Returning arrays from SOAP calls is somewhat fuzzy (at least to me). It  Returning arrays from SOAP calls is somewhat fuzzy (at least to me). It
Legend:
Removed from v.80  
changed lines
  Added in v.83
  ViewVC Help
Powered by ViewVC 1.1.26