projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
normalise spot dupe fields, normalise qrg by 25khz
[spider.git]
/
perl
/
Prefix.pm
diff --git
a/perl/Prefix.pm
b/perl/Prefix.pm
index 659178fbbd09c5b86d3bcd7cc92d370cc9c973f3..d7552cb65f0d712b53ddc34ed017463a67cd8fc4 100644
(file)
--- a/
perl/Prefix.pm
+++ b/
perl/Prefix.pm
@@
-26,7
+26,7
@@
$db = undef; # the DB_File handle
%prefix_loc = (); # the meat of the info
%pre = (); # the prefix list
$hits = $misses = $matchtotal = 1; # cache stats
%prefix_loc = (); # the meat of the info
%pre = (); # the prefix list
$hits = $misses = $matchtotal = 1; # cache stats
-$lrusize =
10000;
# size of prefix LRU cache
+$lrusize =
5000;
# size of prefix LRU cache
sub init
{
sub init
{
@@
-274,7
+274,7
@@
LM: foreach $call (split /,/, $calls) {
# remove any /0-9 /P /A /M /MM /AM suffixes etc
if (@parts > 1) {
# remove any /0-9 /P /A /M /MM /AM suffixes etc
if (@parts > 1) {
-
@parts = grep { !/^\d+$/ && !/^[PABM]$/ && !/^(?:|AM|MM|BCN|JOTA|SIX|WEB|NET|Q\w+)$/; } @parts
;
+
pop @parts if $parts[-1] =~ /^(?:[PABM]|AM|MM|BCN|JOTA|SIX|WEB|NET|Q\w+)$/
;
# can we resolve them by direct lookup
my $s = join('/', @parts);
# can we resolve them by direct lookup
my $s = join('/', @parts);
@@
-472,17
+472,17
@@
sub cty_data
}
my %valid = (
}
my %valid = (
+ city => '0,City',
+ cont => '0,Continent',
+ cq => '0,CQ',
+ dxcc => '0,DXCC',
+ itu => '0,ITU',
lat => '0,Latitude,slat',
long => '0,Longitude,slong',
lat => '0,Latitude,slat',
long => '0,Longitude,slong',
- dxcc => '0,DXCC',
name => '0,Name',
name => '0,Name',
- itu => '0,ITU',
- cq => '0,CQ',
+ qra => '0,Locator',
state => '0,State',
state => '0,State',
- city => '0,City',
utcoff => '0,UTC offset',
utcoff => '0,UTC offset',
- cont => '0,Continent',
- qra => '0,Locator',
);
sub AUTOLOAD
);
sub AUTOLOAD