Changeset 19652 for trunk/ippScripts/scripts/detrend_process_exp.pl
- Timestamp:
- Sep 22, 2008, 3:48:05 PM (18 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/detrend_process_exp.pl (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/detrend_process_exp.pl
r19261 r19652 57 57 58 58 if ($redirect) { 59 my $logDest = $ipprc->filename("LOG.EXP", $outroot, "NONE") 59 my $logDest = $ipprc->filename("LOG.EXP", $outroot, "NONE") 60 60 or &my_die("Missing entry in file rules", $det_id, $exp_id, $PS_EXIT_CONFIG_ERROR); 61 61 $ipprc->redirect_output($logDest); … … 65 65 $reduction = 'DETREND' unless defined $reduction; 66 66 67 my $recipe1 = $ipprc->reduction($reduction, 'JPEG_BIN1_IMAGE_' . uc($det_type)); # Recipe to use 68 &my_die("Unrecognised detrend type: $det_type", $det_id, $exp_id, $PS_EXIT_PROG_ERROR) unless defined $recipe1; 69 70 my $recipe2 = $ipprc->reduction($reduction, 'JPEG_BIN2_IMAGE_' . uc($det_type)); # Recipe to use 71 &my_die("Unrecognised detrend type: $det_type", $det_id, $exp_id, $PS_EXIT_PROG_ERROR) unless defined $recipe2; 67 my $recipe = $ipprc->reduction($reduction, uc($det_type) . '_JPEG_IMAGE'); # Recipe to use 68 &my_die("Unrecognised detrend type: $det_type", $det_id, $exp_id, $PS_EXIT_PROG_ERROR) unless defined $recipe; 72 69 73 70 # values to extract from output metadata and the stats to calculate … … 144 141 unless ($no_op) { 145 142 # Make the jpeg for binning 1 146 $command = "$ppImage -list $list1Name $outroot -recipe PPIMAGE $recipe1"; # Command to run 143 $command = "$ppImage -list $list1Name $outroot"; # Command to run 144 $command .= " -recipe PPIMAGE PPIMAGE_N"; 145 $command .= " -recipe JPEG $recipe"; 147 146 $command .= " -dbname $dbname" if defined $dbname; 148 147 ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = … … 155 154 156 155 # Make the jpeg for binning 2 157 $command = "$ppImage -list $list2Name $outroot -recipe PPIMAGE $recipe2"; # Command to run 156 $command = "$ppImage -list $list2Name $outroot"; # Command to run 157 $command .= " -recipe PPIMAGE PPIMAGE_N"; 158 $command .= " -recipe JPEG $recipe"; 158 159 $command .= " -dbname $dbname" if defined $dbname; 159 160 ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = … … 200 201 $command .= " -exp_id $exp_id"; 201 202 $command .= " -code $exit_code"; 202 $command .= " -path_base $outroot";203 $command .= " -path_base $outroot"; 203 204 $command .= " -dbname $dbname" if defined $dbname; 204 205 system ($command);
Note:
See TracChangeset
for help on using the changeset viewer.
