develooper Front page | perl.qpsmtpd | Postings from May 2012

[PATCH] added vpopmail_sql db connect error handling.

Thread Next
From:
Matt Simerson
Date:
May 6, 2012 13:58
Subject:
[PATCH] added vpopmail_sql db connect error handling.
Message ID:
428E42BA-7666-4F7B-834E-D68BA4E90434@tnpi.net
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


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About