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)

---
 videoadd.pl | 30 ++++++++++++++++++++++++++----
 1 file changed, 26 insertions(+), 4 deletions(-)

(limited to 'videoadd.pl')

diff --git a/videoadd.pl b/videoadd.pl
index add8f2a..b1ebb0f 100755
--- a/videoadd.pl
+++ b/videoadd.pl
@@ -48,8 +48,8 @@ $config{url} =~ s/\/*$//;
 my $ignoredb_flag;
 my $sort_flag = 1;
 my %options;
-GetOptions( "seen"      => sub { $options{seen} = 1 }
-          , "s|search=s"=> sub { $imdb{crit} = $_[1] }
+GetOptions( #"seen"      => sub { $options{seen} = 1 }
+           "s|search=s"=> sub { $imdb{crit} = $_[1] }
 #          , "u|update=s"=> update id/filename
           , "o=s"       => sub { my ($k,$v) = split /=/, $_[1], 2;
                                  $options{lc $k} = $v; }
@@ -74,6 +74,11 @@ my $dbh;
 unless ( defined $ignoredb_flag ) {
     # 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";
+        }
+    }
     $dbh = DBI->connect($dsn, $config{user}, $config{password})
              or die "Error: Can't connect do database.\n";
     $dbh->do( "SET NAMES UTF8" ) or die "Error: Can't set names to UTF-8.\n";
@@ -207,7 +212,8 @@ if ( defined($file) ) {
 
 unless ( defined $ignoredb_flag ) {
     my $INSERT = "INSERT INTO $config{videodata}
-                  SET mediatype = 14";
+                  SET mediatype = 14,
+                      created = NOW()";
     if (defined $new{filedate}) {
         $INSERT .= ", filedate = FROM_UNIXTIME($new{filedate})";
         delete $new{filedate};
@@ -241,7 +247,23 @@ unless ( defined $ignoredb_flag ) {
 
 if ( defined ($file) and defined ($sort_flag) ) {
     if (defined $new{director}) {
-        move ( $file, catfile ( $directors, $new{director}, $new{filename} ) )
+        my $dir = catdir ( $directors, $new{director} );
+        unless (-d $dir) {
+            print STDERR "Directory `$dir' does not exist. ";
+            until (-d $dir) {
+                print STDERR "Should I create it? (Y/n) ";
+                my $a = lc <STDIN>;
+                chomp $a;
+                if ($a eq 'y' or $a eq '') {
+                    mkdir $dir
+                        or die "Error: Cannot mkdir `$dir': $!\n";
+                }
+                elsif ($a eq 'n') {
+                    exit 0;
+                }
+            }
+        }
+        move ( $file, catfile ( $dir, $new{filename} ) )
             or warn "Warning: Cannot move file: $!.\n";
 
         symlink catfile( updir(), 'DIRECTORS', $new{director}, $new{filename} ),
-- 
cgit v1.2.3