prow($row);
}
+sub listq ($) {
+ my ($q) = @_;
+ while (my $row = $q->fetchrow_hashref()) {
+ prow($row);
+ }
+}
+
sub action_list {
nomoreargs;
my $q = $dbh->prepare("SELECT * FROM addrs WHERE user=?".
" ORDER BY localpart");
$q->execute($user);
- while (my $row = $q->fetchrow_hashref()) {
- prow($row);
- }
+ listq($q);
}
sub action_list_user {
action_list;
}
+sub action_list_all {
+ die unless $priv;
+ nomoreargs;
+ my $q = $dbh->prepare("SELECT * FROM addrs".
+ " ORDER BY user, localpart");
+ $q->execute();
+ listq($q)
+}
+
sub action_insert_exact {
die unless $priv;
my $row = { };