}
sub parse_submission () {
my $hadng=0;
+ my %oldf;
+ my $had2=0;
while (<STDIN>) {
chomp;
+print STDERR "$hadng $had2|$_|\n";
$hadng++ if m/^Newsgroups:/i;
if (m/^$/) {
last if $hadng;
+ last if $had2++;
+ %oldf= %f;
undef %f;
}
+ last unless m/^\S+\:|^\s|^$|^From /;
parse__headerline();
}
- $f{Event}= 'receive';
+ if ($hadng) {
+ $f{Event}= $had2 ? 'receive newstyle' : 'receive';
+ } else {
+ %f= %oldf if $had2;
+ $f{Subject}= '[suppressed]';
+ $f{Event}= 'receive junk';
+ }
}
sub parse_stump2webstump () {