sort out the remote db handling

[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;
-               push @out, $db->print('pre');
+               my $pre = $db->print('pre');
+               push @out, $pre if defined $pre;
 #              push @out, "@f";
                for (@f) {
-#                      push @out, $db->name . " $_";
+                       push @out, $db->name . " $_";
                        my $value = $db->getkey($_) || "";
-                       push @out, $db->name . ": $_ :";
+#                      push @out, $db->name . ": $_ :";
                        if ($value) {
                                push @out, split /\n/, $value;
                                $count++;
@@ -54,7 +55,8 @@ foreach  $n (@db) {
                        }
                }
                if ($count) {
-                       push @out, $db->print('post');
+                       my $post = $db->print('post');
+                       push @out, $post if $post;
 #                      last;
                }
        }