diff options
Diffstat (limited to 'fripost-newalias')
| -rwxr-xr-x | fripost-newalias | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fripost-newalias b/fripost-newalias index 4d448b7..e00adcb 100755 --- a/fripost-newalias +++ b/fripost-newalias @@ -11,7 +11,7 @@ fripost-newalias - Add a new alias to the system =head1 SYNOPSIS -B<fripost-newalias> [B<--verbose>] [B<--debug>] [B<--pretend>] +B<fripost-newalias> [B<--verbose>] [B<--debug>] [B<--pretend>] [I<goto> [I<from>...]] =head1 DESCRIPTION @@ -144,7 +144,7 @@ my $ldap = Fripost::Schema->new( $conf ); my $goto = fix_username(shift @ARGV); my @addr = @ARGV; $goto //= prompt_email("Alias goto address: ", 'is_user'); -@addr || push @addr, prompt "Alias from address: "; +@addr || push @addr, (split /, */, prompt "Alias from address(es): "); # Show goto adress say "goto adress: $goto"; @@ -171,7 +171,7 @@ if (@addr == 0) { warn "No valid destination adresses. Aborting...\n"; exit 1; } -say "from adress: " . (join " ", @addr); +say "from adress(es): " . (join ", ", @addr); confirm_or_abort(); @@ -229,7 +229,7 @@ my $msg = MIME::Lite->new( $msg->data($data); $msg->replace(To => $goto); - + if (!$conf->{pretend}) { confirm_or_abort("Send confirmation? "); $msg->send; |