X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=blobdiff_plain;f=fyvzl;h=dc184d76a5587e04f55869643139a74db26bb33f;hb=9ff98feefd4937c61bc4a11b690f716305697de8;hp=e88256c4c56b666b0e03393cf58b3d7dbb0e6f9a;hpb=613599c0e3794697c9ff5c64b9bd844bcf4de408;p=d.git

diff --git a/fyvzl b/fyvzl
index e88256c..dc184d7 100755
--- 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 = { };