Changeset 27256 for trunk/ippScripts/scripts/magic_destreak_cleanup.pl

Timestamp:

Mar 11, 2010, 3:53:13 PM (16 years ago)

Author:

bills

Message:

don't add force flag unless --force is included on the command line

File:

• trunk/ippScripts/scripts/magic_destreak_cleanup.pl (modified) (7 diffs)

trunk/ippScripts/scripts/magic_destreak_cleanup.pl

@@ -36 +36 @@
 
 # Parse the command-line arguments
-my ($magic_ds_id, $camera);
+my ($magic_ds_id, $camera, $force);
 my ($dbname, $save_temps, $verbose, $no_update, $no_op, $logfile);
 
@@ -42 +42 @@
            'magic_ds_id=s'  => \$magic_ds_id,# Magic destreak run identifier
            'camera=s'       => \$camera,     # camera for evaluating file rules
+           'force'          => \$force,      # force deletion
            'save-temps'     => \$save_temps, # Save temporary files?
            'dbname=s'       => \$dbname,     # Database name
@@ -104 +105 @@
 my $cam_path_base = $run->{cam_path_base};
 my $inverse = $run->{inverse};
+my $replace = $run->{re_place};
 
 
 &my_die("unexpected run state found: $state", $magic_ds_id, $PS_EXIT_CONFIG_ERROR) if $state ne "goto_cleaned";
-&my_die("clean not allowed for raw stage, use goto_restore", $magic_ds_id, $PS_EXIT_CONFIG_ERROR) if $stage eq "raw";
+&my_die("clean not allowed for raw stage, use goto_restore", $magic_ds_id, $PS_EXIT_CONFIG_ERROR) if ($stage eq "raw"); # XXX: add this once we implement and $replace;
 
 
@@ -126 +128 @@
             # we use the mask output from the camera stage for input and replace
             # the output of the chip stage with that mask as well.
-            my $cammask   = $ipprc->filename("PSASTRO.OUTPUT.MASK", $cam_path_base, $component);
+            my $cammask   = $cam_path_base ? $ipprc->filename("PSASTRO.OUTPUT.MASK", $cam_path_base, $component) : undef;
 
             if ($backup_path_base) {
@@ -141 +143 @@
                 }
 
-                $bmask   = dirname($backup_path_base) . "/" . $prefix . basename($cammask);
+                $bmask   = dirname($backup_path_base) . "/" . $prefix . basename($cammask) if $cammask;
             }
             if ($recovery_path_base) {
@@ -148 +150 @@
                 $rweight = $ipprc->filename("PPIMAGE.CHIP.VARIANCE", $recovery_path_base, $component);
                 # This is kludgey but correct
-                $rmask   = dirname($recovery_path_base) . "/" . basename($cammask);
+                $rmask   = dirname($recovery_path_base) . "/" . basename($cammask) if $cammask;;
             }
         } elsif ($stage eq "camera") {
@@ -226 +228 @@
                 if (!$no_update) {
                     print STDERR "deleting $file\n" if $verbose;
-                    $ipprc->file_delete($file, 1) or my_die("Failed to delete $file", $magic_ds_id, $PS_EXIT_UNKNOWN_ERROR);
-                    } else {
+                    $ipprc->file_delete($file, $force) or my_die("Failed to delete $file", $magic_ds_id, $PS_EXIT_UNKNOWN_ERROR);
+                } else {
                     print STDERR "skipping delete $file\n";
                 }