]> dxcluster.net Git - spider.git/blob - cmd/who.pl
add the H in front of the hops!!!
[spider.git] / cmd / who.pl
1 #\r
2 # who : is online\r
3 # a complete list of stations connected\r
4 #\r
5 # Copyright (c) 1999 Dirk Koopman G1TLH\r
6 #\r
7 # $Id$\r
8 \r
9 \r
10 my $self = shift;\r
11 my $dxchan;\r
12 my @out;\r
13 \r
14 push @out, "  Callsign Type      Started           Name     Ave RTT Link";\r
15 \r
16 foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all ) {\r
17     my $call = $dxchan->call();\r
18         my $t = cldatetime($dxchan->startt);\r
19         my $type = $dxchan->is_node ? "NODE" : "USER";\r
20         my $sort = "    ";\r
21         if ($dxchan->is_node) {\r
22                 $sort = "DXSP" if $dxchan->is_spider;\r
23                 $sort = "CLX " if $dxchan->is_clx;\r
24                 $sort = "DXNT" if $dxchan->is_dxnet;\r
25                 $sort = "AR-C" if $dxchan->is_arcluster;\r
26                 $sort = "AK1A" if $dxchan->is_ak1a;\r
27         }\r
28         $type = 'ANEA' if $dxchan->is_aranea;\r
29         my $name = $dxchan->user->name || " ";\r
30         my $ping = $dxchan->is_node && $dxchan != $main::me ? sprintf("%5.2f", $dxchan->pingave) : "     ";\r
31         my $conn = $dxchan->conn;\r
32         my $ip = '';\r
33         if ($conn) {\r
34                 $ip = $conn->{peerhost} if exists $conn->{peerhost};\r
35                 $ip = "AGW Port ($conn->{agwport})" if exists $conn->{agwport};\r
36         }\r
37         push @out, sprintf "%10s $type $sort $t %-10.10s $ping $ip", $call, $name;\r
38 }\r
39 \r
40 return (1, @out)\r