check for lower case letters in spotted calls

[spider.git] / cmd / who.pl

diff --git a/cmd/who.pl b/cmd/who.pl
index 66f937e64541f08ad2e515e3bc9f026b0038b43c..3b12fd0e7c4de0658502cf00ff3a6da4d2b519a2 100644 (file)
--- a/cmd/who.pl
+++ b/cmd/who.pl
@@ -25,6 +25,7 @@ foreach $dxchan ( sort {$a->call cmp $b->call} DXChannel::get_all ) {
                $sort = "AR-C" if $dxchan->is_arcluster;\r
                $sort = "AK1A" if $dxchan->is_ak1a;\r
        }\r
+       $type = 'ANEA' if $dxchan->is_aranea;\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