Ticket #5441: move.diff

contrib/maintenance/myth.find_orphans.pl

@@ -40 +40 @@
 use DBI;
 use Sys::Hostname;
 use Getopt::Long;
-
+use File::Copy;
 #
 # options
 #
@@ -58 +58 @@
 my $opt_help =          0;
 my $opt_dryrun =        0;
 my $opt_rerecord =      0;
-
+my $opt_domove =        0;
+my $opt_destdir =       "/tmp";
 GetOptions(
         'host=s'        => \$opt_host,
         'dbhost=s'      => \$opt_dbhost,
@@ -73 +74 @@
         'debug+'        => \$debug,
         'help'          => \$opt_help,
         'h'             => \$opt_help,
-        'v'             => \$opt_help);
+        'v'             => \$opt_help,
+        'domove'        => \$opt_domove,
+        'destdir=s'     => \$opt_destdir);
 
 if ($opt_help) {
         print<<EOF
@@ -92 +95 @@
         --dodelete              delete files with no record (default: don't)
         --dryrun                display delete actions without doing them
         --rerecord              set db entries to re-record missing files (requires --dodbdelete)
-
+        --domove                move files instead of deleting specify destination with --destdir= (default /tmp)
 EOF
 ;
         exit(0);
@@ -207 +210 @@
                                                 }
                                         }
                                 }
+                                if ($opt_domove) {
+                                        printf STDERR "moving [%s]: %s/%s to %s\n",pretty_filesize($this_filesize),$this_dir,$this_file, $opt_destdir;
+                                        if (!$opt_dryrun) {
+                                                move("$this_dir/$this_file",$opt_destdir);
+                                                if (-f "$this_dir/$this_file") {
+                                                        $errors++;
+                                                        printf "ERROR: Could not move $this_dir/$this_file to $opt_destdir";
+                                                        }
+                                                }
+                                        }
                         } else {
                                 $known_files++;
                                 $known_size += $this_filesize;