[Mimedefang] Using a db for subject lines to block
Jan Pieter Cornet
johnpc at xs4all.nl
Tue Jun 21 10:44:03 EDT 2005
On Tue, Jun 21, 2005 at 10:10:30AM -0400, James Ebright wrote:
> I am not sure if either of the above would break anything as perl is pretty
> forgiving of these things. However, you might consider substituting on
> whitespace like so:
>
> $lc_subject =~ s/\s/./g;
>
> which will squish multiple spaces down to a single dot, this might make your
> source file smaller as well and would handle tabs as well.
Actually, that should read:
$lc_subject =~ s/\s+/./g;
"\s" just matches one space character, \s+ matches a sequence of space
characters.
--
#!perl -wpl # mmfppfmpmmpp mmpffm <pmmppfmfpppppfmmmf at fpffmm4mmmpmfpmf.ppppmf>
$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
More information about the MIMEDefang
mailing list