3 $MNG_ROOT=$ENV{'MNG_ROOT'};
5 $date = `date`; chop $date;
7 print STDERR "Activity: $date $ARGV[0] "; shift @ARGV;
9 ######################################################################
24 if( /^Newsgroups: / ) {
26 } elsif( /^Subject: / ) {
28 } elsif( /^From: / ) {
30 } elsif( /^Path: / ) {
32 } elsif( /^Keywords: / ) {
34 } elsif( /^Summary: / ) {
36 } elsif( /^Message-ID: / ) {
46 print STDERR "$Message_ID, $Subject from $From \n";