summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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";