-#!/usr/bin/perl
+#!/usr/bin/env perl
#
# Process and import for mail WWV and Solar Data
#
#
# Copyright (c) 2004 Dirk Koopman G1TLH
#
-# $Id$
+#
#
use strict;
my $head = $msg->head->header_hashref;
if ($head) {
- if ($head->{From}->[0] =~ /wwv/i || $head->{'From '}->[0] =~ /wwv/i) {
+ if ($head->{Subject}->[0] =~ /wwv/i) {
process_wwv($msg);
} elsif ($head->{From}->[0] =~ /rwc\.boulder/i || $head->{'From '}->[0] =~ /rwc\.boulder/i) {
process_solar($msg);
}
if ($state) {
my $l = $_;
+ next if /\bSec\b/i;
$l =~ s/\s*\.?\r?\n$//;
push @out, $l;
}
}
if ($state > 1) {
my $l = $_;
+ next if /\bSec\b/i;
$l =~ s/\r?\n$//;
push @out, $l;
}
my $fn = "solar.txt.$$";
open OUT, ">$tmp/$fn" or die "import $tmp/$fn $!";
+ chmod 0666, "$tmp/$fn";
print OUT map { "$_\n" } @_;
close OUT;