1 files changed, 69 insertions, 0 deletions
diff --git a/videomv.pl b/videomv.pl
new file mode 100755
index 0000000..cc894f2
--- /dev/null
+++ b/videomv.pl
@@ -0,0 +1,69 @@
+#! /usr/bin/perl -w
+
+# This program is free software. It comes without any warranty, to the
+# extent permitted by applicable law. You can redistribute it and/or
+# modify it under the terms of the Do What The Fuck You Want To Public
+# License, Version 2, as published by Sam Hocevar.
+# See http://sam.zoy.org/wtfpl/COPYING for more details.
+
+use Getopt::Long qw(:config posix_default no_ignore_case gnu_compat
+                            bundling auto_version auto_help);
+use DBI;
+use strict;
+
+
+# Database
+my $driver    = "mysql";
+my $database  = "videodb";
+my $hostname  = "127.0.0.1";
+my $user      = "videodb";
+my $port      = 3306;
+my $password  = "videodb";
+my $videodata = "videodb_videodata";
+
+################################################################################
+
+# Connect to database
+my $dsn = "DBI:$driver:database=$database;host=$hostname;port=$port";
+my $dbh = DBI->connect($dsn, $user, $password)
+              or die "Failed to connect; have you tried `mktunnel --sql' first?";
+
+# Use utf8
+$dbh->do( "set names utf8" ) or die;
+
+
+my ($from, $to) = @ARGV;
+
+
+my $RES =
+    $dbh->selectall_hashref ( "SELECT id,title,director FROM $videodata
+                               WHERE filename = ?",
+                              'id', undef, $from
+    )
+        or die "Can't select: " . $dbh->errstr;
+
+my $nRES = scalar (keys %$RES);
+
+if ($nRES == 0) {
+    print STDERR "No entry found in the database: nothing to update there.\n";
+}
+elsif ($nRES > 1) {
+    print STDERR "$nRES > 1 entries found in the database: dunno what to update there.\n";
+}
+else {
+    my ($id,$v) = each %$RES;
+    print STDERR "Update filename for " . $v->{director} .
+                  " - " .  $v->{title} . ":\n";
+    print STDERR "`" . $from . "' -> `" . $to, "'\n";
+
+
+    $dbh->do ( "UPDATE $videodata SET filename = ? WHERE id = ?",
+               undef, $to, $id
+    )
+        or die "Can't update: " . $dbh->errstr;
+}
+
+
+
+# Disconnect
+$dbh->disconnect();