#\r
# Copyright (c) 1999 Dirk Koopman G1TLH\r
#\r
-# $Id$\r
+#\r
\r
\r
my $self = shift;\r
$sort = "DXNT" if $dxchan->is_dxnet;\r
$sort = "AR-C" if $dxchan->is_arcluster;\r
$sort = "AK1A" if $dxchan->is_ak1a;\r
+ } else {\r
+ $sort = "LOCL" if $dxchan->conn->isa('IntMsg');\r
+ $sort = "WEB " if $dxchan->is_web;\r
+ $sort = "EXT " if $dxchan->conn->isa('ExtMsg');\r
}\r
my $name = $dxchan->user->name || " ";\r
my $ping = $dxchan->is_node && $dxchan != $main::me ? sprintf("%5.2f", $dxchan->pingave) : " ";\r
my $conn = $dxchan->conn;\r
my $ip = '';\r
if ($conn) {\r
- $ip = $conn->{peerhost} if exists $conn->{peerhost};\r
+ $ip = $dxchan->hostname;\r
$ip = "AGW Port ($conn->{agwport})" if exists $conn->{agwport};\r
}\r
push @out, sprintf "%10s $type $sort $t %-10.10s $ping $ip", $call, $name;\r