Changeset 34422 for trunk/ippScripts/scripts/background_chip.pl

Timestamp:

Sep 9, 2012, 12:41:41 PM (14 years ago)

Author:

bills

Message:

use $ipprc->prepare_output in order to deal with files to be replaced
on nodes that are not availalbe

File:

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

trunk/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