chiark
/
gitweb
/
~ijackson
/
d.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
613599c
)
list-all action
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Fri, 30 Aug 2013 15:18:31 +0000
(16:18 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Fri, 30 Aug 2013 15:18:31 +0000
(16:18 +0100)
fyvzl
patch
|
blob
|
history
diff --git
a/fyvzl
b/fyvzl
index e88256c4c56b666b0e03393cf58b3d7dbb0e6f9a..dc184d76a5587e04f55869643139a74db26bb33f 100755
(executable)
--- a/
fyvzl
+++ b/
fyvzl
@@
-204,14
+204,19
@@
sub action_show {
prow($row);
}
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);
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 {
}
sub action_list_user {
@@
-221,6
+226,15
@@
sub action_list_user {
action_list;
}
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 = { };
sub action_insert_exact {
die unless $priv;
my $row = { };