mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
78 lines
1.4 KiB
Perl
Executable File
78 lines
1.4 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# Implement a 'GO' database list
|
|
#
|
|
# Copyright (c) 2003 Dirk Koopman G1TLH
|
|
#
|
|
# $Id$
|
|
#
|
|
|
|
# search local then perl directories
|
|
BEGIN {
|
|
use vars qw($root);
|
|
|
|
# root of directory tree for this system
|
|
$root = "/spider";
|
|
$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
|
|
|
|
unshift @INC, "$root/perl"; # this IS the right way round!
|
|
unshift @INC, "$root/local";
|
|
}
|
|
|
|
use strict;
|
|
|
|
use IO::File;
|
|
use DXVars;
|
|
use DXUtil;
|
|
use Spot;
|
|
use QSL;
|
|
|
|
use vars qw($end $lastyear $lastday $lasttime);
|
|
|
|
$end = 0;
|
|
$SIG{TERM} = $SIG{INT} = sub { $end++ };
|
|
|
|
my $qslfn = "qsl";
|
|
|
|
$main::systime = time;
|
|
|
|
unlink "$root/data/qsl.v1";
|
|
|
|
QSL::init(1) or die "cannot open QSL file";
|
|
|
|
my $base = "$root/data/spots";
|
|
|
|
opendir YEAR, $base or die "$base $!";
|
|
foreach my $year (sort readdir YEAR) {
|
|
next if $year =~ /^\./;
|
|
|
|
my $baseyear = "$base/$year";
|
|
opendir DAY, $baseyear or die "$baseyear $!";
|
|
foreach my $day (sort readdir DAY) {
|
|
next unless $day =~ /(\d+)\.dat$/;
|
|
my $dayno = $1 + 0;
|
|
|
|
my $fn = "$baseyear/$day";
|
|
my $f = new IO::File $fn or die "$fn ($!)";
|
|
print "doing: $fn\n";
|
|
while (<$f>) {
|
|
last if $end;
|
|
if (/(QSL|VIA)/i) {
|
|
my ($freq, $call, $t, $comment, $by, @rest) = split /\^/;
|
|
my $q = QSL::get($call) || new QSL $call;
|
|
$q->update($comment, $t, $by);
|
|
$lasttime = $t;
|
|
}
|
|
}
|
|
$f->close;
|
|
last if $end;
|
|
}
|
|
last if $end;
|
|
}
|
|
|
|
QSL::finish();
|
|
|
|
exit(0);
|
|
|
|
|