hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix change of address to SEC

Browse Source
This commit is contained in:
minima 2005-02-11 12:58:28 +00:00
parent 4bcd914bdf
commit 58e60cd8de
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
perl/importwwv.pl
View File

@ -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;
}