From: Dirk Koopman Date: Sun, 26 Apr 2020 09:58:23 +0000 (+0100) Subject: add vestigial WWV and WCY 'progress' X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=931777f77682d04a945ef31886bd5ab6569fc55d;p=spider.git 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 c6b1da26..8d48c8a4 100644 --- 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 d1023270..0f7a1ff3 100644 --- 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 67ab9f47..8f64a7de 100644 --- a/perl/Messages +++ b/perl/Messages @@ -34,7 +34,7 @@ package DXM; chatinst => 'Entering Chatmode on $_[0], /EX to end, / 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])',