projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of ssh://server/scm/spider
[spider.git]
/
cmd
/
dbshow.pl
diff --git
a/cmd/dbshow.pl
b/cmd/dbshow.pl
index 8d393b98985f2e783245816fa61b88371bf937da..e6e138c2b414ab75f05e3443a9976091b26f30ff 100644
(file)
--- a/
cmd/dbshow.pl
+++ b/
cmd/dbshow.pl
@@
-1,6
+1,6
@@
#!/usr/bin/perl
#
#!/usr/bin/perl
#
-# Database
update
routine
+# Database
enquiry
routine
#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
#
# Copyright (c) 1999 Dirk Koopman G1TLH
#
@@
-24,7
+24,7
@@
foreach $n (@db) {
if ($db->remote) {
# remote databases
if ($db->remote) {
# remote databases
- unless (Route::Node::get($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;
}
push @out, $self->msg('db4', uc $name, $db->remote);
last;
}
@@
-40,12
+40,13
@@
foreach $n (@db) {
# local databases can chain to remote ones
my $count;
# 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, "@f";
for (@f) {
-
#
push @out, $db->name . " $_";
+
push @out, $db->name . " $_";
my $value = $db->getkey($_) || "";
my $value = $db->getkey($_) || "";
-
push @out, $db->name . ": $_ :";
+
#
push @out, $db->name . ": $_ :";
if ($value) {
push @out, split /\n/, $value;
$count++;
if ($value) {
push @out, split /\n/, $value;
$count++;
@@
-54,7
+55,8
@@
foreach $n (@db) {
}
}
if ($count) {
}
}
if ($count) {
- push @out, $db->print('post');
+ my $post = $db->print('post');
+ push @out, $post if $post;
# last;
}
}
# last;
}
}