Changeset 42394 for trunk/ippScripts/scripts/ipp_apply_burntool_single.pl

Timestamp:

Feb 14, 2023, 12:59:01 PM (3 years ago)

Author:

tdeboer

Message:

burntool handling/parsing updates

File:

• trunk/ippScripts/scripts/ipp_apply_burntool_single.pl (modified) (3 diffs)

trunk/ippScripts/scripts/ipp_apply_burntool_single.pl

@@ -178 +178 @@
     
     my $outTable  = $this_uri;
-    $outTable  =~ s/fits$/burn.tbl/;
+    if($burntoolStateGood == 15) {
+        $outTable =~ s/fits$/burn.v15.tbl/;         
+    } else {
+        $outTable =~ s/fits$/burn.tbl/;             
+    }
+
     my $outTableReal = $ipprc->file_resolve($outTable, 1);
     if (!$outTableReal) {
@@ -188 +193 @@
     if ($previous_uri) {
         $previousTable = $previous_uri;
-        $previousTable =~ s/fits$/burn.tbl/;
+        if($burntoolStateGood == 15) {
+            $previousTable =~ s/fits$/burn.v15.tbl/;        
+        } else {
+            $previousTable =~ s/fits$/burn.tbl/;            
+        }
         $previousTableReal = $ipprc->file_resolve($previousTable, 0);
         if (!$previousTableReal) {
@@ -219 +228 @@
 # burntool
     if (($previousTableReal)&&($previousTableReal ne '')) {
+        print "Running: $burntool $tempPixels in=$previousTableReal out=$outTableReal tableonly=t persist=t\n";
         $status = vsystem ("$burntool $tempPixels in=$previousTableReal out=$outTableReal tableonly=t persist=t", $REALRUN);
     }
     else {
+        print "Running: $burntool $tempPixels out=$outTableReal tableonly=t persist=t\n";
         $status = vsystem ("$burntool $tempPixels out=$outTableReal tableonly=t persist=t", $REALRUN);
     }