summaryrefslogtreecommitdiffstats
path: root/videomv.pl
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem.moulin@ens-lyon.org>2011-08-10 14:54:38 +0200
committerGuilhem Moulin <guilhem.moulin@ens-lyon.org>2011-08-10 14:54:38 +0200
commit0b6c492c04694247edc09e7838247d05d730fe5e (patch)
tree928595edb8597f16dd960058fdba3c5e0f1c8b34 /videomv.pl
parentd3083a686983131b5cbb645ac9fdd54199d07426 (diff)
dirs
Diffstat (limited to 'videomv.pl')
-rwxr-xr-xvideomv.pl9
1 files changed, 4 insertions, 5 deletions
diff --git a/videomv.pl b/videomv.pl
index bce7064..45ad208 100755
--- a/videomv.pl
+++ b/videomv.pl
@@ -24,11 +24,8 @@ use strict;
# Configuration
-my $symlinks = catdir('/','tmp','video','MOVIES'); # Symlinks folder
-my $directors = catdir('', 'tmp','video','DIRECTORS'); # Directors folder
-
-#my $symlinks = catdir($HOME,'video','MOVIES'); # Symlinks folder
-#my $directors = catdir($HOME,'video','DIRECTORS'); # Directors folder
+my $symlinks = catdir($HOME,'video','MOVIES'); # Symlinks folder
+my $directors = catdir($HOME,'video','DIRECTORS'); # Directors folder
my $driver = "mysql";
my $database = "videodb";
@@ -554,6 +551,8 @@ sub perform {
sub revert {
my @actions = reverse @_;
+ return if $#actions < 0;
+
print LOG "\n";
print STDERR "Failed!: reverting successful changes...\n";