Changeset 14159 for trunk/ippScripts/scripts/chip_imfile.pl

Timestamp:

Jul 12, 2007, 9:36:49 AM (19 years ago)

Author:

eugene

Message:

send errors to database

File:

• trunk/ippScripts/scripts/chip_imfile.pl (modified) (5 diffs)

trunk/ippScripts/scripts/chip_imfile.pl

@@ -64 +64 @@
 my $recipe = $ipprc->reduction($reduction, 'CHIP'); # Recipe to use
 unless ($recipe) {
-    &my_die("Couldn't find selected reduction for CHIP: $reduction\n", $chip_id, $class_id, $PS_EXIT_SYS_ERROR);
+    &my_die("Couldn't find selected reduction for CHIP: $reduction\n", $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
 }
 
@@ -103 +103 @@
 my $outputRoot  = $ipprc->file_prepare( "$exp_tag.ch.$chip_id", $workdir, $input_uri );
 
-my $outputImage = $ipprc->filename("PPIMAGE.CHIP",      $outputRoot, $class_id) or &my_die("Missing entry from camera config", $chip_id, $class_id, $PS_EXIT_PROG_ERROR);
-my $outputMask  = $ipprc->filename("PPIMAGE.CHIP.MASK", $outputRoot, $class_id) or &my_die("Missing entry from camera config", $chip_id, $class_id, $PS_EXIT_PROG_ERROR);
-my $outputBin1  = $ipprc->filename("PPIMAGE.BIN1",      $outputRoot, $class_id) or &my_die("Missing entry from camera config", $chip_id, $class_id, $PS_EXIT_PROG_ERROR);
-my $outputBin2  = $ipprc->filename("PPIMAGE.BIN2",      $outputRoot, $class_id) or &my_die("Missing entry from camera config", $chip_id, $class_id, $PS_EXIT_PROG_ERROR);
-my $outputStats = $ipprc->filename("PPIMAGE.STATS",     $outputRoot, $class_id) or &my_die("Missing entry from camera config", $chip_id, $class_id, $PS_EXIT_PROG_ERROR);
+my $outputImage = $ipprc->filename("PPIMAGE.CHIP",      $outputRoot, $class_id) or &my_die("Missing entry from camera config", $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
+my $outputMask  = $ipprc->filename("PPIMAGE.CHIP.MASK", $outputRoot, $class_id) or &my_die("Missing entry from camera config", $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
+my $outputBin1  = $ipprc->filename("PPIMAGE.BIN1",      $outputRoot, $class_id) or &my_die("Missing entry from camera config", $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
+my $outputBin2  = $ipprc->filename("PPIMAGE.BIN2",      $outputRoot, $class_id) or &my_die("Missing entry from camera config", $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
+my $outputStats = $ipprc->filename("PPIMAGE.STATS",     $outputRoot, $class_id) or &my_die("Missing entry from camera config", $chip_id, $class_id, $PS_EXIT_CONFIG_ERROR);
 
 # Run ppImage
@@ -125 +125 @@
 
     &my_die("Couldn't find expected output file: $outputImage\n", $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputImage);
-    &my_die("Couldn't find expected output file: $outputMask\n", $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputMask);
-    &my_die("Couldn't find expected output file: $outputBin1\n", $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputBin1);
-    &my_die("Couldn't find expected output file: $outputBin2\n", $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputBin2);
+    &my_die("Couldn't find expected output file: $outputMask\n",  $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputMask);
+    &my_die("Couldn't find expected output file: $outputBin1\n",  $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputBin1);
+    &my_die("Couldn't find expected output file: $outputBin2\n",  $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputBin2);
     &my_die("Couldn't find expected output file: $outputStats\n", $chip_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputStats);
 
@@ -145 +145 @@
     # extract the stats from the metadata
     unless ($stats->parse($metadata)) {
-        &my_die("Unable to find all values in statistics output.\n", $chip_id, $class_id, $PS_EXIT_PROG_ERROR);
+        &my_die("Failure extracting metadata from the statistics output file.\n", $chip_id, $class_id, $PS_EXIT_PROG_ERROR);
     }
 }
@@ -187 +187 @@
         $command .= " -uri $outputImage";
         $command .= " -dbname $dbname" if defined $dbname;
-###        system ($command);
+        system ($command);
     }
     exit $exit_code;