X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=763c60bda86747a30df086dac5c10f2f11e3c14c;hb=2733a992ac8c3d315c110a2cc1984ea0a5e5d0ff;hp=3bfee12a3ccb06355bd64d4700ce3f3f91b4547b;hpb=9c2a187b4d9e7b03a963cabc4c7ecf5df5bf1ca5;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 3bfee12a..763c60bd 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -48,11 +48,13 @@ $filterdef = bless ([
 					 ['call_itu', 'ni', 8],
 					 ['itu', 'ni', 8],
 					 ['call_zone', 'nz', 9],
+					 ['cq', 'nz', 9],
 					 ['zone', 'nz', 9],
 					 ['by_itu', 'ni', 10],
 					 ['byitu', 'ni', 10],
 					 ['by_zone', 'nz', 11],
 					 ['byzone', 'nz', 11],
+					 ['bycq', 'nz', 11],
 					 ['call_state', 'ns', 12],
 					 ['state', 'ns', 12],
 					 ['by_state', 'ns', 13],
@@ -89,7 +91,7 @@ sub decodefreq
 	
 	foreach $f (@f) {
 		my ($a, $b); 
-		if (m{^\d+/\d+$}) {
+		if ($f =~ m{^\d+/\d+$}) {
 			push @out, $f;
 		} elsif (($a, $b) = $f =~ m{^(\w+)(?:/(\w+))?$}) {
 			$b = lc $b if $b;