mods to msg_status

[spider.git] / cmd / dbshow.pl

diff --git a/cmd/dbshow.pl b/cmd/dbshow.pl
index 1c3b0139e2529017bc4909b104633914e4aebbdb..967cb469e90ff6b3e3112593a78d07b96799fb69 100644 (file)
--- a/cmd/dbshow.pl
+++ b/cmd/dbshow.pl
@@ -30,6 +30,7 @@ foreach  $n (@db) {
                }
                
                push @out, $self->msg('db11', $db->remote);
+               push @f, " " unless @f;
                for (@f) {
                        my $n = DXDb::newstream($self->call);
                        DXProt::route(undef, $db->remote, DXProt::pc44($main::mycall, $db->remote, $n, uc $db->name,uc $_, $self->call));
@@ -43,7 +44,7 @@ foreach  $n (@db) {
                push @out, "@f";
                for (@f) {
                        push @out, $db->name . " $_";
-                       my $value = $db->getkey($_);
+                       my $value = $db->getkey($_) || "";
                        push @out, $db->name . ": $_ : $value";
                        if ($value) {
                                push @out, split /\n/, $value;