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 615c47bc287a1bcf8458f14a866d9586e1d9578e..901a6ac526f49ce31a4ceb894c967ae72a702727 100644 (file)
--- 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;