#!/usr/bin/perl -w
#
-# usage: ../fyvzl [-lLENGTH] [-mMAXPERUSER] [-dDEFDOM] DATABASE-FILE ACTION ARG
+# usage: ../fyvzl [-lLENGTH] [-mMAXPERUSER] [-qQUALDOM] DATABASE-FILE ACTION ARG
# actions
# create [REDIRECT-TO]
# update LOCAL-PART REDIRECT-TO
our $randlength = 6;
our $maxperuser = 10000;
-our $defdom;
+our $qualdom;
our $dbh;
our $user;
our $priv;
sub qualify ($) {
my ($t) = @_;
return $t if $t =~ m/\@/;
- die "unqualified redirection target\n" unless defined $defdom;
- return $t.'@'.$defdom;
+ die "unqualified redirection target\n" unless defined $qualdom;
+ return $t.'@'.$qualdom;
}
sub insertrow ($) {
$randlength = $1;
} elsif (m/^-m(\d+)$/) {
$maxperuser = $1;
- } elsif (m/^-d(\S+)$/) {
- $defdom = $1;
+ } elsif (m/^-q(\S+)$/) {
+ $qualdom = $1;
} else {
die "unknown option \`$_'\n";
}
no-set-environment
no-disconnect-hup
execute /usr/local/lib/fyvzl/fyvzl \
- -dchiark.greenend.org.uk /var/lib/mail/fyvzl.db
+ -qchiark.greenend.org.uk /var/lib/mail/fyvzl.db
fi