Make klez filter run for mails bigger than 220KB; they are sometimes

bigger than that.


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@77 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2002-09-22 07:04:13 +00:00
parent 499d1e6a4c
commit e342c0b9b2
2 changed files with 9 additions and 3 deletions

View File

@ -1,3 +1,8 @@
2002/09/22
Make klez filter run for mails bigger than 220KB; they are sometimes
bigger than that.
2002/09/20
Avoid "use of uninitialized variable" warning when the "MAIL" or the
"RCPT" command is executed without a parameter.

View File

@ -6,10 +6,11 @@ sub register {
sub check_klez {
my ($self, $transaction) = @_;
# klez files are always around 140K
# klez files are always sorta big .. how big? Dunno.
return (DECLINED)
if $transaction->body_size < 60_000
or $transaction->body_size > 220_000;
if $transaction->body_size < 60_000;
# 220k was too little, so let's just disable the "big size check"
# or $transaction->body_size > 1_000_000;
# maybe it would be worthwhile to add a check for
# Content-Type: multipart/alternative; here?