Changeset 33027 for branches/haf_add201112/ippScripts/scripts/addstar_run.pl

Timestamp:

Dec 27, 2011, 11:34:14 AM (15 years ago)

Author:

heather

Message:

this records which camRun smfs are ingested (0 = uncensored, # = magicked, but
it foudn the uncensored one), and fixes reverts for all

File:

• branches/haf_add201112/ippScripts/scripts/addstar_run.pl (modified) (4 diffs)

branches/haf_add201112/ippScripts/scripts/addstar_run.pl

@@ -38 +38 @@
 }
 my $minidvodb_path;
+my $stage_extra1;
 my ( $add_id, $camera, $stage, $stage_id, $multi_num, $outroot, $stageroot, $dbname, $reduction, $dvodb, $minidvodb, $minidvodb_name, $minidvodb_group, $image_only, $verbose, $no_update,
      $no_op, $redirect, $save_temps);
@@ -151 +152 @@
         #is this cam_id magicked or not?
         if ($magicked) {
+            $stage_extra1 = $magicked;
             $fpaObjects = $ipprc->destreaked_filename("$fpaObjects") or &my_die("Missing entry from camera config", $add_id, $PS_EXIT_CONFIG_ERROR);
             print "cam_id is magicked, using $fpaObjects for the cam smf\n";
@@ -251 +253 @@
 $fpaCommand .= " -dvodb_path $minidvodb_path" if defined $minidvodb_path;
 $fpaCommand .= " -minidvodb_name $minidvodb_name" if defined $minidvodb_name;
+$fpaCommand .= " -stage_extra1" if defined $stage_extra1;
 $fpaCommand .= " -dbname $dbname" if defined $dbname;
 print $fpaCommand;
@@ -283 +286 @@
         $command .= " -path_base $outroot" if defined $outroot;
         $command .= (" -dtime_addstar " . ((DateTime->now->mjd - $mjd_start) * 86400));
-        $fpaCommand .= " -minidvodb_name $minidvodb_name" if defined $minidvodb_name;
+   #     $command .= " -minidvodb_name $minidvodb_name" if defined $minidvodb_name; don't think we want it recorded (not sure)
+        $command .= " -stage_extra1 $stage_extra1" if defined $stage_extra1;
         $command .= " -dbname $dbname" if defined $dbname;
+        print $command;
         system ($command);
     }