replace Storable->JSON in QSL.pm.

[spider.git] / perl / create_qsl.pl

diff --git a/perl/create_qsl.pl b/perl/create_qsl.pl
deleted file mode 100755 (executable)
index f4083f5..0000000
--- a/perl/create_qsl.pl
+++ /dev/null
@@ -1,78 +0,0 @@
-#!/usr/bin/env perl
-#
-# Implement a 'GO' database list
-#
-# Copyright (c) 2003 Dirk Koopman G1TLH
-#
-#
-#
-
-# 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 SysVar;
-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 "$data/qsl.v1";
-unlink "$local_data/qsl.v1";
-
-QSL::init(1) or die "cannot open QSL file";
-
-my $base = localdata("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);
-
-