From 433209e1efed23493f25f1357d9c003696c1fb59 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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.43.0