[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