/[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 78 by dpavlin, Thu Aug 25 00:56:06 2005 UTC revision 79 by dpavlin, Thu Aug 25 11:58:15 2005 UTC
# Line 1174  sub MessagesReceived { Line 1174  sub MessagesReceived {
1174          my $self = shift;          my $self = shift;
1175    
1176          if ($_[0] !~ m/^HASH/) {          if ($_[0] !~ m/^HASH/) {
1177                  die "need both list and email" unless (scalar @_ < 2);                  die "need at least list or email" unless (scalar @_ < 2);
1178                  return $nos->received_messages(                  return $nos->received_messages(
1179                          list => $_[0], email => $_[1],                          list => $_[0], email => $_[1],
1180                  );                  );
1181          } else {          } else {
1182                  my $arg = {@_};                  my $arg = shift;
1183                  die "need both list and email" unless ($arg->{'list'} && $arg->{'email'});                  die "need list or email argument" unless ($arg->{'list'} || $arg->{'email'});
1184                  return $nos->received_messages( $arg );                  return $nos->received_messages( $arg );
1185          }          }
1186  }  }
Legend:
Removed from v.78  
changed lines
  Added in v.79
  ViewVC Help
Powered by ViewVC 1.1.26