X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fdbshow.pl;h=309ce8a51d61cb16d3edcee339097dacc30ffcc1;hb=5a06cd7853e8bff86a0f17854c0791bb3f85c395;hp=1835ed396afe3469306b209c387acc376645483c;hpb=6624dcdf07d628e8d6a16fc6549edf40be25b7b2;p=spider.git diff --git a/cmd/dbshow.pl b/cmd/dbshow.pl index 1835ed39..309ce8a5 100644 --- a/cmd/dbshow.pl +++ b/cmd/dbshow.pl @@ -35,17 +35,18 @@ foreach $n (@db) { my $n = DXDb::newstream($self->call); DXProt::route(undef, $db->remote, DXProt::pc44($main::mycall, $db->remote, $n, uc $db->name,uc $_, $self->call)); } - last; +# last; } else { # 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,8 +55,9 @@ foreach $n (@db) { } } if ($count) { - push @out, $db->print('post'); - last; + my $post = $db->print('post'); + push @out, $post if $post; +# last; } } }