- my $ping = $dxchan->is_node && $dxchan != $DXProt::me ? sprintf("%8.2f",
- $dxchan->pingave) : "";
- push @out, sprintf "%10s $t %-6.6s $ping", $call;
-
+ my $obscount = $dxchan->nopings;
+ my $lastt = $nowt - ($dxchan->lastping);
+ my $pingint = $dxchan->pingint;
+ my $ping = $dxchan->is_node && $dxchan != $main::me ? sprintf("%8.2f",$dxchan->pingave) : "";
+ $sort = 'ANEA' if $dxchan->is_aranea;
+ $sort = "DXSP" if $dxchan->is_spider;
+ $sort = "CLX " if $dxchan->is_clx;
+ $sort = "DXNT" if $dxchan->is_dxnet;
+ $sort = "AR-C" if $dxchan->is_arcluster;
+ $sort = "AK1A" if $dxchan->is_ak1a;
+ push @out, sprintf "%10s $sort $t$ping $obscount %5d %5d", $call, $pingint, $lastt;