for (my $i = length $pref; $i; $i--) {
$matchtotal++;
my $s = substr($pref, 0, $i);
+ push @partials, $s;
my $p = $cache{$s};
if ($p) {
$hits++;
my $percent = sprintf "%.1f", $hits * 100 / $misses;
dbg("Partial Prefix Cache Hit: $s Hits: $hits/$misses of $matchtotal = $percent\%");
}
+ $cache{$_} = $p for @partials;
return @$p;
} else {
$misses++;
- push @partials, $s;
my @out = get($s);
if (isdbg('prefix')) {
my $part = $out[0] || "*";
dbg("Partial prefix: $pref $s $part" );
}
if (@out && $out[0] eq $s) {
- $cache{$_} = [ @out ] for @partials;
+ $cache{$_} = \@out for @partials;
return @out;
}
}
}
%cache =();
$lasttime = $main::systime;
- $hits = $matchtotal = 0;
+ $hits = $misses = $matchtotal = 0;
}
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) {