/[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 83 by dpavlin, Mon Aug 29 14:53:53 2005 UTC revision 85 by dpavlin, Wed Aug 31 16:53:21 2005 UTC
# Line 1119  sub AddMemberToList { Line 1119  sub AddMemberToList {
1119    
1120          if ($_[0] !~ m/^HASH/) {          if ($_[0] !~ m/^HASH/) {
1121                  return $nos->add_member_to_list(                  return $nos->add_member_to_list(
1122                          list => $_[0], email => $_[1], name => $_[2], ext_id => $_[4],                          list => $_[0], email => $_[1], name => $_[2], ext_id => $_[3],
1123                  );                  );
1124          } else {          } else {
1125                  return $nos->add_member_to_list( %{ shift @_ } );                  return $nos->add_member_to_list( %{ shift @_ } );
# 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.83  
changed lines
  Added in v.85
  ViewVC Help
Powered by ViewVC 1.1.26