fix unset/logininfo help

This commit is contained in:
minima 2005-01-25 10:20:17 +00:00
parent d949d84b42
commit f9254447dd
4 changed files with 5 additions and 3 deletions

View File

@ -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

View File

@ -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;

View File

@ -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;

View File

@ -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.