push @out, " Ave Obs Ping Sec Since";
push @out, " Callsign Type Started RTT count Int. Last Ping";
push @out, " Ave Obs Ping Sec Since";
push @out, " Callsign Type Started RTT count Int. Last Ping";
my $call = $dxchan->call();
next if $dxchan == $main::me;
my $t = cldatetime($dxchan->startt);
my $call = $dxchan->call();
next if $dxchan == $main::me;
my $t = cldatetime($dxchan->startt);
my $obscount = $dxchan->nopings;
my $lastt = $nowt - ($dxchan->lastping);
my $pingint = $dxchan->pingint;
my $obscount = $dxchan->nopings;
my $lastt = $nowt - ($dxchan->lastping);
my $pingint = $dxchan->pingint;
$sort = 'ANEA' if $dxchan->is_aranea;
$sort = "DXSP" if $dxchan->is_spider;
$sort = "CLX " if $dxchan->is_clx;
$sort = 'ANEA' if $dxchan->is_aranea;
$sort = "DXSP" if $dxchan->is_spider;
$sort = "CLX " if $dxchan->is_clx;