From 433209e1efed23493f25f1357d9c003696c1fb59 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 7 Mar 2023 23:23:03 +0000
Subject: [PATCH] adjust startup descriptions a bit

---
 perl/AnnTalk.pm |  1 -
 perl/Geomag.pm  |  1 -
 perl/Spot.pm    |  1 -
 perl/cluster.pl | 19 +++++++++++--------
 4 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm
index 71bd272f..defc0110 100644
--- a/perl/AnnTalk.pm
+++ b/perl/AnnTalk.pm
@@ -47,7 +47,6 @@ our @anncache;
 sub init
 {
 	my $t0 = [gettimeofday];
-	dbg("AnnTalk: loading up to $maxcache announcements into cache");
 	@anncache = DXLog::search(0, $maxcache, $main::systime, 'ann');
 	shift @anncache while @anncache > $maxcache;
 	my $l = @anncache;
diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index f8a1ec72..1a56305c 100644
--- a/perl/Geomag.pm
+++ b/perl/Geomag.pm
@@ -65,7 +65,6 @@ sub init
 	do "$param" if -e "$param";
 	# read in existing data
 	my $t0 = [gettimeofday];
-	dbg(sprintf "WWV read in upto %d records into cache", $maxcache);	
 	@cache = readfile($main::systime);
 	shift @cache while @cache > $maxcache;	
 	dbg(sprintf "WWV read in last %d records into cache in %dmS", scalar @cache, _diffms($t0));	
diff --git a/perl/Spot.pm b/perl/Spot.pm
index 1dbd96f0..c492d918 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -193,7 +193,6 @@ sub init
 	if ($spotcachedays > 0) {
 		my $t0 = [gettimeofday];
 		$spotcachedays = 2 if $spotcachedays < 2;
-		dbg "Spot::init - reading in $spotcachedays days of spots into cache"; 
 		for (my $i = 0; $i < $spotcachedays; ++$i) {
 			my $now = $today->sub($i);
 			my $fh = $fp->open($now);
diff --git a/perl/cluster.pl b/perl/cluster.pl
index 93e769ba..b45213a7 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -734,10 +734,11 @@ sub setup_start
 
 
 	# initialise the Geomagnetic data engine
-	dbg("Start WWV");
+	dbg("Start WWV system");
 	Geomag->init();
-	dbg("Start WCY");
+	dbg("Start WCY system");
 	WCY->init();
+	dbg("Start Announce and Talk system");
 	AnnTalk::init();			# initialise announce cache
    
 
@@ -757,24 +758,26 @@ sub setup_start
 	Spot->init();
 
 	# read in any existing message headers and clean out old crap
-	dbg("reading existing message headers ...");
+	dbg("Reading existing Message/Bulletine headers ...");
 	DXMsg->init();
 	DXMsg::clean_old();
 
 	# read in any cron jobs
-	dbg("reading cron jobs ...");
+	dbg("Reading cron jobs ...");
 	DXCron->init();
 
 	# read in database desriptors
-	dbg("reading database descriptors ...");
+	dbg("Reading database descriptors ...");
 	DXDb::load();
 
-	dbg("starting RBN ...");
+	dbg("Rtarting RBN ...");
 	RBN::init();
 
 	# starting local stuff
-	dbg("doing local initialisation ...");
+	dbg("Starting DXQsl system");
 	QSL::init(1);
+
+	dbg("Ooing local initialisations ...");
 	if (defined &Local::init) {
 		eval {
 			Local::init();
@@ -784,7 +787,7 @@ sub setup_start
 
 
 	# this, such as it is, is the main loop!
-	dbg("orft we jolly well go ...");
+	dbg("Orft we jolly well go ...");
 
 	#open(DB::OUT, "|tee /tmp/aa");
 }
-- 
2.34.1