/[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 81 by dpavlin, Fri Aug 26 06:13:44 2005 UTC revision 83 by dpavlin, Mon Aug 29 14:53:53 2005 UTC
# Line 866  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 1224  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    
Legend:
Removed from v.81  
changed lines
  Added in v.83
  ViewVC Help
Powered by ViewVC 1.1.26