/[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 84 by dpavlin, Mon Aug 29 15:43:23 2005 UTC revision 85 by dpavlin, Wed Aug 31 16:53:21 2005 UTC
# Line 1219  sub MessagesReceived { Line 1219  sub MessagesReceived {
1219    
1220          if ($_[0] !~ m/^HASH/) {          if ($_[0] !~ m/^HASH/) {
1221                  die "need at least list or email" unless (scalar @_ < 2);                  die "need at least list or email" unless (scalar @_ < 2);
1222                  return $nos->received_messages(                  return \@{ $nos->received_messages(
1223                          list => $_[0], email => $_[1],                          list => $_[0], email => $_[1],
1224                          from_date => $_[2], to_date => $_[3],                          from_date => $_[2], to_date => $_[3],
1225                          message => $_[4]                          message => $_[4]
1226                  );                  ) };
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    
Legend:
Removed from v.84  
changed lines
  Added in v.85
  ViewVC Help
Powered by ViewVC 1.1.26