basic_db_auth: display available DSN drivers on connect error

diff --git a/helpers/basic_auth/DB/basic_db_auth.pl.in b/helpers/basic_auth/DB/basic_db_auth.pl.in
index 5581f6cc254164732793bcb4290a575e05072d02..f0188ba6d7978d326f5a1a0b40198dd4e41f6f86 100644 (file)
--- a/helpers/basic_auth/DB/basic_db_auth.pl.in
+++ b/helpers/basic_auth/DB/basic_db_auth.pl.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;