projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added builtin sh.qsl command
[spider.git]
/
perl
/
Spot.pm
diff --git
a/perl/Spot.pm
b/perl/Spot.pm
index dc63dbff42c1c2ab1309d843107e10ce6bbff4ae..4b0e7c72929ba3822afe2bbc0c3faebc39b709ed 100644
(file)
--- a/
perl/Spot.pm
+++ b/
perl/Spot.pm
@@
-17,6
+17,7
@@
use Julian;
use Prefix;
use DXDupe;
use Data::Dumper;
use Prefix;
use DXDupe;
use Data::Dumper;
+use QSL;
use strict;
use strict;
@@
-160,6
+161,10
@@
sub add
} else {
$vhfspots++;
}
} else {
$vhfspots++;
}
+ if ($_[3] =~ /(?:QSL|VIA)/i) {
+ my $q = QSL::get($_[1]) || new QSL $_[1];
+ $q->update($_[3], $_[2], $_[4]);
+ }
}
# search the spot database for records based on the field no and an expression
}
# search the spot database for records based on the field no and an expression