From: Amos Jeffries <squid3@treenet.co.nz>
Date: Fri, 16 Sep 2011 10:55:04 +0000 (-0600)
Subject: db_auth: display available DSN drivers on connect error
X-Git-Tag: SQUID_3_1_16~10
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f85d269ba2cfd82c6ad541ada29e97023aa365df;p=thirdparty%2Fsquid.git

db_auth: display available DSN drivers on connect error
---

diff --git a/helpers/basic_auth/DB/squid_db_auth.in b/helpers/basic_auth/DB/squid_db_auth.in
index 615c47bc28..901a6ac526 100644
--- a/helpers/basic_auth/DB/squid_db_auth.in
+++ b/helpers/basic_auth/DB/squid_db_auth.in
@@ -127,6 +127,12 @@ sub open_db()
     $_dbh = DBI->connect($dsn, $db_user, $db_passwd);
     if (!defined $_dbh) {
     	warn ("Could not connect to $dsn\n");
+	my @driver_names = DBI->available_drivers();
+	my $msg = "DSN drivers apparently installed, available:\n";
+	foreach my $dn (@driver_names) {
+		$msg .= "\t$dn";
+	}
+	warn($msg."\n");
 	return undef;
     }
     my $sql_query;