the port is useless when connecting through a UNIX socket

1 files changed, 4 insertions, 3 deletions

diff --git a/videoadd.pl b/videoadd.pl
index 27d40b5..9e7788b 100755
--- a/videoadd.pl
+++ b/videoadd.pl
@@ -35,7 +35,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 userid imdb url/;
+    qw /videodir driver database hostname user password userid imdb url/;
 $config{prefix} = "" unless exists $config{prefix};
 
 my $symlinks  = catdir($config{videodir},'MOVIES');    # Symlinks folder
@@ -180,7 +180,7 @@ e.g.,
   videodir  => catdir($HOME,'video'),
   driver    => 'mysql',
   database  => 'videodb',
-  hostname  => '127.0.0.1',
+  hostname  => 'example.org',
   user      => 'username',
   port      => 3306,
   password  => '******',
@@ -232,7 +232,8 @@ pod2usage(2) if $#ARGV != 0;
 my $dbh;
 unless ( defined $ignoredb_flag ) {
     # Connect to database
-    my $dsn = "DBI:$config{driver}:database=$config{database};host=$config{hostname};port=$config{port}";
+    my $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";