diff options
Diffstat (limited to 'videomv.pl')
-rwxr-xr-x | videomv.pl | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -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; |