projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'mojo' into users.v3j
[spider.git]
/
perl
/
create_qsl.pl
diff --git
a/perl/create_qsl.pl
b/perl/create_qsl.pl
index f4083f55d0adb7f1ec146f61e4f7b79bbe732255..38fccc5a959e3c4af3ed6f8c979f7aa061670bb4 100755
(executable)
--- a/
perl/create_qsl.pl
+++ b/
perl/create_qsl.pl
@@
-32,13
+32,11
@@
use vars qw($end $lastyear $lastday $lasttime);
$end = 0;
$SIG{TERM} = $SIG{INT} = sub { $end++ };
$end = 0;
$SIG{TERM} = $SIG{INT} = sub { $end++ };
-my $qslfn = "qsl";
+my $qslfn = "
dx
qsl";
$main::systime = time;
$main::systime = time;
-unlink "$data/qsl.v1";
-unlink "$local_data/qsl.v1";
-
+QSL::remove_files();
QSL::init(1) or die "cannot open QSL file";
my $base = localdata("spots");
QSL::init(1) or die "cannot open QSL file";
my $base = localdata("spots");