mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-22 08:17:10 +00:00
26 lines
644 B
Perl
26 lines
644 B
Perl
#
|
|
# 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";
|
|
|
|
foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all ) {
|
|
my $call = $dxchan->call();
|
|
my $t = cldatetime($dxchan->startt);
|
|
my $sort = $dxchan->is_ak1a() ? "NODE" : "USER";
|
|
my $name = $dxchan->user->name || " ";
|
|
my $ping = $dxchan->is_ak1a && $dxchan != $DXProt::me ? sprintf("%8.2f", $dxchan->pingave) : "";
|
|
push @out, sprintf "%10s $sort $t %-18.18s $ping", $call, $name;
|
|
}
|
|
|
|
return (1, @out)
|