3 # Implement a 'GO' database list
5 # Copyright (c) 2003 Dirk Koopman G1TLH
10 # search local then perl directories
14 # root of directory tree for this system
16 $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
18 unshift @INC, "$root/perl"; # this IS the right way round!
19 unshift @INC, "$root/local";
30 use vars qw($end $lastyear $lastday $lasttime);
33 $SIG{TERM} = $SIG{INT} = sub { $end++ };
37 $main::systime = time;
39 unlink "$data/qsl.v2";
40 unlink "$local_data/qsl.v2";
42 QSL::init(1) or die "cannot open QSL file";
44 my $base = localdata("spots");
49 opendir YEAR, $base or die "$base $!";
50 foreach my $year (sort readdir YEAR) {
51 next if $year =~ /^\./;
53 my $baseyear = "$base/$year";
54 opendir DAY, $baseyear or die "$baseyear $!";
55 foreach my $day (sort readdir DAY) {
56 next unless $day =~ /(\d+)\.dat$/;
59 my $fn = "$baseyear/$day";
60 my $f = new IO::File $fn or die "$fn ($!)";
67 my ($freq, $call, $t, $comment, $by, @rest) = split /\^/;
68 my $q = QSL::get($call) || new QSL $call;
70 $q->update($comment, $t, $by);
79 printf " - Spots read %8d QSLs %6d\n", $r, $u;
86 print "Total Spots read: $tr - QSLs found: $tu\n";