fix unset/logininfo help

diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp
index 6c6cdb90fe4baa1af321fefd35cca2461b82182d..592b71827a5751e60c0157999f87c07431ecc1e0 100644 (file)
--- a/cmd/Commands_en.hlp
+++ b/cmd/Commands_en.hlp
@@ -1581,8 +1581,8 @@ what your latitude and longitude is. If you have not yet done a SET/QRA
 then this command will set your QRA locator for you. For example:-
   SET/LOCATION 52 22 N 0 57 E
 
-=== 0^SET/LOGININFO^Inform when a station logs in locally
-=== 0^UNSET/LOGININFO^Inform when a station logs out locally
+=== 0^SET/LOGININFO^Inform when a station logs in/out locally
+=== 0^UNSET/LOGININFO^No longer inform when a station logs in/out locally
 
 === 9^SET/LOCKOUT <call>^Stop a callsign connecting to the cluster
 === 9^UNSET/LOCKOUT <call>^Allow a callsign to connect to the cluster

diff --git a/cmd/links.pl b/cmd/links.pl
index 078d5bc83eedfd5917a28fd86f223463b1845d83..17c12ff1c11a58829f629c5a055213ef600e0be1 100644 (file)
--- a/cmd/links.pl
+++ b/cmd/links.pl
@@ -28,6 +28,7 @@ foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all_nodes ) {
        my $lastt = $nowt - ($dxchan->lastping);
        my $pingint = $dxchan->pingint;
        my $ping = $dxchan->is_node && $dxchan != $main::me ? sprintf("%8.2f",$dxchan->pingave) : "";
+       $sort = 'ANEA' if $dxchan->is_aranea;
        $sort = "DXSP" if $dxchan->is_spider;
        $sort = "CLX " if $dxchan->is_clx;
        $sort = "DXNT" if $dxchan->is_dxnet;

diff --git a/cmd/who.pl b/cmd/who.pl
index 66f937e64541f08ad2e515e3bc9f026b0038b43c..12010d818ff7498c37fce3d444da5ab3fb4b58e3 100644 (file)
--- a/cmd/who.pl
+++ b/cmd/who.pl
@@ -19,6 +19,7 @@ foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all ) {
        my $type = $dxchan->is_node ? "NODE" : "USER";\r
        my $sort = "    ";\r
        if ($dxchan->is_node) {\r
+               $sort = 'ANEA' if $dxchan->is_aranea;\r
                $sort = "DXSP" if $dxchan->is_spider;\r
                $sort = "CLX " if $dxchan->is_clx;\r
                $sort = "DXNT" if $dxchan->is_dxnet;\r

diff --git a/techdoc/protocol.pod b/techdoc/protocol.pod
index d6b4a7ee475cdc0891f15f4092bd7b285dc7452c..426241a4efb68f25e54352c7633b7a038cf8a974 100644 (file)
--- a/techdoc/protocol.pod
+++ b/techdoc/protocol.pod
@@ -251,7 +251,7 @@ that are concatenated with a sequence number (0-65535)
 
 The date portion is constructed as:
 
-  my $date = ((((gmtime)[3] < 1) | $ntpflag) < 18) |  (time % 86400);
+  my $date = ((((gmtime)[3] << 1) | $ntpflag) << 18) |  (time % 86400);
 
 The sequence number is simply an unsigned short (or 16 bit) number
 starting at 0.