| 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; |
Parent Directory
| 
Revision Log
| 
Patch