From: minima <minima>
Date: Tue, 25 Jan 2005 10:20:17 +0000 (+0000)
Subject: fix unset/logininfo help
X-Git-Tag: R_1_52~215
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=f9254447dd136868dcc8582f438ebf8984641de2

fix unset/logininfo help
---

diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp
index 6c6cdb90..592b7182 100644
--- 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 078d5bc8..17c12ff1 100644
--- 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 66f937e6..12010d81 100644
--- 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";
 	my $sort = "    ";
 	if ($dxchan->is_node) {
+		$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/techdoc/protocol.pod b/techdoc/protocol.pod
index d6b4a7ee..426241a4 100644
--- 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.