Filetype reports bug in 4.26.8 (+ fix)

[Julian Field]

Thanks. Have incorporated your patch. Hopefully it works! :-)

At 14:15 27/02/2004, you wrote:
>Hey Julian,
>
>  I just had time to install 4.26.8 on my system yesterday. I noticed that
>this same bug has crept up again. Included below was the original patch to
>fix it.
>
>  The bug manifests itself as the following lines in notifications to the
>admin:
>
>     Report: attachment.txt.pif was infected by W32/Netsky-B
>             :  No programs allowed (attachment.txt.pif)
>
>     Report: misc.scr was infected by W32/Netsky-B
>             :  No programs allowed (misc.scr)
>
>
>  The bug is on line 1201 of Message.pm in 4.26.8. Can you patch this up for
>the next release?
>
>
>  Thanks,
>-Joshua
>
>-----Original Message-----
>From: Mariano Absatz [mailto:mailscanner at LISTS.COM.AR]
>Sent: Tuesday, October 07, 2003 5:27 PM
>To: MAILSCANNER at JISCMAIL.AC.UK
>Subject: Re: Filetype Reports in 4.24-5
>
>
>Yup... it seems to be originated in my code, but I don't know if Julian
>modified this or not... however, try using
>this patch (WARNING!!!!! NOT TESTED):
>
>--- Message.pm.orig     Tue Oct  7 18:18:40 2003
>+++ Message.pm  Tue Oct  7 18:19:40 2003
>@@ -1014,7 +1014,7 @@
>    }
>    while (($file, $text) = each %{$this->{namereports}}) {
>      #print STDERR "Adding file $file report $text\n";
>-    $text =~ s/\n(.)/\n$Name:  $1/g; # Make sure name is at the front of
>this
>+    $text =~ s/\n(.)/\n$Name $1/g if $Name ; # Make sure name is at the
>front of this
>      $this->{allreports}{$file} .= $Name . $text;
>    }
>    while (($file, $text) = each %{$this->{nametypes}}) {

--
Julian Field
www.MailScanner.info
Professional Support Services at www.MailScanner.biz
MailScanner thanks transtec Computers for their support
PGP footprint: EE81 D763 3DB0 0BFD E1DC 7222 11F6 5947 1415 B654