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

Couple of minor cleanups

Browse Source 
*    lib/Qpsmtpd/Transaction.pm
     Forgot to nuke POD for deprecated relaying()

*    plugins/auth/auth_vpopmail_sql
     Log who actually AUTHenticated

*    plugins/virus/uvscan
     Don't need to unlink the file (Qpsmtpd will take care of it)
     Log the machine that did the actual Antivirus scanning


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@329 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock 2004-09-23 18:54:58 +00:00
parent 03455aff9a
commit b5ef3d3add
3 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/Qpsmtpd/Transaction.pm
View File

@ -173,11 +173,6 @@ This method is also a setter. Pass in a list of recipients to change
the recipient list to an entirely new list. Note that the recipients
you pass in B<MUST> be C<Qpsmtpd::Address> objects.
=head2 relaying( )
Returns true if this mail transaction is relaying. This value is set
by the C<check_relay> plugin.
=head2 sender( [ ADDRESS ] )
Get or set the sender (MAIL FROM) address in the envelope.

3
plugins/auth/auth_vpopmail_sql
View File

@ -78,6 +78,9 @@ sub authsql {
return DECLINED;
}
$self->log(LOGINFO,
"Authentication to vpopmail via mysql: $pw_name\@$pw_domain");
my $sth = $dbh->prepare(<<SQL);
select pw_clear_passwd
from vpopmail

6
plugins/virus/uvscan
View File

@ -76,8 +76,6 @@ sub uvscan {
my $result = ($? >> 8);
my $signal = ($? & 127);
unlink($filename);
my $virus;
if ($output && $output =~ m/.*\W+Found (.*)\n/m) {
$virus=$1;
@ -119,6 +117,8 @@ sub uvscan {
return (DECLINED);
}
$transaction->header->add('X-Virus-Checked', 'Checked');
$transaction->header->add('X-Virus-Checked',
"Checked by McAfee uvscan on ".$self->qp->config("me"));
return (DECLINED);
}