X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fimportwwv.pl;h=f0fcfec0d651d093e7563e009144105bbbeee0e8;hb=ad8639433db3d682769b49665c0eefaa32f80c20;hp=33b52f55f46a0957c433c45b0ded4ac6a5c2be1c;hpb=58e60cd8de9726b1b5a42574cbb79bc6a315d2c7;p=spider.git diff --git a/perl/importwwv.pl b/perl/importwwv.pl index 33b52f55..f0fcfec0 100755 --- a/perl/importwwv.pl +++ b/perl/importwwv.pl @@ -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;