fix console.pl max scroll depth

[spider.git] / cmd / dbshow.pl

diff --git a/cmd/dbshow.pl b/cmd/dbshow.pl
index 967cb469e90ff6b3e3112593a78d07b96799fb69..e6e138c2b414ab75f05e3443a9976091b26f30ff 100644 (file)
--- a/cmd/dbshow.pl
+++ b/cmd/dbshow.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 #
-# Database update routine
+# Database enquiry routine
 #
 # Copyright (c) 1999 Dirk Koopman G1TLH
 #
@@ -24,7 +24,7 @@ foreach  $n (@db) {
        if ($db->remote) {
 
                # remote databases
-               unless (DXCluster->get_exact($db->remote) || DXChannel->get($db->remote)) {
+               unless (Route::Node::get($db->remote) || DXChannel::get($db->remote)) {
                        push @out, $self->msg('db4', uc $name, $db->remote);
                        last;
                }
@@ -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');
-               push @out, "@f";
+               my $pre = $db->print('pre');
+               push @out, $pre if defined $pre;
+#              push @out, "@f";
                for (@f) {
                        push @out, $db->name . " $_";
                        my $value = $db->getkey($_) || "";
-                       push @out, $db->name . ": $_ : $value";
+#                      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;
                }
        }
 }