*** html-trap.procmail 2006-01-20 07:29:24-08 1.151
--- html-trap.procmail 2006-09-09 20:23:09-07
***************
*** 1073,1080 ****
} #\
$filel = ""; #\
foreach $filen (keys %zipf) { #\
! $fn = $filen; $fn =~ s/\s{10,}/ (many spaces) /; #\
! warn " Checking archived \"$fn\"\n"; #\
seek(ZIPPOL,0,0); #\
while (chomp($pol_spec = )) { #\
$pol_spec =~ s/^\s+//g; #\
--- 1149,1156 ----
} #\
$filel = ""; #\
foreach $filen (keys %zipf) { #\
! $fn = $filen; $fn =~ s/\s{10,}/ (many spaces) /; #\
! warn " Checking archived \"$fn\" length " . length($filen) . "\n"; #\
seek(ZIPPOL,0,0); #\
while (chomp($pol_spec = )) { #\
$pol_spec =~ s/^\s+//g; #\
***************
*** 1084,1092 ****
$pol_spec =~ s/\*/.*/g; #\
$pol_spec =~ s/\?\?/?./g; #\
$pol_spec =~ s/([^\(]|^)\?/$1./g; #\
! warn " Checking against \"$pol_spec\"\n" if $ENV{"DEBUG"}; #\
! if ($filen =~ /^${pol_spec}$/i) { #\
! warn " Trapped archived \"$fn\".\n"; #\
if (!$poisoned) { #\
print "\n\n--$newbdry\n"; #\
print "Content-Type: TEXT/PLAIN;\n"; #\
--- 1160,1168 ----
$pol_spec =~ s/\*/.*/g; #\
$pol_spec =~ s/\?\?/?./g; #\
$pol_spec =~ s/([^\(]|^)\?/$1./g; #\
! warn " Checking against \"$pol_spec\", maxlen 250\n" if $ENV{"DEBUG"}; #\
! if (($filen =~ /^${pol_spec}$/i) || length($filen) > 250) { #\
! warn " Trapped archived \"$fn\" length " . length($filen) . ".\n"; #\
if (!$poisoned) { #\
print "\n\n--$newbdry\n"; #\
print "Content-Type: TEXT/PLAIN;\n"; #\