list-all action

diff --git a/fyvzl b/fyvzl
index e88256c4c56b666b0e03393cf58b3d7dbb0e6f9a..dc184d76a5587e04f55869643139a74db26bb33f 100755 (executable)
--- a/fyvzl
+++ b/fyvzl
@@ -204,14 +204,19 @@ sub action_show {
     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 {
@@ -221,6 +226,15 @@ 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 = { };