Changeset 13937 for trunk/ippScripts/scripts/detrend_stack.pl
- Timestamp:
- Jun 21, 2007, 2:10:11 PM (19 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/detrend_stack.pl (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/detrend_stack.pl
r13748 r13937 33 33 use Pod::Usage qw( pod2usage ); 34 34 35 my ($det_id, $iter, $class_id, $det_type, $camera, $dbname, $workdir, $ no_update, $no_op, $quiet);35 my ($det_id, $iter, $class_id, $det_type, $camera, $dbname, $workdir, $reduction, $no_update, $no_op, $quiet); 36 36 GetOptions( 37 37 '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 for processing 44 45 'no-update' => \$no_update, 45 46 'no-op' => \$no_op, … … 58 59 if (defined $quiet) { $verbose = 0; } 59 60 61 $ipprc->define_camera($camera); 62 60 63 # Recipes to use as a function of detrend type 61 use constant RECIPES => { 62 'bias' => 'PPMERGE_BIAS', 63 'dark' => 'PPMERGE_DARK', 64 'shutter' => 'PPMERGE_SHUTTER', 65 'flat' => 'PPMERGE_FLAT', 66 'domeflat' => 'PPMERGE_FLAT', 67 'skyflat' => 'PPMERGE_FLAT', 68 'fringe' => 'PPMERGE_FRINGE', 69 }; 64 $reduction = "DETREND" unless defined $reduction; 65 my $recipe = $ipprc->reduction($reduction, $det_type . '_STACK'); # Recipe name to use 70 66 71 67 # Look for programs we need … … 77 73 exit($PS_EXIT_CONFIG_ERROR); 78 74 } 79 80 my $recipe = RECIPES()->{lc($det_type)}; # Recipe to use in stacking81 &my_die("Unrecognised detrend type: $det_type", $det_id, $iter, $class_id, $PS_EXIT_PROG_ERROR) unless defined $recipe;82 75 83 76 my $mdcParser = PS::IPP::Metadata::Config->new; # Parser for metadata config files
Note:
See TracChangeset
for help on using the changeset viewer.
