From d4ff3dc3e6416f64e50a16e7b0daefa456f34048 Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 21 Dec 2004 09:47:04 +0000 Subject: [PATCH] added AGW port --- Changes | 2 ++ cmd/who.pl | 75 ++++++++++++++++++++++++++++-------------------------- 2 files changed, 41 insertions(+), 36 deletions(-) diff --git a/Changes b/Changes index 22840d78..787740f9 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +21Dec04======================================================================= +1. added AGW port no after an example by IW5DEZ. 20Dec04======================================================================= 1. updated create_prefix.pl to only use (supplied) wpxloc.raw and cty.dat 2. Added IG9, GM/S, 4U1V and some other detail changes to make it compatible diff --git a/cmd/who.pl b/cmd/who.pl index 6ec7dba3..66f937e6 100644 --- a/cmd/who.pl +++ b/cmd/who.pl @@ -1,36 +1,39 @@ -# -# who : is online -# a complete list of stations connected -# -# Copyright (c) 1999 Dirk Koopman G1TLH -# -# $Id$ - - -my $self = shift; -my $dxchan; -my @out; - -push @out, " Callsign Type Started Name Ave RTT Link"; - -foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all ) { - my $call = $dxchan->call(); - my $t = cldatetime($dxchan->startt); - my $type = $dxchan->is_node ? "NODE" : "USER"; - my $sort = " "; - if ($dxchan->is_node) { - $sort = "DXSP" if $dxchan->is_spider; - $sort = "CLX " if $dxchan->is_clx; - $sort = "DXNT" if $dxchan->is_dxnet; - $sort = "AR-C" if $dxchan->is_arcluster; - $sort = "AK1A" if $dxchan->is_ak1a; - } - my $name = $dxchan->user->name || " "; - my $ping = $dxchan->is_node && $dxchan != $main::me ? sprintf("%5.2f", $dxchan->pingave) : " "; - my $conn = $dxchan->conn; - my $ip = ''; - $ip = $conn->{peerhost} if $conn && $conn->{peerhost}; - push @out, sprintf "%10s $type $sort $t %-10.10s $ping $ip", $call, $name; -} - -return (1, @out) +# +# who : is online +# a complete list of stations connected +# +# Copyright (c) 1999 Dirk Koopman G1TLH +# +# $Id$ + + +my $self = shift; +my $dxchan; +my @out; + +push @out, " Callsign Type Started Name Ave RTT Link"; + +foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all ) { + my $call = $dxchan->call(); + my $t = cldatetime($dxchan->startt); + my $type = $dxchan->is_node ? "NODE" : "USER"; + my $sort = " "; + if ($dxchan->is_node) { + $sort = "DXSP" if $dxchan->is_spider; + $sort = "CLX " if $dxchan->is_clx; + $sort = "DXNT" if $dxchan->is_dxnet; + $sort = "AR-C" if $dxchan->is_arcluster; + $sort = "AK1A" if $dxchan->is_ak1a; + } + my $name = $dxchan->user->name || " "; + my $ping = $dxchan->is_node && $dxchan != $main::me ? sprintf("%5.2f", $dxchan->pingave) : " "; + my $conn = $dxchan->conn; + my $ip = ''; + if ($conn) { + $ip = $conn->{peerhost} if exists $conn->{peerhost}; + $ip = "AGW Port ($conn->{agwport})" if exists $conn->{agwport}; + } + push @out, sprintf "%10s $type $sort $t %-10.10s $ping $ip", $call, $name; +} + +return (1, @out) -- 2.43.0