- Timestamp:
- Apr 21, 2014, 5:42:34 AM (12 years ago)
- Location:
- branches/eam_branches/ps2-tc3-20130727
- Files:
-
- 3 edited
-
. (modified) (1 prop)
-
pstamp/scripts (modified) (1 prop)
-
pstamp/scripts/psmkreq (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/eam_branches/ps2-tc3-20130727
- Property svn:mergeinfo changed
-
branches/eam_branches/ps2-tc3-20130727/pstamp/scripts
- Property svn:mergeinfo deleted
-
branches/eam_branches/ps2-tc3-20130727/pstamp/scripts/psmkreq
r35438 r36680 39 39 my $job_type = 'stamp'; 40 40 my $req_type = 'bycoord'; 41 my $stage = ' chip';41 my $stage = 'stack'; 42 42 my $option_mask; 43 43 my $width = $default_size; 44 44 my $height = $default_size; 45 my $whole_file = 0; 45 46 my $project = 'gpc1'; 46 47 my $coord_mask; … … 81 82 'width=i' => \$width, 82 83 'height=i' => \$height, 84 'whole-file' => \$whole_file, 83 85 'pixcenter' => \$pixcenter, 84 86 'arcseconds' => \$arcseconds, … … 141 143 pod2usage( -msg => "--ra --dec --x --y are not used with --list", -exitval =>1 ) 142 144 if defined $x or defined $y; 143 } elsif (!$pixcenter) {144 pod2usage( -msg => "Required options for stamp requests: --ra and --dec or --list", -exitval =>1 )145 unless (defined $ra and defined $dec);146 # to simplify code we just use $x and $y from here147 $x = $ra;148 $y = $dec;149 145 } else { 150 pod2usage( -msg => "Required options for stamp requests: --x and --y or --list", -exitval =>1 ) 151 unless (defined $x and defined $y); 146 if ($whole_file) { 147 $pixcenter = 1; 148 $x = 0; 149 $y = 0; 150 $width = 0; 151 $height = 0; 152 } 153 if (!$pixcenter) { 154 pod2usage( -msg => "Required options for stamp requests: --ra and --dec or --list", -exitval =>1 ) 155 unless (defined $ra and defined $dec); 156 # to simplify code we just use $x and $y from here 157 $x = $ra; 158 $y = $dec; 159 } else { 160 pod2usage( -msg => "Required options for stamp requests: --x and --y or --list", -exitval =>1 ) 161 unless (defined $x and defined $y); 162 } 152 163 } 153 164 } else { … … 177 188 $id = 0 if !$id; 178 189 179 unless ($stage eq 'raw' or $stage eq 'chip' or $stage eq 'warp' or $stage eq 'diff' or $stage eq 'stack') { 190 unless ($stage eq 'raw' or $stage eq 'chip' or $stage eq 'warp' or $stage eq 'diff' or $stage eq 'stack' 191 or $stage eq 'stack_summary') { 180 192 die "$stage is not a valid value for stage\n"; 181 193 } … … 208 220 $option_mask |= $PSTAMP_SELECT_PSF if $psf; 209 221 $option_mask |= $PSTAMP_SELECT_BACKMDL if $backmdl; 222 $option_mask |= $PSTAMP_SELECT_UNCOMPRESSED if $uncompressed; 210 223 $option_mask |= $PSTAMP_SELECT_UNCONV if $unconvolved; 211 224 $option_mask |= $PSTAMP_USE_IMFILE_ID if $use_imfile_id;
Note:
See TracChangeset
for help on using the changeset viewer.
