X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fdbshow.pl;h=309ce8a51d61cb16d3edcee339097dacc30ffcc1;hb=5a06cd7853e8bff86a0f17854c0791bb3f85c395;hp=8d393b98985f2e783245816fa61b88371bf937da;hpb=d53c6bd649c5e36ca2b7a780ebbce657f90667fd;p=spider.git diff --git a/cmd/dbshow.pl b/cmd/dbshow.pl index 8d393b98..309ce8a5 100644 --- 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; } }