Adding debug messages.

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;