From a6bd894f302df904588df739f79f1b17b329a0e4 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Thu, 3 May 2012 19:47:20 +0200
Subject: Adding debug messages.

---
 fripost-newalias | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'fripost-newalias')

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;
-- 
cgit v1.2.3