support of extra connections options (eg, ssl)

1 files changed, 5 insertions, 0 deletions

diff --git a/videomv.pl b/videomv.pl
index f45d463..ddc3357 100755
--- a/videomv.pl
+++ b/videomv.pl
@@ -379,6 +379,11 @@ my @real_directors = splitdir($real_directors);
 my ($dsn, $dbh, $RES, $nRES, $id);
 unless (defined $ignoredb_flag) {
     $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";
+        }
+    }
     $dbh = DBI->connect($dsn, $config{user}, $config{password})
                or die "Can't connect do database";
     $dbh->do( "set names utf8" ) or die;