support of extra connections options (eg, ssl)

1 files changed, 5 insertions, 0 deletions

diff --git a/videodb-check.pl b/videodb-check.pl
index 8acff46..11c5de2 100755
--- a/videodb-check.pl
+++ b/videodb-check.pl
@@ -134,6 +134,11 @@ if (@ARGV) {
 
 # Connect to database
 my $dsn = "DBI:$config{driver}:database=$config{database};host=$config{hostname};port=$config{port}";
+if (exists $config{dbi_misc}) {
+    while (my ($k,$v) = each $config{dbi_misc}) {
+        $dsn .= ";$k=$v";
+    }
+}
 my $dbh = DBI->connect($dsn, $config{user}, $config{password})
            or die "Can't connect do database\n";
 $dbh->do( "set names utf8" ) or die;