Re: [PATCH] added vpopmail_sql db connect error handling.
[email protected] (Robert Spier)
| Newsgroups | perl.qpsmtpd |
|---|---|
| Message-ID | <CAAroffdxCY2rjziHH5QGNEixjhPZ6cN=9_RbKWg48AgJvEpbVA@mail.gmail.com> |
Applied. On Sun, May 6, 2012 at 1:58 PM, Matt Simerson <[email protected]> wrote: > added vpopmail_sql db connect error handling. > > --- > plugins/auth/auth_vpopmail_sql | 6 ++++-- > 1 file changed, 4 insertions(+), 2 deletions(-) > > diff --git a/plugins/auth/auth_vpopmail_sql > b/plugins/auth/auth_vpopmail_sql > index 99b4f1d..1f9e302 100644 > --- a/plugins/auth/auth_vpopmail_sql > +++ b/plugins/auth/auth_vpopmail_sql > @@ -84,8 +84,10 @@ sub auth_vmysql { > my $dbuser = $self->qp->config("vpopmail_mysql_user") || "vpopmailuser"; > my $dbpass = $self->qp->config("vpopmail_mysql_pass") || "vpoppasswd"; > > - my $dbh = DBI->connect( $dsn, $dbuser, $dbpass ); > - > + my $dbh = DBI->connect( $dsn, $dbuser, $dbpass ) or do { > + $self->log(LOGERROR, "auth_vpopmail_sql: db connection > failed"); > + return DECLINED; > + }; > $dbh->{ShowErrorStatement} = 1; > > my ( $pw_name, $pw_domain ) = split '@', lc($user); > -- > 1.7.9.6 > >