From 58e60cd8de9726b1b5a42574cbb79bc6a315d2c7 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 11 Feb 2005 12:58:28 +0000 Subject: [PATCH] fix change of address to SEC --- perl/importwwv.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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; } -- 2.43.0