add vestigial WWV and WCY 'progress'

These are not in their final form. Please don't give me a hard time about
that.

Changed sh/cl message again.

diff --git a/cmd/crontab b/cmd/crontab
index c6b1da26d4805dae491e60449cc650467b1be32e..8d48c8a42896e74d57284677d2d93404a9a15723 100644 (file)
--- a/cmd/crontab
+++ b/cmd/crontab
@@ -6,5 +6,5 @@
 # for doing connections and things
 #
 2 0 * * * DXDebug::dbgclean()
-30 2 * * * run_cmd("export_users")
+30 2 * * 3 run_cmd("export_users")
 0 3 * * * Spot::daily()

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index d1023270291a4be2209741b4d5197c9f63b4974f..0f7a1ff381c08c409a9c98eec162ca1908076ceb 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -969,6 +969,7 @@ sub handle_23
 
        # note this only takes the first one it gets
        Geomag::update($d, $pc->[2], $sfi, $k, $i, @$pc[6..8], $r);
+       dbg("WWV: $d $pc->[2], sfi:$sfi k:$k info:$i $pc->[6] $pc->[7] $pc->[8] $r") if isdbg('progress');
 
        if (defined &Local::wwv) {
                my $rep;
@@ -1372,6 +1373,7 @@ sub handle_73
        }
 
        my $wcy = WCY::update($d, @$pc[2..12]);
+       dbg("WCY: " . join ', ', @$pc[2..12]) if isdbg('progress');
 
        if (defined &Local::wcy) {
                my $rep;

diff --git a/perl/Messages b/perl/Messages
index 67ab9f4754fa3c0980a6499bdb389b90e6cc7baf..8f64a7dedcbeb479cd14355522aaa89a2b848a2e 100644 (file)
--- a/perl/Messages
+++ b/perl/Messages
@@ -34,7 +34,7 @@ package DXM;
                                chatinst => 'Entering Chatmode on $_[0], /EX to end, /<cmd> to run a command',
                                chatprompt => 'Chat ($_[0])>',
                                chattoomany => 'Not allowed, already in $_[1], use /chat $_[0]',
-                               cluster => ' Nodes: $_[0] / $_[1] total  Users: $_[2] / $_[3] total  Max Users: $_[4] / $_[5] total  Uptime: $_[6]',
+                               cluster => 'Nodes: $_[0] / $_[1] Clr Users: $_[2] / $_[3] Clr Max Users: $_[4] / $_[5] Clr Uptime: $_[6]',
                                conother => 'Sorry $_[0] you are connected to me on another port',
                                concluster => 'Sorry $_[0] you are already connected elsewhere on the cluster (on $_[1])',
                                contomany => 'Sorry $_[0] but you are already connected to $_[1] other nodes (on $_[2])',