Ticket #873: mythrename-verbose.diff

mythrename.pl

@@ -45 +45 @@
                'separator=s'                  => \$separator,
                'replacement=s'                => \$replacement,
                'usage|help|h'                 => \$usage,
-               'underscores'                  => \$underscores
+               'underscores'                  => \$underscores,
+               'verbose'                  => \$verbose
               );
 
 # Print usage
@@ -124 +125 @@
 
     default:  No underscores
 
+--verbose
+
+    Print debug info.
+
+    default: No info printed to console
+
 --help
 
     Show this help text.
@@ -215 +222 @@
     # Double-check the destination
         $dest ||= "$video_dir/show_names";
     # Alert the user
-        print "Link destination directory:  $dest\n";
+        if ($verbose) {
+            print "Link destination directory:  $dest\n";
+        }
     # Create nonexistent paths
         unless (-e $dest) {
             mkpath($dest, 0, 0755) or die "Failed to create $dest:  $!\n";
@@ -355 +364 @@
         # Create the link
             symlink "$video_dir/".$info{'basename'}, "$dest/$name"
                 or die "Can't create symlink $dest/$name:  $!\n";
-            print "$dest/$name\n";
+            if ($verbose) {
+                print "$dest/$name\n";
+            }
         }
     # Rename the file
         else {
@@ -378 +389 @@
                     $rows = $sh2->execute($info{'basename'}, $info{'chanid'}, $info{'starttime'});
                     die "Couldn't restore original basename in database for ".$info{'basename'}.":  ($q2)\n" unless ($rows == 1);
                 }
-                print $info{'basename'}."\t-> $name\n";
+                if ($verbose) {
+                    print $info{'basename'}."\t-> $name\n";
+                }
             }
         }
     }