From 2764618fb5825840466e6f003ec6df5e8ccdfe5e Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@ens-lyon.org>
Date: Fri, 17 Feb 2012 21:11:35 +0100
Subject: support of extra connections options (eg, ssl)

---
 videorm.pl | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'videorm.pl')

diff --git a/videorm.pl b/videorm.pl
index d05da9f..04e1e03 100755
--- a/videorm.pl
+++ b/videorm.pl
@@ -161,6 +161,11 @@ if (-l $file_s) {
 
 # 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;
-- 
cgit v1.2.3