Changeset 42663 for branches/eam_branches/ipp-20230313/ippScripts/scripts/xcstack_skycell.pl

Timestamp:

Apr 22, 2024, 3:53:54 PM (2 years ago)

Author:

eugene

Message:

fixup tasks and tools for xcstack - xccal

File:

• branches/eam_branches/ipp-20230313/ippScripts/scripts/xcstack_skycell.pl (modified) (4 diffs)

branches/eam_branches/ipp-20230313/ippScripts/scripts/xcstack_skycell.pl

@@ -120 +120 @@
         my $stack_id = $input->{stack_id};
 
+        my $good_frac = $input->{good_frac};
+        my $Nsources  = $input->{sources};
+
+        print "camera: $camera_name, stack_id: $stack_id, good_frac: $good_frac, Nsources: $Nsources\n";
+        if ($good_frac < 1e-4) { my_escape("low good_frac ($good_frac) for $camera_name, stack_id $stack_id", $xcstack_id, 6000); }
+        if ($Nsources < 1) { my_escape("no sources for $camera_name, stack_id $stack_id", $xcstack_id, 6001); }
+
         # check for the input files
         my $image    = $ipprc->filename("PPSTACK.UNCONV",          $input->{path_base}); # Image name
@@ -131 +138 @@
         my $have_sources = $ipprc->file_exists( $sources );
         
-        &my_die("Image $image does not exist", $stack_id, $PS_EXIT_SYS_ERROR) unless $have_image;
-        &my_die("Mask $mask does not exist", $stack_id, $PS_EXIT_SYS_ERROR) unless $have_mask;
-        &my_die("Weight $weight does not exist", $stack_id, $PS_EXIT_SYS_ERROR) unless $have_weight;
-        &my_die("Sources $sources does not exist", $stack_id, $PS_EXIT_SYS_ERROR) unless $have_sources;
+        &my_die("Image $image does not exist for $camera_name, stack_id $stack_id", $xcstack_id, $PS_EXIT_SYS_ERROR) unless $have_image;
+        &my_die("Mask $mask does not exist for $camera_name, stack_id $stack_id", $xcstack_id, $PS_EXIT_SYS_ERROR) unless $have_mask;
+        &my_die("Weight $weight does not exist for $camera_name, stack_id $stack_id", $xcstack_id, $PS_EXIT_SYS_ERROR) unless $have_weight;
+        &my_die("Sources $sources does not exist for $camera_name, stack_id $stack_id", $xcstack_id, $PS_EXIT_SYS_ERROR) unless $have_sources;
         
         print $listFile "INPUT$num\tMETADATA\n";
@@ -148 +155 @@
 close($listFile);
 
-&my_die("input list contains less than two elements", $xcstack_id, $PS_EXIT_DATA_ERROR) unless scalar $num >= 2;
+if ($num < 2) { &my_escape("not enough input stacks to make an xcstack", $xcstack_id, 6002); }
 
 print "I've loaded my inputs: $xcstack_id\n";
@@ -333 +340 @@
         }
         $command .= " -dbname $dbname" if defined $dbname;
+        print "running in my_die: $command\n";
         system ($command);
     }
     exit $exit_code;
+}
+
+sub my_escape
+{
+    my $msg = shift;            # Warning message on exit
+    my $xcstack_id = shift;       # Xcstack identifier
+    my $quality = shift;      # Exit code to add
+
+    carp($msg);
+
+    if (defined $xcstack_id and not $no_update) {
+        my $command = "$xcstacktool -xcstack_id $xcstack_id";
+        if ($run_state eq 'new') {
+            $command .= " -addsumskyfile";
+            $command .= " -path_base $outroot" if defined $outroot;
+            $command .= " -hostname $host" if defined $host;
+            $command .= " -quality $quality" if defined $quality;
+            $command .= (" -dtime_script " . ((DateTime->now->mjd - $mjd_start) * 86400));
+        } else {
+            $command .= " -updatesumskyfile";
+            $command .= " -set_quality $quality" if defined $quality;
+        }
+        $command .= " -dbname $dbname" if defined $dbname;
+        print "running in my_die: $command\n";
+        system ($command);
+    }
+    exit 0;
 }