X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FFilter.pm;h=0ca71917db987cb5637ebe5bec404b1ddb611e64;hb=8178d787d7cc8040fa8958197582bba5c80e6f59;hp=66c3ff7acb2aceb64b1a1ec1265c2cda8d94bcf3;hpb=d0e554d25adfe94a2d5a1c3f57b48bfab1a9f4a2;p=spider.git

diff --git a/perl/Filter.pm b/perl/Filter.pm
index 66c3ff7a..0ca71917 100644
--- a/perl/Filter.pm
+++ b/perl/Filter.pm
@@ -494,6 +494,11 @@ sub parse
 							my @pre = Prefix::to_ciz($cmd, @val);
 							return ('numpre', $dxchan->msg('e27', $_)) unless @pre;
 							$s .= "(" . join(' || ', map {"\$r->[$fref->[2]]==$_"} @pre) . ")";
+						} elsif ($fref->[1] =~ /^ns$/ ) {    # for DXCC, ITU, CQ Zone    
+							my $cmd = $fref->[1];
+							my @pre = Prefix::to_ciz($cmd, @val);
+							return ('numpre', $dxchan->msg('e27', $_)) unless @pre;
+							$s .= "(" . "!\$USDB::present || grep \$r->[$fref->[2]] eq \$_, qw(" . join(' ' ,map {uc} @pre) . "))";
 						} elsif ($fref->[1] eq 'r') {
 							my @t;
 							for (@val) {