From 2c13efc16088fab44cadf6c819b286d51100e527 Mon Sep 17 00:00:00 2001 From: Guilhem Moulin Date: Sun, 19 Feb 2012 00:29:45 +0100 Subject: the port is useless when connecting through a UNIX socket --- videomv.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'videomv.pl') diff --git a/videomv.pl b/videomv.pl index 2448855..e4c2a14 100755 --- a/videomv.pl +++ b/videomv.pl @@ -29,7 +29,7 @@ my %config = do $confile; die "Error in `" .$confile. "'\n" if $@ || not %config; map { exists $config{$_} || die "Error: Missing `${_}'.\n" } - qw /videodir driver database hostname user port password/; + qw /videodir driver database hostname user password/; $config{prefix} = "" unless exists $config{prefix}; my $symlinks = catdir($config{videodir},'MOVIES'); # Symlinks folder @@ -307,7 +307,7 @@ e.g., videodir => catdir($HOME,'video'), driver => 'mysql', database => 'videodb', - hostname => '127.0.0.1', + hostname => 'example.org', user => 'username', port => 3306, password => '******', @@ -379,7 +379,8 @@ my @real_directors = splitdir($real_directors); # Connect to database my ($dsn, $dbh, $RES, $nRES, $id); unless (defined $ignoredb_flag) { - $dsn = "DBI:$config{driver}:database=$config{database};host=$config{hostname};port=$config{port}"; + $dsn = "DBI:$config{driver}:database=$config{database};host=$config{hostname}"; + $dsn .= ";port=$config{port}" if defined $config{port}; if (defined $config{dbi_misc}) { while (my ($k,$v) = each %{$config{dbi_misc}}) { $dsn .= ";$k=$v"; -- cgit v1.2.3