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

Make DBI->connect() failure more obvious, but don't prevent mail

Browse Source 
being sent by other rules (if the client will fall back).

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@608 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock 2006-01-27 21:13:43 +00:00
parent 347e5d328f
commit 7b564e4548
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
plugins/auth/auth_vpopmail_sql
View File

@ -60,7 +60,8 @@ sub authsql {
use DBI; use DBI;
use Qpsmtpd::Constants; use Qpsmtpd::Constants;
use Digest::HMAC_MD5 qw(hmac_md5_hex); use Digest::HMAC_MD5 qw(hmac_md5_hex);
my ( $self, $transaction, $method, $user, $passClear, $passHash, $ticket )
= @_;
# $DB::single = 1; # $DB::single = 1;
my $connect = "dbi:mysql:dbname=vpopmail"; my $connect = "dbi:mysql:dbname=vpopmail";
@ -69,10 +70,11 @@ sub authsql {
my $dbh = DBI->connect( $connect, $dbuser, $dbpasswd, my $dbh = DBI->connect( $connect, $dbuser, $dbpasswd,
{ PrintError => 0, } ) { PrintError => 0, } )
or return DECLINED; or (
$self->log(LOGERROR, $DBI::errstr)
and return DECLINED
);
my ( $self, $transaction, $method, $user, $passClear, $passHash, $ticket ) =
@_;
my ( $pw_name, $pw_domain ) = split "@", lc($user); my ( $pw_name, $pw_domain ) = split "@", lc($user);
unless ( defined $pw_domain ) { unless ( defined $pw_domain ) {