Changeset 33023 for branches/haf_add201112/ippScripts/scripts/minidvodb_premerge.pl

Timestamp:

Dec 24, 2011, 3:28:40 PM (15 years ago)

Author:

heather

Message:

smore changes: handles -uncensored properly (well for queuing, it queues
things regardless of magicked state, as we copy a backup of the uncensored
files), and some debugging to get minidvodb's relphot'd and resorted properly
(some typos)

File:

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

branches/haf_add201112/ippScripts/scripts/minidvodb_premerge.pl

@@ -79 +79 @@
 
 unless ($no_op) {
-    {
+    
         #this is chopped into several parts: addstar, relphot
         #addstar
-        {
+        {
             my $command  = "$addstar -resort";
             $command .= " -D CAMERA $camera";
@@ -110 +110 @@
             print "$command\n";
             my $mjd_relphot_start = DateTime->now->mjd;   # MJD of starting script
-
+            
             my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
                 run(command => $command, verbose => $verbose);
@@ -122 +122 @@
 
         {
-
+            
             $dtime_script = 86400.0*(DateTime->now->mjd - $mjd_start);
             my $command = "addtool -minidvodb_id $minidvodb_id";
@@ -139 +139 @@
             }
         }
-    } else {
-        &my_die("dvodb: minidvodb_id = $minidvodb_id not found", $minidvodb_id, $PS_EXIT_UNKNOWN_ERROR);
-    }
+#} else {
+#    &my_die("dvodb: minidvodb_id = $minidvodb_id not found", $minidvodb_id, $PS_EXIT_UNKNOWN_ERROR);
+#}
 } else {
     print "skipping processing for minidvodb_id = $minidvodb_id\n";