Changeset 9097 for trunk/ippScripts/scripts/detrend_process_imfile.pl
- Timestamp:
- Oct 2, 2006, 12:16:03 PM (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/detrend_process_imfile.pl
r9092 r9097 14 14 use Pod::Usage qw( pod2usage ); 15 15 16 my ($det_id, $exp_ id, $class, $class_id, $det_type, $input_uri, $output_uri, $no_update);16 my ($det_id, $exp_tag, $class, $class_id, $det_type, $input_uri, $output_uri, $no_update); 17 17 GetOptions( 18 18 'det_id|d=s' => \$det_id, 19 'exp_ id|e=s' => \$exp_id,19 'exp_tag|e=s' => \$exp_tag, 20 20 'class=s' => \$class, # unused 21 21 'class_id|i=s' => \$class_id, … … 27 27 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV; 28 28 pod2usage( 29 -msg => "Required options: --det_id --exp_ id--class_id --det_type --input_uri",29 -msg => "Required options: --det_id --exp_tag --class_id --det_type --input_uri", 30 30 -exitval => 3, 31 31 ) unless defined $det_id 32 and defined $exp_ id32 and defined $exp_tag 33 33 and defined $class_id 34 34 and defined $det_type … … 55 55 56 56 ### Output file name --- must match camera configuration! 57 my $outputRoot = $exp_ id. '.detproc.' . $det_id;57 my $outputRoot = $exp_tag . '.detproc.' . $det_id; 58 58 my $outputName = $outputRoot . '.' . $class_id ; 59 59 my $outputImage = $outputName . '.fits'; … … 87 87 # Add the processed file to the database 88 88 unless ($no_update) { 89 my $command = "$dettool -addprocessed -det_id $det_id -exp_ id $exp_id" .89 my $command = "$dettool -addprocessed -det_id $det_id -exp_tag $exp_tag " . 90 90 "-class_id $class_id -recip $recipe -uri $outputImage"; # Command to run dettool 91 91 $command .= " -bg " . $stats->bg_mean(); … … 100 100 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = 101 101 run(command => $command, verbose => 1); 102 die "Unable to perform dettool -addprocessed for $det_id/$exp_ id/$class_id: $error_code\n"102 die "Unable to perform dettool -addprocessed for $det_id/$exp_tag/$class_id: $error_code\n" 103 103 if not $success; 104 104 }
Note:
See TracChangeset
for help on using the changeset viewer.
