projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove redundant wpxloc.dat
[spider.git]
/
perl
/
importwwv.pl
diff --git
a/perl/importwwv.pl
b/perl/importwwv.pl
index 33b52f55f46a0957c433c45b0ded4ac6a5c2be1c..285016e9859324914ab546b563a816225eea4ee8 100755
(executable)
--- 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
#
#
# Process and import for mail WWV and Solar Data
#
@@
-11,7
+11,7
@@
#
# Copyright (c) 2004 Dirk Koopman G1TLH
#
#
# Copyright (c) 2004 Dirk Koopman G1TLH
#
-#
$Id$
+#
#
use strict;
#
use strict;
@@
-101,6
+101,7
@@
sub out
my $fn = "solar.txt.$$";
open OUT, ">$tmp/$fn" or die "import $tmp/$fn $!";
my $fn = "solar.txt.$$";
open OUT, ">$tmp/$fn" or die "import $tmp/$fn $!";
+ chmod 0666, "$tmp/$fn";
print OUT map { "$_\n" } @_;
close OUT;
print OUT map { "$_\n" } @_;
close OUT;