projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix sh/dx/30 problem
[spider.git]
/
cmd
/
who.pl
diff --git
a/cmd/who.pl
b/cmd/who.pl
index 66f937e64541f08ad2e515e3bc9f026b0038b43c..4371b08d3ed3e28afbf162129eaabc11e2afb65b 100644
(file)
--- a/
cmd/who.pl
+++ b/
cmd/who.pl
@@
-4,7
+4,7
@@
#
\r
# Copyright (c) 1999 Dirk Koopman G1TLH
\r
#
\r
#
\r
# Copyright (c) 1999 Dirk Koopman G1TLH
\r
#
\r
-#
$Id$
\r
+#
\r
\r
\r
my $self = shift;
\r
\r
\r
my $self = shift;
\r
@@
-24,13
+24,18
@@
foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all ) {
$sort = "DXNT" if $dxchan->is_dxnet;
\r
$sort = "AR-C" if $dxchan->is_arcluster;
\r
$sort = "AK1A" if $dxchan->is_ak1a;
\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
+ $type = "RBN " if $dxchan->is_rbn; # Yes, this is NOT a typo
\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
}
\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
$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