Fix false positives in check_for_hi_virus plugin (Jerry D. Hedden)

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@802 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2007-09-26 19:00:45 +00:00
parent 5081901361
commit b141eeda37
2 changed files with 5 additions and 3 deletions

View File

@ -1,4 +1,4 @@
0.41 - September 25, 2007 0.42
New docs/plugins.pod documentation! New docs/plugins.pod documentation!
@ -30,6 +30,8 @@
Fix bug which breaks queue plugins that implement continuations Fix bug which breaks queue plugins that implement continuations
Fix false positives in check_for_hi_virus plugin (Jerry D. Hedden)
Unrecognized command fix (issue #16) Unrecognized command fix (issue #16)
Updated documentation (Apache 2.2, more) Updated documentation (Apache 2.2, more)

View File

@ -15,14 +15,14 @@ sub hook_data_post {
last if $line_number++ > 40; last if $line_number++ > 40;
if (/^Content-Type: (.*)/) { if (/^Content-Type: (.*)/) {
my $val = $1; my $val = $1;
if ($val =~ /name="(.*)"/) { if ($val =~ /name="(.*?)"/) {
$seen_file = 1; $seen_file = 1;
$ct_filename = $1; $ct_filename = $1;
} }
} }
if (/^Content-Disposition: (.*)/) { if (/^Content-Disposition: (.*)/) {
my $val = $1; my $val = $1;
if ($val =~ /filename="(.*)"/) { if ($val =~ /filename="(.*?)"/) {
$seen_file = 1; $seen_file = 1;
$cd_filename = $1; $cd_filename = $1;
} }