r2614@g5: ask | 2005-12-16 14:27:01 -0800

Make the clamdscan plugin temporarily deny mail if if can't talk to clamd
   (Filippo Carletti)


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@587 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2005-12-16 22:27:27 +00:00
parent 5910aa7292
commit 8ac6157ee8
2 changed files with 7 additions and 1 deletions

View File

@ -1,3 +1,9 @@
0.40
Make the clamdscan plugin temporarily deny mail if if can't talk to clamd
(Filippo Carletti)
0.31 - 0.31 -
qpsmtpd-forkserver: --listen-address may now be given more than once, to qpsmtpd-forkserver: --listen-address may now be given more than once, to

View File

@ -153,7 +153,7 @@ sub hook_data_post {
$clamd = Clamd->new(); # default unix domain socket $clamd = Clamd->new(); # default unix domain socket
} }
return (DECLINED) unless $clamd->ping(); return (DENYSOFT) unless $clamd->ping();
if ( my %found = $clamd->scan($filename) ) { if ( my %found = $clamd->scan($filename) ) {
my $viruses = join( ",", values(%found) ); my $viruses = join( ",", values(%found) );