+} 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;