11 $dir =~ s,/bin$,/log,;
14 sub parse__headerline () {
15 $f{Subject}= $' if m/^Subject:\s*/i; #';
16 $f{MessageID}= $' if m/^Message\-ID:\s*/i; #';
17 $f{From}= $' if m/^From:\s*/i; #';
19 sub parse__stumpsubject () {
20 $f{MessageNum}=$1 if m/^Subject:.*\:\:\w+\/(\d+)$/i;
31 sub parse_submission () {
35 $hadng++ if m/^Newsgroups:/i;
45 sub parse_stump2webstump () {
48 parse__stumpsubject() unless exists $f{'MessageNum'};
59 sub parse_webstump2stump () {
62 parse__stumpsubject();
67 next unless m/^reject|^approve|^preapprove/;
73 sub parse_mailout () {
76 $f{Event}= "notify $'" if m/^X-Webstump-Event:\s*/i; #';
90 STDIN->error and die $!;
94 open L, ">>$dir/event.log" or die $!;
98 $v= '' unless defined $v;
102 } qw(Now MessageNum MessageID From Subject Event);
104 print L join("\t",@s)."\n" or die $!;