projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove die from QSL::init
[spider.git]
/
perl
/
Spot.pm
diff --git
a/perl/Spot.pm
b/perl/Spot.pm
index f59ef4f4965bca34c5b747d30c0c9b03390bfc5e..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;
@@
-26,7
+27,7
@@
$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0))
$main::build += $VERSION;
$main::branch += $BRANCH;
$main::build += $VERSION;
$main::branch += $BRANCH;
-use vars qw($fp $statp $maxspots $defaultspots $maxdays $dirprefix $duplth $dupage $filterdef $totalspots $hfspots $vhfspots);
+use vars qw($fp $statp $maxspots $defaultspots $maxdays $dirprefix $duplth $dupage $filterdef $totalspots $hfspots $vhfspots
);
$fp = undef;
$statp = undef;
$fp = undef;
$statp = undef;
@@
-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