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
|
