X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FPrefix.pm;h=a2316a2bf3b49244f8643aa29d77fc4a864481f8;hb=bf0078cc89a908d46a3f28c7f1c152c2cb4d6fc5;hp=0e67801d9e8f10ce494db023877ab5abcf67a439;hpb=0ede244fc4076f902584ee6d088cd7fd7fd2817f;p=spider.git

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 0e67801d..a2316a2b 100644
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -202,7 +202,7 @@ sub extract
 		}
 		%cache =();
 		$lasttime = $main::systime;
-		$hits = $matchtotal = 0;
+		$hits = $misses = $matchtotal = 0;
 	}
 
 LM:	foreach $call (split /,/, $calls) {
@@ -210,6 +210,7 @@ LM:	foreach $call (split /,/, $calls) {
 		# first check if the whole thing succeeds either because it is cached
 		# or because it simply is a stored prefix as callsign (or even a prefix)
 		$matchtotal++;
+		$call =~ s/-\d+$//;		# ignore SSIDs
 		my $p = $cache{$call};
 		my @nout;
 		if ($p) {