Changeset 34602

Timestamp:

Oct 25, 2012, 1:01:00 PM (14 years ago)

Author:

bills

Message:

in background processing protect against inaccessible nfs files by using prepare_output
(This has been running for several weeks)

Location:

tags/ipp-20120802/ippScripts/scripts

Files:

• background_chip.pl (modified) (3 diffs)
• background_warp.pl (modified) (1 diff)

tags/ipp-20120802/ippScripts/scripts/background_chip.pl

@@ -73 +73 @@
 
 if ($redirect) {
-    $ipprc->redirect_output($logDest) or my_die( "Unable to redirect output", $chip_bg_id, $class_id, $PS_EXIT_SYS_ERROR );
+    $ipprc->redirect_to_logfile($logDest) or my_die( "Unable to redirect output", $chip_bg_id, $class_id, $PS_EXIT_SYS_ERROR );
     print STDOUT "\n\n";
     print STDOUT "Starting script $0 on $host\n\n";
@@ -155 +155 @@
 
 $ipprc->outroot_prepare($outroot);
-my $out_image = $ipprc->filename("PPBACKGROUND.OUTPUT", $outroot, $class_id);
-my $out_mask = $ipprc->filename("PPBACKGROUND.OUTPUT.MASK", $outroot, $class_id);
-my $out_stats = $ipprc->filename("PPBACKGROUND.STATS", $outroot, $class_id);
-my $out_config = $ipprc->filename("PPBACKGROUND.CONFIG", $outroot, $class_id);
-my $traceDest = $ipprc->filename("TRACE.IMFILE", $outroot, $class_id);
+#my $out_image = $ipprc->filename("PPBACKGROUND.OUTPUT", $outroot, $class_id);
+#my $out_mask = $ipprc->filename("PPBACKGROUND.OUTPUT.MASK", $outroot, $class_id);
+#my $out_stats = $ipprc->filename("PPBACKGROUND.STATS", $outroot, $class_id);
+#my $out_config = $ipprc->filename("PPBACKGROUND.CONFIG", $outroot, $class_id);
+#my $traceDest = $ipprc->filename("TRACE.IMFILE", $outroot, $class_id);
+
+my $out_image = prepare_output("PPBACKGROUND.OUTPUT", $outroot, $class_id, 1);
+my $out_mask = prepare_output("PPBACKGROUND.OUTPUT.MASK", $outroot, $class_id, 1);
+my $out_stats = prepare_output("PPBACKGROUND.STATS", $outroot, $class_id, 1);
+my $out_config = prepare_output("PPBACKGROUND.CONFIG", $outroot, $class_id, 1);
+my $traceDest = prepare_output("TRACE.IMFILE", $outroot, $class_id, 1);
 
 # Run ppImage
@@ -238 +244 @@
 ### Pau.
 
+# Prepare to write to an output file
+#   Lookup the filename in the rules.
+#   Make sure that if file exists and is a nebulous file that there is only one instance
+#   Deal with files that have been lost.
+sub prepare_output
+{
+    my $filerule = shift;
+    my $outroot  = shift;
+    my $class_id = shift;
+    my $delete = shift;
+    $delete = 0 if !defined $delete;
+
+    my $error;
+    my $output = $ipprc->prepare_output($filerule, $outroot, $class_id, $delete, \$error)
+                    or &my_die("failed to prepare output file for: $filerule", $chip_bg_id, $class_id, $error);
+    return $output;
+}
+
+
 
 sub my_die

tags/ipp-20120802/ippScripts/scripts/background_warp.pl

@@ -88 +88 @@
 my $logDest = $ipprc->filename("LOG.EXP", $outroot, $skycell_id) or my_die( "Unable to get log filename", $warp_bg_id, $skycell_id, $PS_EXIT_SYS_ERROR );
 
-$ipprc->redirect_output($logDest) or my_die( "Unable to redirect output", $warp_bg_id, $skycell_id, $PS_EXIT_SYS_ERROR ) if $redirect;
+if ($redirect) {
+    $ipprc->redirect_to_logfile($logDest) or my_die( "Unable to redirect output", $warp_bg_id, $skycell_id, $PS_EXIT_SYS_ERROR );
+    print "\n\n";
+    print "Starting script $0 on $host at $date\n\n";
+}
+
 
 # Recipes to use based on reduction class