--- trunk/sender.pl	2005/06/22 12:26:54	61
+++ trunk/sender.pl	2005/08/02 18:28:57	69
@@ -45,6 +45,7 @@
 	"from=s" => \$opt->{'from'},
 	"driver=s" => \$opt->{'email_send_driver'},
 	"sleep=i" => \$opt->{'sleep'},
+	"aliases=s" => \$opt->{'aliases'},
 );
 
 my $nos = new Nos(
@@ -81,6 +82,9 @@
 You can also add C<--from='Full name of list'> to specify full name (comment)
 in outgoing e-mail.
 
+Optional parametar C<--aliases='/full/path/to/aliases'> can be used to
+specify aliases file other than C</etc/aliases>.
+
 =cut
 
 if ($list_name = $opt->{'new'}) {
@@ -90,10 +94,13 @@
 
 	die "need e-mail address for list (as argument or on STDIN)\n" unless ($email);
 
+	my $aliases = $opt->{'aliases'} || '/etc/aliases';
+
 	my $id = $nos->new_list(
 		list => $list_name,
 		from => ($opt->{'from'} || ''),
 		email => $email,
+		aliases => $aliases,
 	) || die "can't add list $list_name\n";
 
 	print "added list $list_name with ID $id\n";