3 # usage: ../fyvzl [-lLENGTH] [-mMAXPERUSER] [-dDEFDOM] DATABASE-FILE ACTION ARG
6 # update LOCAL-PART REDIRECT-TO
12 # insert-exact LOCAL-PART USER REDIRECT
13 # donate LOCAL-PART USER
14 # enable-user|disable-user USER
22 our $maxperuser = 10000;
29 die "too few arguments\n" unless @ARGV;
31 die "option too late on command line\n" if $v =~ m/^-/;
36 die "too many arguments\n" if @ARGV;
42 $dis_q ||= $dbh->prepare("SELECT * FROM disabled_users WHERE user=?");
44 my $row = $dis_q->fetchrow_arrayref();
50 my $u = $row->{'user'};
52 if (!defined $last_u or $last_u ne $u) {
53 print "# user $u ".(isdisabled($u) ? 'disabled' : 'enabled')."\n";
56 if (defined $row->{'redirect'}) {
57 print "$row->{'localpart'}: $row->{'redirect'}\n";
59 print "# reject $row->{'localpart'}\n";
67 read(R, $ch, 1) == 1 or die $!;
70 next unless $o-$v+$lim < 256;
71 # print STDERR "goodrand($lim)=$v\n";
78 return $t if $t =~ m/\@/;
79 die "unqualified redirection target\n" unless defined $defdom;
80 return $t.'@'.$defdom;
86 "INSERT INTO addrs (".
87 (join ",", sort keys %$row).
88 ") VALUES (?, ?, ?) ";
89 $dbh->do($stmt, {}, map { $row->{$_} } sort keys %$row);
94 if (@ARGV) { $redirect = nextarg; nomoreargs; } else { $redirect = $user; }
95 $redirect = qualify $redirect;
96 open R, "/dev/urandom" or die $!;
98 my $q = $dbh->prepare("SELECT localpart FROM addrs WHERE localpart=?");
101 $s = chr(ord('a')+goodrand(26));
102 while (length $s < $randlength) {
103 my $v = goodrand(36);
108 # print STDERR "$s\n";
110 my $row = $q->fetchrow_arrayref();
114 my $row = {'localpart'=>$s, 'user'=>$user, 'redirect'=>$redirect};
121 my ($localpart) = @_;
122 my $q = $dbh->prepare("SELECT * FROM addrs WHERE localpart=?");
123 $q->execute($localpart);
124 my $row = $q->fetchrow_hashref();
125 die "unknown localpart\n" unless defined $row;
126 die "not owned by you\n" unless $priv || $row->{user} eq $user;
131 my $localpart = nextarg;
132 my $redirect = qualify nextarg;
134 begin_row($localpart);
135 $dbh->do("UPDATE addrs SET redirect=? WHERE localpart=?",
136 {}, $redirect, $localpart);
141 my $localpart = nextarg;
143 begin_row($localpart);
144 $dbh->do("UPDATE addrs SET redirect=NULL WHERE localpart=?",
150 my $localpart = nextarg;
152 my $row = begin_row($localpart);
158 my $q = $dbh->prepare("SELECT * FROM addrs WHERE user=?".
159 " ORDER BY localpart");
161 while (my $row = $q->fetchrow_hashref()) {
166 sub action_list_user {
173 sub action_insert_exact {
175 my $localpart = nextarg;
177 my $redirect = nextarg;
179 my $row = {'localpart'=>$localpart, 'user'=>$user, 'redirect'=>$redirect};
186 my $localpart = nextarg;
187 my $newuser = nextarg;
189 begin_row($localpart);
190 $dbh->do('UPDATE addrs SET user=? WHERE localpart=?',
191 {}, $newuser, $localpart);
195 sub action_enable_user {
199 $dbh->do('DELETE FROM disabled_users WHERE user=?',{},$user);
203 sub action_disable_user {
207 $dbh->do('INSERT INTO disabled_users VALUES user (?)',{},$user);
212 last unless $ARGV[0] =~ m/^-/;
217 } elsif (m/^-m(\d+)$/) {
219 } elsif (m/^-d(\S+)$/) {
222 die "unknown option \`$_'\n";
226 my $dbfile = nextarg();
228 if (defined $ENV{'USERV_USER'}) {
230 $user = $ENV{'USERV_USER'};
233 $user = ((getpwuid $<)[0]) or die;
236 $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","","",
237 { PrintError => 0, AutoCommit => 0, RaiseError => 1 })
240 my $action = nextarg();
242 { no strict qw(refs); &{"action_$action"}(); }