sub nextarg () {
die "too few arguments\n" unless @ARGV;
my $v = shift @ARGV;
- die "option too late on command line\n" if $v =~ m/^-/;
+ die "option in wrong place on command line\n" if $v =~ m/^-/;
return $v;
}
sub action_choose {
genopts;
+ $|=1;
my $template = rhsargs({'redirect'=>$user, 'comment'=>''});
$template->{'user'} = $user;
prepare_create();
1;
}) {
my $newrow = { %$template, 'localpart' => $s };
+ insertrow($newrow);
$dbh->commit();
prow($newrow);
} else {