Changeset 24859

Timestamp:

Jul 20, 2009, 10:17:07 AM (17 years ago)

Author:

eugene

Message:

add rerun_from_first option and use ordered_by_date

File:

• trunk/tools/ipp_apply_burntool.pl (modified) (8 diffs)

trunk/tools/ipp_apply_burntool.pl

@@ -20 +20 @@
 use Pod::Usage qw( pod2usage );
 
-my ( $class_id, $dateobs_begin, $dateobs_end, $skip_burned, $dbname, $logfile, $verbose, $save_temps);
+my ( $class_id, $dateobs_begin, $dateobs_end, $skip_burned, $rerun_from_first, $dbname, $logfile, $verbose, $save_temps);
 GetOptions(
     'class_id=s'        => \$class_id, # chip identifier
@@ -28 +28 @@
     'logfile=s'         => \$logfile,
     'skip_burned'       => \$skip_burned,   # Print to stdout
+    'rerun_from_first'  => \$rerun_from_first,   # Print to stdout
     'verbose'           => \$verbose,   # Print to stdout
     'save-temps'        => \$save_temps, # Save temporary files?
@@ -42 +43 @@
     defined $dbname;
 
+if ($skip_burned and $rerun_from_first) { &my_die("-rerun_from_first and -skip_burned are incompatible"); }
+
 my $missing_tools;
 my $regtool  = can_run('regtool')  or (warn "Can't find regtool" and $missing_tools = 1);
@@ -58 +61 @@
 $command .= " -dateobs_begin $dateobs_begin";
 $command .= " -dateobs_end $dateobs_end";
-# $command .= " -limit 20";
+$command .= " -ordered_by_date";
 $command .= " -dbname $dbname" if defined $dbname;
 
@@ -101 +104 @@
 if (! $skip_burned)  {
     foreach my $file (@files) {
+        
+        # rerun_from_first treats the first image as already burned (if it is already burned)
+        # the artifact table from the first file is used for the rest of the sequence.
+        if ($rerun_from_first) {
+            $skip_burned = 1;
+            $rerun_from_first = 0;
+            next;
+        }
         my $exp_id = $file->{exp_id};
 
@@ -108 +119 @@
             &my_die("failed to update imfile");
         }
+        $file->{user_1} = 0.1;
     }
 }
@@ -122 +134 @@
         ($rawImfileReal) = $rawImfile =~ m|^neb:/(.*)|;
     }
-    # print "rawImfile: $rawImfile -> $rawImfileReal\n";
+    print "rawImfile: $rawImfile -> $rawImfileReal\n";
 
     # mangle name, create tmp file (always a UNIX file)
@@ -149 +161 @@
     }
 
+    print "$rawImfile : $skip_burned, $file->{user_1}\n";
+
     if (! ($skip_burned and ($file->{user_1} > 0.5))) {
+        print "running on: $rawImfile\n";
         # uncompress the image (do we need to check if it is compressed?)
         my $status = vsystem ("$funpack -S $rawImfileReal > $tmpImfileReal", $REALRUN);