Changeset 8255 for trunk/ippScripts/scripts/phase0imfile.pl

Timestamp:

Aug 8, 2006, 7:18:17 PM (20 years ago)

Author:

Paul Price

Message:

Adding exposure time, abstracting the p0search options to make change easier.

File:

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

trunk/ippScripts/scripts/phase0imfile.pl

@@ -10 +10 @@
 use constant RECIPE => "PPSTATS_PHASE0_IMFILE"; # Recipe to use for ppStats
 
-use constant IMFILE_BG => 'background'; # Key for the background out of p0search -pendingimfile
-use constant IMFILE_BGSD => 'background_stdev'; # Key for the background standard deviation
+# Switches for p0search
+use constant P0SEARCH_MODE => '-updateimfile'; # Mode for p0search
+use constant P0SEARCH_EXPID => '-exp_id'; # Switch to specify the exposure id
+use constant P0SEARCH_CLASSID => '-class_id'; # Switch to specify the class id
+use constant P0SEARCH_BG => '-bg'; # Switch to add the background
+use constant P0SEARCH_BGSD => '-background_stdev'; # Switch to add the bg stdev
+use constant P0SEARCH_EXPTIME => '-exp_time'; # Switch to add the exposure time
 
 if (scalar @ARGV == 0 || scalar @ARGV > 3) {
@@ -35 +40 @@
 my $parsed;                     # Parsed metadata
 {
-    my $command = "$ppStats $file"; # Command to run ppStats
+    my $command = "$ppStats $file -recipe PPSTATS " . RECIPE; # Command to run ppStats
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => 0);
+        run(command => $command, verbose => 1);
     die "Unable to perform ppStats on exposure id $expid: $error_code\n" if not $success;
     $parsed = $mdcParser->parse(join "", @$stdout_buf);
@@ -44 +49 @@
 my $bg = 0;                     # Mean background level
 my $sd = 0;                     # Mean standard deviation
+my $expTime = 0;                # Mean exposure time
 my $bgNum = 0;                  # Number of background entries
 my $sdNum = 0;                  # Number of standard deviation entries
+my $expTimeNum = 0;             # Number of exposure time entries
 foreach my $fpaItem (@$parsed) {
     if ($fpaItem->{class} eq "metadata") {
@@ -64 +71 @@
                             $bgNum++;
                         }
+                    } elsif ($cellItem->{name} =~ /CELL\.EXPOSURE/) {
+                        $expTime += $cellItem->{value};
+                        $expTimeNum++;
                     }
                 }
@@ -70 +80 @@
     }
 }
+die "Unable to find statistics.\n" if ($bgNum == 0 or $sdNum == 0);
 $bg /= $bgNum;
 $sd /= $sdNum;
+die "Unable to find exposure times.\n" if ($expTimeNum == 0);
+$expTime /= $expTimeNum;
 
 # Push the results into the database
 {
-    my $command = "$p0search -updateimfile -exp_id $expid -class_id $classid -background $bg " .
-        "-background_stdev $sd"; # Command to run p0search
+    my $command = "$p0search " . P0SEARCH_MODE . " " . P0SEARCH_EXPID() . " $expid " .
+        P0SEARCH_CLASSID() . " $classid " . P0SEARACH_BG() ." $bg " . P0SEARCH_BGSD() ." $sd " .
+        P0SEARCH_EXPTIME() . " $expTime"; # Command to run p0search
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => 0);
+        run(command => $command, verbose => 1);
     die "Unable to perform p0search -updateimfile: $error_code\n" if not $success;
 }
-