From: Dirk Koopman Date: Sun, 5 Jul 2020 00:52:19 +0000 (+0100) Subject: fix show/dxcc X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=5378e6f269bce40d878b06e76dcf58a62858dd7b;p=spider.git fix show/dxcc --- diff --git a/Changes b/Changes index 39cedc25..5aac43e9 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +05Jul20======================================================================= +1. Fix show/dxcc. 17Jun20======================================================================= 1. Change the Spot file reading mechanism back to the default of using 'tac'. 08Jun20======================================================================= diff --git a/cmd/show/dx.pl b/cmd/show/dx.pl index baca1f68..5ebc1033 100644 --- a/cmd/show/dx.pl +++ b/cmd/show/dx.pl @@ -120,7 +120,7 @@ sub handle dbg("sh/dx operator $f") if isdbg('sh/dx'); next; } - if (grep {lc $f eq $_} qw(on freq call info spotter by call_dxcc by_dxcc bydxcc origin call_itu itu call_zone zone byitu by_itu by_zone byzone call_state state bystate by_state ip) ) { + if (grep {lc $f eq $_} qw(on freq call info spotter by dxcc call_dxcc by_dxcc bydxcc origin call_itu itu call_zone zone byitu by_itu by_zone byzone call_state state bystate by_state ip) ) { push @flist, $f; push @flist, shift @list if @list; dbg("sh/dx function $flist[-2] $flist[-1]") if isdbg('sh/dx'); diff --git a/perl/Spot.pm b/perl/Spot.pm index be175ff0..3bfee12a 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -41,6 +41,7 @@ $filterdef = bless ([ ['info', 't', 3], ['spotter', 'c', 4], ['by', 'c', 4], + ['dxcc', 'nc', 5], ['call_dxcc', 'nc', 5], ['by_dxcc', 'nc', 6], ['origin', 'c', 7, 9],