From: minima <minima>
Date: Fri, 11 Feb 2005 12:58:28 +0000 (+0000)
Subject: fix change of address to SEC
X-Git-Tag: R_1_52~206
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=58e60cd8de9726b1b5a42574cbb79bc6a315d2c7;p=spider.git

fix change of address to SEC
---

diff --git a/perl/importwwv.pl b/perl/importwwv.pl
index 2a86e0de..33b52f55 100755
--- a/perl/importwwv.pl
+++ b/perl/importwwv.pl
@@ -37,7 +37,7 @@ my $msg = Mail::Internet->new(\*STDIN) or die "Mail::Internet $!";
 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);
@@ -62,6 +62,7 @@ sub process_wwv
 		}
 		if ($state) {
 			my $l = $_;
+			next if /\bSec\b/i;
 			$l =~ s/\s*\.?\r?\n$//;
 			push @out, $l;
 		}
@@ -87,6 +88,7 @@ sub process_solar
 		}
 		if ($state > 1) {
 			my $l = $_;
+			next if /\bSec\b/i;
 			$l =~ s/\r?\n$//;
 			push @out, $l;
 		}