X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_localqsl.pl;h=14693d63f21e13c140d8e769cd8e8ea22167bc59;hb=3e35c88834507a81f0086fa83a6e03e260c22d7f;hp=2d3fc57e6fa0c7772a78f4bd4019e36f26e3221c;hpb=8032b90ab5f686159bc725b43d28862c42ad55d5;p=spider.git

diff --git a/perl/create_localqsl.pl b/perl/create_localqsl.pl
index 2d3fc57e..14693d63 100755
--- a/perl/create_localqsl.pl
+++ b/perl/create_localqsl.pl
@@ -27,6 +27,9 @@ use DXUtil;
 use Spot;
 use DXDb;
 
+my $end = 0;
+$SIG{TERM} = $SIG{INT} = sub { $end++ };
+
 my $qslfn = "localqsl";
 
 $main::systime = time;
@@ -49,9 +52,10 @@ foreach my $year (sort readdir YEAR) {
 	my $baseyear = "$base/$year";
 	opendir DAY,  $baseyear or die "$baseyear $!";
 	foreach my $day (sort readdir DAY) {
-		next if $day =~ /^\./;
+		next unless $day =~ /dat$/;
 		my $fn = "$baseyear/$day";
 		my $f = new IO::File $fn  or die "$fn ($!)"; 
+		print "doing: $fn\n";
 		while (<$f>) {
 			if (/(QSL|VIA)/i) {
 				my ($freq, $call, $t, $comment, $by, @rest) = split /\^/;
@@ -62,6 +66,7 @@ foreach my $year (sort readdir YEAR) {
 				}
 			}
 		}
+		$f->close;
 	}
 }