X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fimportwwv.pl;h=285016e9859324914ab546b563a816225eea4ee8;hb=a24cc09d8262093df92c767d3010c0a5fd6e42d7;hp=33b52f55f46a0957c433c45b0ded4ac6a5c2be1c;hpb=58e60cd8de9726b1b5a42574cbb79bc6a315d2c7;p=spider.git

diff --git a/perl/importwwv.pl b/perl/importwwv.pl
index 33b52f55..285016e9 100755
--- a/perl/importwwv.pl
+++ b/perl/importwwv.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 # Process and import for mail WWV and Solar Data
 #
@@ -11,7 +11,7 @@
 #
 # Copyright (c) 2004 Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 
 use strict;
@@ -101,6 +101,7 @@ sub out
 	my $fn = "solar.txt.$$";
    
 	open OUT, ">$tmp/$fn" or die "import $tmp/$fn $!";
+	chmod 0666, "$tmp/$fn";
 	print OUT map { "$_\n" } @_;
 	close OUT;