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