list-user <user>
insert-exact <addr> <user> <redirect> <comment>
donate <addr> <user>
+ list-users
enable-user|disable-user <user>
default generation method is alphanum
END
listq($q)
}
+sub action_list_users {
+ die unless $priv;
+ nomoreargs;
+ my $qo = $dbh->prepare("SELECT user, count(*) AS count FROM addrs".
+ " GROUP BY user ORDER BY user");
+ my $qd = $dbh->prepare("SELECT 1 FROM disabled_users WHERE user = ?");
+ my $qe = $dbh->prepare("SELECT count(*) FROM addrs".
+ " WHERE user = ? AND NOT redirect=''");
+ $qo->execute();
+ printf "# total inuse ena user\n" or die $!;
+ while (my $row = $qo->fetchrow_hashref) {
+ my $tu = $row->{user};
+ $qd->execute($tu);
+ $qe->execute($tu);
+ my ($disabled) = $qd->fetchrow_array();
+ my ($inuse) = $qe->fetchrow_array();
+ printf "%6d %6d %s %s\n",
+ $row->{count},
+ $inuse, $disabled ? '-' : 'y',
+ $tu
+ or die $!;
+ }
+}
+
sub action_insert_exact {
die unless $priv;
my $row = { };