OSEC

Neohapsis is currently accepting applications for employment. For more information, please visit our website www.neohapsis.com or email hr@neohapsis.com
 
Subject: Re: amavis-perl-7
From: Root Mail (rootmailbtoy1.rochester.ny.us)
Date: Sun Aug 06 2000 - 11:07:41 CDT

On Sun, Aug 06, 2000 at 01:14:42PM +0800, Ronneil Camara [ronneilconeconsulting.com] wrote:
> I noticed something with amavis-perl-7, the X_HEADER_LINE is not getting
> concatenated with the headers. I tried checking the headers of a sent mail
> to me and I didn't find any X-AntiVirus line. Before, it was X-AntiVirus:
> scanned for viruses by AMaViS perl-6.
> ...

Here is the change (in the directory "amavis-perl-7/amavis"):

--- amavis.in.ORIG Sat Jul 29 01:21:22 2000
+++ amavis.in Sat Jul 29 01:22:09 2000
-242,6 +242,7
 
 my $email = new Mail::Internet [<STDIN>], Modify => 0;
 my origheader = {$email->header};
+$email->head->add($X_HEADER_TAG, $X_HEADER_LINE) if ($X_HEADER eq "yes");
 my origmail = ({$email->header}, "\n", {$email->body});
 
 # First let's store the original message. This will be quarantined if a
-253,11 +254,6
         close(ORIG);
 }
 
-# Maybe add a header
-
-if ($X_HEADER eq "yes") {
- $email->head->add($X_HEADER_TAG, $X_HEADER_LINE);
-}
 
 # Get ready to break up mime parts
 my $parser = new MIME::MyParser;

-- Thomas Bullinger -------------------------------
  http://www.btoy1.rochester.ny.us