byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove debug noise

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/branches/v010@54 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2002-09-08 10:08:53 +00:00
parent 3fae01ee4f
commit 48e3d9de39
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
plugins/klez_filter
View File

@ -6,7 +6,7 @@ sub register {
sub check_klez { sub check_klez {
my ($self, $transaction) = @_; my ($self, $transaction) = @_;
# klez files are always around 140K, no? # klez files are always around 140K
return (DECLINED) return (DECLINED)
if $transaction->body_size < 60_000 if $transaction->body_size < 60_000
or $transaction->body_size > 220_000; or $transaction->body_size > 220_000;
@ -21,8 +21,8 @@ sub check_klez {
my $seen_klez_signature = 0; my $seen_klez_signature = 0;
while ($_ = $transaction->body_getline) { while ($_ = $transaction->body_getline) {
$line_number++; last if $line_number++ > 40;
warn "$_";
m/^Content-type:.*(?:audio|application)/i m/^Content-type:.*(?:audio|application)/i
and ++$seen_klez_signature and next; and ++$seen_klez_signature and next;
@ -30,9 +30,7 @@ sub check_klez {
if $seen_klez_signature if $seen_klez_signature
and m!^TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQA!; and m!^TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQA!;
last if $line_number > 40;
} }
warn "DECLINED is ", DECLINED;
return (DECLINED); return (DECLINED);
} }