summaryrefslogtreecommitdiffstats
path: root/videorm.pl
diff options
context:
space:
mode:
Diffstat (limited to 'videorm.pl')
-rwxr-xr-xvideorm.pl5
1 files changed, 5 insertions, 0 deletions
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;