prevent duplicates and be verbose

halkeye · Jun 26, 2010 · 2d8123f · 2d8123f
1 parent 070472e
commit 2d8123f
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/fixMythbusters.pl b/fixMythbusters.pl
@@ -20,6 +20,7 @@
     {
         my $info = $tvdb->getEpisode($series, $season, $epNum);
         next unless $info->{'EpisodeName'};
+        die "Duplicate named ep - $info->{'EpisodeName'}" if $realEpMap->{$info->{'EpisodeName'}};
 
         $realEpMap->{$info->{'EpisodeName'}} = {
             'epNum' => $info->{'EpisodeNumber'},
@@ -67,6 +68,7 @@
     my $newFileName = sprintf("%s - S%02dE%02d - %s%s", 
             $series, $info->{season}, $info->{epNum}, $row->{epName}, $suffix
     );
+    warn($oldFilename, " /home/halkeye/downloads/MythBusters/$newFileName\n");
     File::Copy::copy($oldFilename, "/home/halkeye/downloads/MythBusters/$newFileName")
         or warn("unable to copy $oldFilename: $!");
 }