On Tue, Feb 15, 2005 at 09:46:57PM -0500, David F. Skoll wrote: > Does anyone use File::Scan with MIMEDefang? It seems to cause a lot > of problems with false positives.
There recently was a short discussion about File::Scan on the clamav-users mailinglist, it's available at: http://lurker.clamav.net/message/20050217.162703.87a85372.en.html -- #!perl -wpl # mmfppfmpmmpp mmpffm <[EMAIL PROTECTED]> $p=3-2*/[^\W\dmpf_]/i;s.[a-z]{$p}.vec($f=join('',$p-1?chr(sub{$_[0]*9+$_[1]*3+ $_[2]}->(map{/p|f/i+/f/i}split//,$&)+97):qw(m p f)[map{((ord$&)%32-1)/$_%3}(9, 3,1)]),5,1)='`'lt$&;$f.eig; # Jan-Pieter Cornet _______________________________________________ Visit http://www.mimedefang.org and http://www.canit.ca MIMEDefang mailing list [email protected] http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
