Changeset 13937 for trunk/ippScripts/scripts/detrend_process_imfile.pl
- Timestamp:
- Jun 21, 2007, 2:10:11 PM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/detrend_process_imfile.pl
r13748 r13937 32 32 use Pod::Usage qw( pod2usage ); 33 33 34 my ($det_id, $exp_tag, $class_id, $det_type, $input_uri, $camera, $dbname, $workdir, $ no_update, $no_op);34 my ($det_id, $exp_tag, $class_id, $det_type, $input_uri, $camera, $dbname, $workdir, $reduction, $no_update, $no_op); 35 35 GetOptions( 36 36 'det_id|d=s' => \$det_id, … … 42 42 'dbname|d=s' => \$dbname, # Database name 43 43 'workdir|w=s' => \$workdir, # Working directory, for output files 44 'reduction=s' => \$reduction, # Reduction class 44 45 'no-update' => \$no_update, 45 46 'no-op' => \$no_op, … … 60 61 $ipprc->define_camera($camera); 61 62 62 # Recipes to use, as a function of the detrend type 63 use constant RECIPES => { 64 'bias' => 'PPIMAGE_O', # Overscan only 65 'dark' => 'PPIMAGE_OB', # Overscan and bias only 66 'shutter' => 'PPIMAGE_OBD', # Overscan, bias and dark only 67 'flat' => 'PPIMAGE_OBDS', # Overscan, bias, dark and shutter only 68 'domeflat' => 'PPIMAGE_OBDS', # Overscan, bias, dark and shutter only 69 'skyflat' => 'PPIMAGE_OBDS', # Overscan, bias, dark and shutter only 70 'fringe' => 'PPIMAGE_OBDSF',# Overscan, bias, dark, shutter and flat only 71 }; 63 $reduction = "DETREND" unless defined $reduction; 64 my $recipe = $ipprc->reduction($reduction, $det_type . '_PROCESS'); # Recipe name to use 72 65 73 66 # Look for programs we need … … 80 73 } 81 74 $ppImage .= " -dbname $dbname" if defined $dbname; 82 83 # Recipe to use in processing84 my $recipe = RECIPES->{lc($det_type)};85 unless (defined $recipe) {86 warn("Unrecognised detrend type: $det_type");87 exit($PS_EXIT_CONFIG_ERROR);88 }89 75 90 76 $workdir = caturi( $workdir, "$camera.$det_type.$det_id" ) if defined $workdir;
Note:
See TracChangeset
for help on using the changeset viewer.
