X-Git-Url: https://git.distorted.org.uk/~mdw/odin-cgi/blobdiff_plain/fafab3ed4e7aff2275500662a3885a6b4d11f501..f22ba7c6dbec7a6e8b30d699e13909abe4d82589:/bin/mailredir.userv

diff --git a/bin/mailredir.userv b/bin/mailredir.userv
index ab8b54d..07cef16 100755
--- a/bin/mailredir.userv
+++ b/bin/mailredir.userv
@@ -68,7 +68,7 @@ Commands available:
 	dormant
 	help
 	list
-	new [-GENOPTS] [-RECOPTS] RECIP
+	new [-n COUNT] [-GENOPTS] [-RECOPTS] [RECIP]
 	release LPART ...
 	reserve [-GENOPTS] N
 	reserved
@@ -107,18 +107,23 @@ EOF
   my $gencls = Odin::default_generator_class $dom;
   my %gp = ();
   my %r = ();
+  my $n = 1;
   while (my $o = $op->get) {
-    gen_opt $dom, $gencls, %gp, $o, $op
-      or record_opt %r, $o, $op
-      or $op->unk;
+    if ($o eq "n") { $n = $op->intarg(undef, 0) }
+    else {
+      gen_opt $dom, $gencls, %gp, $o, $op
+	or record_opt %r, $o, $op
+	or $op->unk;
+    }
   }
   my @a = $op->rest;
   if (@a) { $r{recip} = shift @a; }
   !@a or $op->bad;
-  $op->ok or Odin::fail "usage: new [-GENOPTS] [-RECOPTS] RECIP";
+  $op->ok or
+    Odin::fail "usage: new [-n COUNT] [-GENOPTS] [-RECOPTS] [RECIP]";
   my $gen = $gencls->new($dom, \%gp);
-  my $l = Odin::new_redir $dom, $gen, %r;
-  print $l, "\n";
+  my @l = Odin::new_redir $dom, $gen, %r, $n;
+  print map { $_ . "\n" } @l;
 } elsif ($op eq "reserve") {
   my $op = Odin::OptParse->new(@ARGV);
   my $gencls = Odin::default_generator_class $dom;