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; |