Changeset 11837 for trunk/ippScripts/scripts/phase2.pl

Timestamp:

Feb 15, 2007, 2:23:33 PM (19 years ago)

Author:

Paul Price

Message:

Adding --no-op option which turns off processing (so one can track only the database work flow) for everything except the phase 0 scripts (need to have some real data in the database in order to track it).

File:

• trunk/ippScripts/scripts/phase2.pl (modified) (7 diffs)

trunk/ippScripts/scripts/phase2.pl

@@ -38 +38 @@
     $dbname,                    # Database name
     $workdir,                   # Working directory, for output files
-    $no_update                  # Don't update the database?
+    $no_update,                 # Don't update the database?
+    $no_op,                     # Don't do any operations?
     );
 GetOptions(
@@ -47 +48 @@
     'dbname|d=s'    => \$dbname, # Database name
     'workdir|w=s'   => \$workdir,
-    'no-update'     => \$no_update
+    'no-update'     => \$no_update,
+    'no-op'         => \$no_op,
 ) or pod2usage( 2 );
 
@@ -88 +90 @@
 $input = $ipprc->convert_filename_absolute( $input );
 
-# Run ppImage
-{
+my $stats = PS::IPP::Metadata::Stats->new(); # Stats parser
+unless ($no_op) {
+    # Run ppImage
     print "outputImage: $outputImage\n";
     print "outputBin1: $outputBin1\n";
     print "outputStats: $outputStats\n";
-
+    
     my $command = "$ppImage -file $input $outputRoot -recipe PPIMAGE " . RECIPE .
         " -stat $outputStats"; # Command to run ppImage
@@ -106 +109 @@
     &my_die("Couldn't find expected output file: $outputBin2\n", $exp_tag, $class_id, $PS_EXIT_SYS_ERROR) unless -f $outputBin2;
     &my_die("Couldn't find expected output file: $outputStats\n", $exp_tag, $class_id, $PS_EXIT_SYS_ERROR) unless -f $outputStats;
-}
 
-# Get the statistics on the processed image
-my $stats;                      # Statistics from ppImage
-{
+    # Get the statistics on the processed image
     my $statsFile;              # File handle
     open $statsFile, $outputStats or &my_die("Can't open statistics file $outputStats: $!", $exp_tag, $class_id, $PS_EXIT_SYS_ERROR);
@@ -118 +118 @@
     my $metadata = $mdcParser->parse(join "", @contents) or
         &my_die("Unable to parse metadata config doc", $exp_tag, $class_id, $PS_EXIT_PROG_ERROR);
-    $stats = PS::IPP::Metadata::Stats->new(); # Stats parser
     $stats->parse($metadata) or
         &my_die("Unable to find all values in statistics output.\n", $exp_tag, $class_id, $PS_EXIT_PROG_ERROR);
@@ -127 +126 @@
 $outputBin1  = $ipprc->convert_filename_relative( $outputBin1 );
 $outputBin2  = $ipprc->convert_filename_relative( $outputBin2 );
+
+my $bg = ($stats->bg_mean() or 'NAN');
+my $bg_stdev = ($stats->bg_stdev() or 'NAN');
+my $bg_mean_stdev = ($stats->bg_mean_stdev() or 'NAN');
+
 unless ($no_update) {
     # Command to run p2tool
@@ -135 +139 @@
     $command .= " -uri $outputImage";
     $command .= " -b1_uri $outputRoot";
-    $command .= " -bg " . $stats->bg_mean();
-    $command .= " -bg_stdev " . $stats->bg_stdev();
-    if ( defined $stats->bg_mean_stdev() ) {
-        $command .= " -bg_mean_stdev " . $stats->bg_mean_stdev();
-    } else {
-        $command .= " -bg_mean_stdev 0.0";
-    }
+    $command .= " -bg $bg -bg_stdev $bg_stdev -bg_mean_stdev $bg_mean_stdev";
     $command .= " -dbname $dbname" if defined $dbname;