From f85d269ba2cfd82c6ad541ada29e97023aa365df Mon Sep 17 00:00:00 2001
From: Amos Jeffries <squid3@treenet.co.nz>
Date: Fri, 16 Sep 2011 04:55:04 -0600
Subject: [PATCH] db_auth: display available DSN drivers on connect error

---
 helpers/basic_auth/DB/squid_db_auth.in | 6 ++++++
 1 file changed, 6 insertions(+)

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;
-- 
2.47.2