From cb5f21f8f960a003b80e7415f945d718f4b7d43e Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Tue, 15 Oct 2002 00:42:11 +0000
Subject: [PATCH] detail messaging
---
cmd/load/usdb.pl | 4 +---
perl/USDB.pm | 5 ++---
perl/cluster.pl | 2 +-
3 files changed, 4 insertions(+), 7 deletions(-)
diff --git a/cmd/load/usdb.pl b/cmd/load/usdb.pl
index b06f7c51..d2b10e30 100644
--- a/cmd/load/usdb.pl
+++ b/cmd/load/usdb.pl
@@ -15,6 +15,4 @@
my ($self, $line) = @_;
my @out;
return (1, $self->msg('e5')) if $self->priv < 9;
-my $r = USDB::load($line) if $line;
-USDB::init() if undef $r || $r =~ /^\d+ rec/;
-return (1, @out);
+return (1, USDB::init());
diff --git a/perl/USDB.pm b/perl/USDB.pm
index 69e1ead0..719ac66a 100644
--- a/perl/USDB.pm
+++ b/perl/USDB.pm
@@ -30,10 +30,9 @@ sub init
end();
if (tie %db, 'DB_File', $dbfn, O_RDONLY, 0664, $DB_BTREE) {
$present = 1;
- dbg("US Database loaded");
- } else {
- dbg("US Database not loaded");
+ return "US Database loaded";
}
+ return "US Database not loaded";
}
sub end
diff --git a/perl/cluster.pl b/perl/cluster.pl
index c4a61fd2..b89e5805 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -396,7 +396,7 @@ dbg("DXSpider Version $version, build $build started");
# load Prefixes
dbg("loading prefixes ...");
Prefix::load();
-USDB::init();
+dbg(USDB::init());
# load band data
dbg("loading band data ...");
--
2.43.0