adjust startup descriptions a bit

diff --git a/perl/AnnTalk.pm b/perl/AnnTalk.pm
index 71bd272f2736dc6e28642035f92a86311607260c..defc0110aa250848e7a30e7925ee89ff8200a489 100644 (file)
--- 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 f8a1ec720c0d820f9c82ee1e3eee9635098b57e2..1a56305c45a551043bac6d40953bc813d00f0e6d 100644 (file)
--- 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 1dbd96f088bad8c9f84cb138c05c4a55f485a7fb..c492d918ab98a5a6941d3fb5a3c6451327a73223 100644 (file)
--- 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 93e769ba4e788a2d4ccf0dcac3d0e592b2f7fb94..b45213a71ba4a5dd4f2b18bb43b24c08a2db989d 100755 (executable)
--- 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");
 }