[popfile-commit] engine/Classifier Bayes.pm,1.96,1.97 MailParse.pm,1.85,1.86

[<jgr...@us...>]

Update of /cvsroot/popfile/engine/Classifier
In directory sc8-pr-cvs1:/tmp/cvs-serv14210/Classifier

Modified Files:
	Bayes.pm MailParse.pm 
Log Message:
Now keep track of the Date: header when parsing a message and use it to set the Date: field in a quarantined message

Index: Bayes.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/Bayes.pm,v
retrieving revision 1.96
retrieving revision 1.97
diff -C2 -d -r1.96 -r1.97
*** Bayes.pm	18 Feb 2003 14:46:31 -0000	1.96
--- Bayes.pm	19 Feb 2003 19:43:14 -0000	1.97
***************
*** 864,868 ****
                  print $client "From: $self->{parser}->{from}$eol";
                  print $client "To: $self->{parser}->{to}$eol";
!                 print $client "Date: " . localtime() . $eol;
                  print $client "Subject:$msg_subject$eol";
                  print $client "X-Text-Classification: $classification$eol" if ( $self->{configuration}->{configuration}{xtc} );
--- 864,868 ----
                  print $client "From: $self->{parser}->{from}$eol";
                  print $client "To: $self->{parser}->{to}$eol";
!                 print $client "Date: $self->{parser}->{date}$eol";
                  print $client "Subject:$msg_subject$eol";
                  print $client "X-Text-Classification: $classification$eol" if ( $self->{configuration}->{configuration}{xtc} );

Index: MailParse.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Classifier/MailParse.pm,v
retrieving revision 1.85
retrieving revision 1.86
diff -C2 -d -r1.85 -r1.86
*** MailParse.pm	18 Feb 2003 12:40:08 -0000	1.85
--- MailParse.pm	19 Feb 2003 19:43:15 -0000	1.86
***************
*** 854,857 ****
--- 854,859 ----
                      }
  
+                     $self->{date} = $argument if ( $header =~ /^Date/i );
+ 
                      # Look for MIME