IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Jul 12, 2009, 11:06:44 AM (17 years ago)
Author:
eugene
Message:

make the use of det_type consistently upper-case in the scripts; change detType to det_type as needed

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ippScripts/scripts/detrend_resid_imfile.pl

    r24741 r24764  
    7474    defined $detrend;
    7575
     76# force det_type to be upper-case in this script
     77$det_type = uc($det_type);
     78
    7679my $ipprc = PS::IPP::Config->new( $camera ) or my_die( "Unable to set up", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_CONFIG_ERROR ); # IPP configuration
    7780my $logDest = $ipprc->filename("LOG.IMFILE", $outroot, $class_id) or my_die( "Unable to find LOG.IMFILE", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_CONFIG_ERROR );
    … …  
    8386my $recipe;                     # Name of recipe to use
    8487if ($mode eq 'master') {
    85     $recipe = uc($det_type) . '_RESID';
     88    $recipe = $det_type . '_RESID';
    8689} elsif ($mode eq 'verify') {
    87     $recipe = uc($det_type) . '_VERIFY';
     90    $recipe = $det_type . '_VERIFY';
    8891} else {
    8992    &my_die("Unrecognised mode: $mode", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_PROG_ERROR);
    … …  
    9295print "raw recipe: $recipe\n";
    9396my $ppimage_recipe = $ipprc->reduction($reduction, $recipe);
    94 my $jpeg_recipe = $ipprc->reduction($reduction, uc($det_type) . '_JPEG_RESID');
     97my $jpeg_recipe = $ipprc->reduction($reduction, $det_type . '_JPEG_RESID');
    9598print "real recipe: $recipe\n";
    9699
    97100# Flags to specify the particular detrend to use
    98101use constant DETRENDS => {
    99     'bias'             => '-bias',      # Specify the bias frame
    100     'dark'             => '-dark',      # Specify the dark frame
    101     'darktest'         => '-dark',      # Specify the dark frame
    102     'dark_premask'     => '-dark',      # Specify the dark frame
    103     'shutter'          => '-shutter',   # Specify the shutter frame
    104     'flat_premask'     => '-flat',      # Specify the flat frame
    105     'domeflat_premask' => '-flat',      # Specify the flat frame
    106     'skyflat_premask'  => '-flat',      # Specify the flat frame
    107     'flat_raw'         => '-flat',      # Specify the flat frame
    108     'domeflat_raw'     => '-flat',      # Specify the flat frame
    109     'skyflat_raw'      => '-flat',      # Specify the flat frame
    110     'flat'             => '-flat',      # Specify the flat frame
    111     'domeflat'         => '-flat',      # Specify the flat frame
    112     'skyflat'          => '-flat',      # Specify the flat frame
    113     'fringe'           => '-fringe',    # Specify the fringe frame
    114     'mask'             => '-mask',      # Specify the mask frame
    115     'darkmask'         => '-mask',      # Specify the mask frame
    116     'flatmask'         => '-mask',      # Specify the mask frame
    117     'ctemask'          => '-mask',      # Specify the mask frame
     102    'BIAS'             => '-bias',      # Specify the bias frame
     103    'DARK'             => '-dark',      # Specify the dark frame
     104    'DARK_PREMASK'     => '-dark',      # Specify the dark frame
     105    'DARKTEST'         => '-dark',      # Specify the dark frame
     106    'SHUTTER'          => '-shutter',   # Specify the shutter frame
     107    'FLAT_PREMASK'     => '-flat',      # Specify the flat frame
     108    'DOMEFLAT_PREMASK' => '-flat',      # Specify the flat frame
     109    'SKYFLAT_PREMASK'  => '-flat',      # Specify the flat frame
     110    'FLAT_RAW'         => '-flat',      # Specify the flat frame
     111    'DOMEFLAT_RAW'     => '-flat',      # Specify the flat frame
     112    'SKYFLAT_RAW'      => '-flat',      # Specify the flat frame
     113    'FLAT'             => '-flat',      # Specify the flat frame
     114    'DOMEFLAT'         => '-flat',      # Specify the flat frame
     115    'SKYFLAT'          => '-flat',      # Specify the flat frame
     116    'FRINGE'           => '-fringe',    # Specify the fringe frame
     117    'MASK'             => '-mask',      # Specify the mask frame
     118    'DARKMASK'         => '-mask',      # Specify the mask frame
     119    'FLATMASK'         => '-mask',      # Specify the mask frame
     120    'CTEMASK'          => '-mask',      # Specify the mask frame
    118121};
    119122
    … …  
    174177
    175178    # Detrend to use in processing
    176     my $detFlag = DETRENDS->{lc($det_type)};
     179    my $detFlag = DETRENDS->{$det_type};
    177180    &my_die("Unrecognised detrend type: $det_type", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_PROG_ERROR) unless defined $detFlag;
    178181    $command .= " $detFlag $detrend";
Note: See TracChangeset for help on using the changeset viewer.