X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=2205cc5bce1e127226599e66a866e9928d571688;hb=cbb522ef802d48991734a4ce803fa6ffa9774588;hp=9fcf3280d95ad8359516ee58c26e168114bb6f78;hpb=3525b8b90ab568e06f57d12c4c3ad9610b9e71f9;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 9fcf3280..2205cc5b 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],
@@ -329,6 +331,7 @@ sub search
 			my $rec = 0;
 			my $in;
 			while (<$fh>) {
+				chomp;
 				my @r = split /\^/;
 				++$rec;
 				if ($dxchan) {