#!/usr/bin/perl -w
#
-# usage: ../fyvzl [-lLENGTH] [-mMAXPERUSER] [-qQUALDOM] DATABASE-FILE ACTION ARG
+# usage: ../fyvzl [-lLENGTH] [-mMAXPERUSER] [-dDOM] [-qQUALDOM] DATABASE-FILE ACTION ARG
# actions
# create [REDIRECT-TO]
# update LOCAL-PART REDIRECT-TO
our $maxperuser = 10000;
our $qualdom;
our $dbh;
+our $dom;
our $user;
our $priv;
print "# user $u ".(isdisabled($u) ? 'disabled' : 'enabled')."\n";
$last_u = $u;
}
+ my $pa = $row->{'localpart'};
+ $pa .= '@'.$dom if defined $dom;
if (defined $row->{'redirect'}) {
- print "$row->{'localpart'}: $row->{'redirect'}\n";
+ print "$pa: $row->{'redirect'}\n";
} else {
- print "# reject $row->{'localpart'}\n";
+ print "# reject $pa\n";
}
}
$randlength = $1;
} elsif (m/^-m(\d+)$/) {
$maxperuser = $1;
+ } elsif (m/^-d(\S+)$/) {
+ $dom = $1;
} elsif (m/^-q(\S+)$/) {
$qualdom = $1;
} else {
no-set-environment
no-disconnect-hup
no-suppress-args
- execute /usr/local/lib/fyvzl/fyvzl \
+ execute /usr/local/lib/fyvzl/fyvzl -dfyvzl.net \
-qchiark.greenend.org.uk /var/lib/mail/fyvzl.db
fi