Changeset 42908 for trunk/tools/eam/burntool.20250520/src/burntool_night_chip.pl

Timestamp:

Jun 26, 2025, 5:05:19 PM (13 months ago)

Author:

eugene

Message:

working on new burntool / rawfix / archive paradigm

File:

• trunk/tools/eam/burntool.20250520/src/burntool_night_chip.pl (modified) (7 diffs)

trunk/tools/eam/burntool.20250520/src/burntool_night_chip.pl

@@ -22 +22 @@
 my $date = `date`;
 print "\n\n";
-print "Starting script $0 on $host at $date\n\n";
+# print "Starting script $0 on $host at $date\n\n";
+print "data MULTI\n\n";
 
 my ( $class_id, $dateobs, $dbname, $rerun, $verbose, $save_temps);
@@ -53 +54 @@
 my $missing_tools;
 my $regtool      = can_run('regtool')         or (warn "Can't find regtool"         and $missing_tools = 1);
-my $funpack      = can_run('funpack')         or (warn "Can't find funpack"         and $missing_tools = 1);
-my $ppConfigDump = can_run('ppConfigDump')    or (warn "Can't find ppConfigDump"    and $missing_tools = 1);
 if ($missing_tools) {
     warn("Can't find required tools.");
@@ -72 +71 @@
 $command .= " -ordered_by_date";
 $command .= " -dbname $dbname" if defined $dbname;
+$command .= " -limit 10";
 
 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
@@ -111 +111 @@
 foreach my $file (@$files) {
     my $exp_id     = $file->{exp_id};
-    my $exp_name   = $file->{exp_id};
+    my $exp_name   = $file->{exp_name};
     my $state      = $file->{burntool_state};
     my $data_state = $file->{data_state};
@@ -126 +126 @@
         next;
     }
+
+    # extract the storage host name
+    my ($datahost) = $rawImfileReal =~ m|/data/(ipp[a-z0-9]+).[0123]|;
+    # print STDERR "datahost: $datahost\n";
+    # next;
 
     # instantiate the burntable instance for use by the actual analysis script
@@ -137 +142 @@
 
     my $process = 1;
-    my $previousTableStyle = 0;
 
     if ($state == -2) { &my_die("Aborting as $rawImfile has modified pixel data!"); }
-    if ($state == +1 * $burntoolStateGood) {
-        $process = 0;
-        $previousTableStyle = 1;
-    }
+    if ($state == +1 * $burntoolStateGood) { &my_die("Unexpected burntool State $state"); }
+
+    # $state = -15, $burntoolStateGood = +15
     if ($state == -1 * $burntoolStateGood) {
         $process = 0;
-        $previousTableStyle = -1;
     }
     if ($rerun) { $process = 1; }
@@ -156 +158 @@
 
     if (($process == 1) || ($processNext == 1)) {
-        my $status;
+        # we now have $rawImfileReal, $previousTable, $outTableReal
+        print STDOUT "data METADATA\n";
+        print STDOUT "     rawImfileReal STR $rawImfileReal\n";
+        print STDOUT "     outTableReal  STR $outTableReal\n";
+        print STDOUT "     exposure      STR $exp_name\n";
+        print STDOUT "     class_id      STR $class_id\n";
+        print STDOUT "     fullname      STR $exp_name.$class_id\n";
+        print STDOUT "     datahost      STR $datahost\n";
+        if ($previousTable ne "") {
+            print STDOUT "     previousTable STR $previousTable\n";
+        }
+        print STDOUT "END\n\n";
+
         $processNext = 1;
-
-        # we now have $rawImfileReal, $previousTable, $outTableReal
-        print STDERR "$rawImfileReal $previousTable $outTableReal\n";
-
-        $previousTableStyle = -1;
     }
 
     ### XXX I think I can make the assumption that we are saving the tables as separate files since we
     ### want to get to burntool state -15 (v15)
-    $previousTable = "in=$outTableReal";
+    $previousTable = "$outTableReal";
 }