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

diff --git a/bin/mailredir.userv b/bin/mailredir.userv
index 07cef16..f5acb06 100755
--- a/bin/mailredir.userv
+++ b/bin/mailredir.userv
@@ -72,7 +72,7 @@ Commands available:
 	release LPART ...
 	reserve [-GENOPTS] N
 	reserved
-	set [-RECOPTS] LPART
+	set [-RECOPTS] LPART ...
 
 GENOPTS ::= [-g GENERATOR] [-p PARAM=VALUE]
 RECOPTS ::= [-c COMMENT] [-r RECIP] [-x EXPIRES]
@@ -165,10 +165,9 @@ EOF
       or $op->unk;
   }
   my @a = $op->rest;
-  my $l = shift @a or $op->bad;
-  @a and $op->bad;
-  $op->ok or Odin::fail "usage: set [-RECOPTS] LPART";
-  Odin::modify_redir $dom, $l, %r;
+  @a or $op->bad;
+  $op->ok or Odin::fail "usage: set [-RECOPTS] LPART ...";
+  Odin::modify_redir $dom, %r, @a;
 } else {
   Odin::fail "unknown operation `$op'";
 }