X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_qsl.pl;fp=perl%2Fcreate_qsl.pl;h=0000000000000000000000000000000000000000;hb=846aa525969cab9b37936fb33b8705a68fd52886;hp=f4083f55d0adb7f1ec146f61e4f7b79bbe732255;hpb=f0af07edebdfe705c66a50a4ccfa56d5663773d7;p=spider.git

diff --git a/perl/create_qsl.pl b/perl/create_qsl.pl
deleted file mode 100755
index f4083f55..00000000
--- 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);
-
-