Changeset 9892 for trunk/ippScripts/scripts/detrend_process_imfile.pl

Timestamp:

Nov 7, 2006, 10:38:05 AM (20 years ago)

Author:

Paul Price

Message:

Output images from ppImage are specified by the FILERULES in the camera configuration.

File:

• trunk/ippScripts/scripts/detrend_process_imfile.pl (modified) (4 diffs)

trunk/ippScripts/scripts/detrend_process_imfile.pl

@@ -18 +18 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $exp_tag, $class_id, $det_type, $input_uri, $output_uri, $no_update);
+my ($det_id, $exp_tag, $class_id, $det_type, $input_uri, $camera, $no_update);
 GetOptions(
     'det_id|d=s'        => \$det_id,
-    'exp_tag|e=s'        => \$exp_tag,
+    'exp_tag|e=s'       => \$exp_tag,
     'class_id|i=s'      => \$class_id,
     'det_type|t=s'      => \$det_type,
     'input_uri|u=s'     => \$input_uri,
+    'camera|c=s'        => \$camera,
     'no-update'         => \$no_update
 ) or pod2usage( 2 );
@@ -30 +31 @@
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
 pod2usage(
-    -msg => "Required options: --det_id --exp_tag --class_id --det_type --input_uri",
+    -msg => "Required options: --det_id --exp_tag --class_id --det_type --input_uri --camera",
     -exitval => 3,
 ) unless defined $det_id
@@ -36 +37 @@
     and defined $class_id
     and defined $det_type
-    and defined $input_uri;
+    and defined $input_uri
+    and defined $camera;
+
+$ipprc->define_camera($camera);
 
 # Recipes to use, as a function of the detrend type
@@ -57 +61 @@
 die "Unrecognised detrend type: $det_type\n" if not defined $recipe;
 
-### Output file name --- must match camera configuration!
+### Output file name
 my ($vol, $dir, $file) = File::Spec->splitpath( $input_uri );
 my $outputRoot = $exp_tag . '.detproc.' . $det_id; # Root name
 $outputRoot = File::Spec->rel2abs( File::Spec->catpath( $vol, $dir, $outputRoot ), $ipprc->workdir() );
 $input_uri = File::Spec->rel2abs( $input_uri, $ipprc->workdir() );
-my $outputImage = $outputRoot . '.' . $class_id . '.fits';
+
+my $outputImage = $ipprc->filename("PPIMAGE.OUTPUT", $outputRoot, $class_id);
+my $outputBin1 = $ipprc->filename("PPIMAGE.BIN1", $outputRoot, $class_id);
+my $outputBin2 = $ipprc->filename("PPIMAGE.BIN2", $outputRoot, $class_id);
+
 my $outputStats = $outputRoot . '.' . $class_id . '.stats';
-my $outputBin1 = $outputRoot . '.' . $class_id . '.b1.fits';
-my $outputBin2 = $outputRoot . '.' . $class_id . '.b2.fits';
 
 # Run ppImage