projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
a nominially working aranea with DX commands converted
[spider.git]
/
cmd
/
dbshow.pl
diff --git
a/cmd/dbshow.pl
b/cmd/dbshow.pl
index 8d393b98985f2e783245816fa61b88371bf937da..309ce8a51d61cb16d3edcee339097dacc30ffcc1 100644
(file)
--- a/
cmd/dbshow.pl
+++ b/
cmd/dbshow.pl
@@
-40,12
+40,13
@@
foreach $n (@db) {
# local databases can chain to remote ones
my $count;
# local databases can chain to remote ones
my $count;
- push @out, $db->print('pre');
+ my $pre = $db->print('pre');
+ push @out, $pre if defined $pre;
# push @out, "@f";
for (@f) {
# push @out, "@f";
for (@f) {
-
#
push @out, $db->name . " $_";
+
push @out, $db->name . " $_";
my $value = $db->getkey($_) || "";
my $value = $db->getkey($_) || "";
-
push @out, $db->name . ": $_ :";
+
#
push @out, $db->name . ": $_ :";
if ($value) {
push @out, split /\n/, $value;
$count++;
if ($value) {
push @out, split /\n/, $value;
$count++;
@@
-54,7
+55,8
@@
foreach $n (@db) {
}
}
if ($count) {
}
}
if ($count) {
- push @out, $db->print('post');
+ my $post = $db->print('post');
+ push @out, $post if $post;
# last;
}
}
# last;
}
}