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

diff --git a/bin/mailredir.userv b/bin/mailredir.userv
index f5acb06..fb2d36b 100755
--- a/bin/mailredir.userv
+++ b/bin/mailredir.userv
@@ -66,6 +66,7 @@ Commands available:
 
 	disable LPART ...
 	dormant
+	giveaway LPART OWNER
 	help
 	list
 	new [-n COUNT] [-GENOPTS] [-RECOPTS] [RECIP]
@@ -95,6 +96,13 @@ EOF
     my ($lpart, $expire, $recip, $comment) = @$r;
     Odin::print_columns $lpart => 24, $recip => 32, $comment => 0;
   }
+} elsif ($op eq "giveaway") {
+  @ARGV >= 2 or Odin::fail "usage: giveaway OWNER LPART ...";
+  my $owner = shift @ARGV;
+  my @l = @ARGV;
+  getpwnam $owner or Odin::fail "unknown user `$owner'";
+  my %r = (owner => $owner);
+  Odin::modify_redir $dom, %r, @l;
 } elsif ($op eq "reserved") {
   @ARGV and Odin::fail "usage: reserved";
   for my $r (Odin::redir_query Odin::open_db, $dom, $Odin::WHO,