Changeset 12079
- Timestamp:
- Feb 27, 2007, 10:13:31 AM (19 years ago)
- Location:
- trunk/ippScripts/scripts
- Files:
-
- 11 edited
-
camera_exp.pl (modified) (3 diffs)
-
chip_imfile.pl (modified) (1 diff)
-
detrend_norm_apply.pl (modified) (2 diffs)
-
detrend_norm_exp.pl (modified) (3 diffs)
-
detrend_process_exp.pl (modified) (3 diffs)
-
detrend_process_imfile.pl (modified) (2 diffs)
-
detrend_reject_imfile.pl (modified) (4 diffs)
-
detrend_resid.pl (modified) (2 diffs)
-
diff_skycell.pl (modified) (2 diffs)
-
stack_skycell.pl (modified) (3 diffs)
-
warp_skycell.pl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/camera_exp.pl
r12021 r12079 125 125 $workdir = $ipprc->convert_filename_absolute( $workdir ); 126 126 } else { 127 my $example = ${$files}[0]->{ b1_uri}; # Example original root name127 my $example = ${$files}[0]->{path_base}; # Example original root name 128 128 my ($vol, $dir, $file) = File::Spec->splitpath( $ipprc->convert_filename_absolute( $example ) ); 129 129 $workdir = $dir; … … 151 151 my $chipObjects; 152 152 foreach my $file (@$files) { 153 # use the b1_uri as OUTPUT root and convert the filenames 154 # with ipprc->filename: 153 # use the path_base as OUTPUT root and convert the filenames with ipprc->filename: 155 154 my $class_id = $file->{class_id}; 156 my $origRoot = $ipprc->convert_filename_absolute( $file->{ b1_uri} ); # Original root name155 my $origRoot = $ipprc->convert_filename_absolute( $file->{path_base} ); # Original root name 157 156 158 157 # if there is only one chip, we use this name for the input to addstar … … 230 229 # XXX keep the same outroot as the input 231 230 # Add the result into the database 232 $outputRoot = $ipprc->convert_filename_relative($outputRoot); 233 $jpeg1 = $ipprc->convert_filename_relative($jpeg1); 234 $jpeg2 = $ipprc->convert_filename_relative($jpeg2); 231 $outputRoot = $ipprc->convert_filename_relative( $outputRoot ); 235 232 236 233 unless ($no_update) { 237 234 my $command = "$camtool -addprocessedexp -exp_tag $exp_tag -uri UNKNOWN " . 238 "-recip " . RECIPE1() . "," . RECIPE2() . " - b1_uri$outputRoot " .235 "-recip " . RECIPE1() . "," . RECIPE2() . " -path_base $outputRoot " . 239 236 "-bg $bg -bg_stdev $bg_stdev -bg_mean_stdev $bg_mean_stdev " . 240 237 "-sigma_ra 0.0 -sigma_dec 0.0 -nastro 0 -zp_mean 0.0 -zp_stdev 0.0"; # Command to run -
trunk/ippScripts/scripts/chip_imfile.pl
r12021 r12079 140 140 $command .= " -recip " . RECIPE; 141 141 $command .= " -uri $outputImage"; 142 $command .= " - b1_uri$outputRoot";142 $command .= " -path_base $outputRoot"; 143 143 $command .= " -bg $bg -bg_stdev $bg_stdev -bg_mean_stdev $bg_mean_stdev"; 144 144 $command .= " -dbname $dbname" if defined $dbname; -
trunk/ippScripts/scripts/detrend_norm_apply.pl
r11837 r12079 130 130 # Update the database 131 131 $output = $ipprc->convert_filename_relative( $output ); 132 $b1name = $ipprc->convert_filename_relative( $b1name ); 133 $b2name = $ipprc->convert_filename_relative( $b2name ); 132 $outputRoot = $ipprc->convert_filename_relative( $outputRoot ); 134 133 135 134 my $bg = ($stats->bg_mean() or 'NAN'); … … 139 138 unless ($no_update) { 140 139 my $command = "$dettool -addnormalizedimfile -det_id $det_id -iteration $iter -class_id $class_id ". 141 "-uri $output - b1_uri$outputRoot"; # Command to run140 "-uri $output -path_base $outputRoot"; # Command to run 142 141 $command .= " -bg $bg -bg_stdev $bg_stdev -bg_mean_stdev $bg_mean_stdev"; 143 142 $command .= " -dbname $dbname" if defined $dbname; -
trunk/ippScripts/scripts/detrend_norm_exp.pl
r11837 r12079 118 118 $workdir = $ipprc->convert_filename_absolute( $workdir ); 119 119 } else { 120 my $example = ${$files}[0]->{ b1_uri}; # Example file, for path120 my $example = ${$files}[0]->{path_base}; # Example file, for path 121 121 my ($vol, $dir, $file) = File::Spec->splitpath( $example ); 122 122 $workdir = $dir; … … 135 135 open my $list2File, '>' . $list2Name; 136 136 foreach my $file (@$files) { 137 my $origRoot = $ipprc->convert_filename_absolute( $file->{ b1_uri} ); # Original root name137 my $origRoot = $ipprc->convert_filename_absolute( $file->{path_base} ); # Original root name 138 138 print $list1File ( $ipprc->filename( "PPIMAGE.BIN1", $origRoot, $file->{class_id} ) . "\n"); 139 139 print $list2File ( $ipprc->filename( "PPIMAGE.BIN2", $origRoot, $file->{class_id} ) . "\n"); … … 167 167 168 168 # Add the result into the database 169 $ jpeg1Name = $ipprc->convert_filename_relative( $jpeg1Name);170 $jpeg2Name = $ipprc->convert_filename_relative( $jpeg2Name ); 169 $outputRoot = $ipprc->convert_filename_relative( $outputRoot ); 170 171 171 unless ($no_update) { 172 172 my $command = "$dettool -addnormalizedexp -det_id $det_id -iteration $iter " . 173 "-recip " . RECIPE1() . "," . RECIPE2() . " - b1_uri$outputRoot " .173 "-recip " . RECIPE1() . "," . RECIPE2() . " -path_base $outputRoot " . 174 174 "-bg $bg -bg_stdev $bg_stdev -bg_mean_stdev $bg_mean_stdev"; # Command to run 175 175 $command .= " -dbname $dbname" if defined $dbname; -
trunk/ippScripts/scripts/detrend_process_exp.pl
r11837 r12079 116 116 $workdir = $ipprc->convert_filename_absolute( $workdir ); 117 117 } else { 118 my $example = ${$files}[0]->{ b1_uri}; # Example original root name118 my $example = ${$files}[0]->{path_base}; # Example original root name 119 119 my ($vol, $dir, $file) = File::Spec->splitpath( $example ); 120 120 $workdir = $dir; … … 131 131 open my $list2File, '>' . $list2Name; 132 132 foreach my $file (@$files) { 133 my $origRoot = $ipprc->convert_filename_absolute( $file->{ b1_uri} ); # Original root name133 my $origRoot = $ipprc->convert_filename_absolute( $file->{path_base} ); # Original root name 134 134 print $list1File ($ipprc->filename( "PPIMAGE.BIN1", $origRoot, $file->{class_id} ) . "\n"); 135 135 print $list2File ($ipprc->filename( "PPIMAGE.BIN2", $origRoot, $file->{class_id} ) . "\n"); … … 172 172 # Add the result into the database 173 173 $outputRoot = $ipprc->convert_filename_relative( $outputRoot ); 174 $jpeg1 = $ipprc->convert_filename_relative( $jpeg1 ); 175 $jpeg2 = $ipprc->convert_filename_relative( $jpeg2 ); 174 176 175 unless ($no_update) { 177 176 my $command = "$dettool -addprocessedexp -det_id $det_id -exp_tag $exp_tag " . 178 "-recip " . RECIPE1() . "," . RECIPE2() . " - b1_uri$outputRoot " .177 "-recip " . RECIPE1() . "," . RECIPE2() . " -path_base $outputRoot " . 179 178 "-bg $bg -bg_stdev $bg_stdev -bg_mean_stdev $bg_mean_stdev"; # Command to run 180 179 $command .= " -dbname $dbname" if defined $dbname; -
trunk/ippScripts/scripts/detrend_process_imfile.pl
r11837 r12079 134 134 # Take off the absolute path, to stuff into the database 135 135 $outputImage = $ipprc->convert_filename_relative( $outputImage ); 136 $outputBin1 = $ipprc->convert_filename_relative( $outputBin1 ); 137 $outputBin2 = $ipprc->convert_filename_relative( $outputBin2 ); 136 $outputRoot = $ipprc->convert_filename_relative( $outputRoot ); 138 137 139 138 my $bg = ($stats->bg_mean() or 'NAN'); … … 144 143 unless ($no_update) { 145 144 my $command = "$dettool -addprocessedimfile -det_id $det_id -exp_tag $exp_tag " . 146 "-class_id $class_id -recip $recipe -uri $outputImage - b1_uri $outputRoot";# Command to run dettool145 "-class_id $class_id -recip $recipe -uri $outputImage -path_base $outputRoot"; # Command to run dettool 147 146 $command .= " -bg $bg -bg_stdev $bg_stdev -bg_mean_stdev $bg_mean_stdev"; 148 147 $command .= " -dbname $dbname" if defined $dbname; -
trunk/ippScripts/scripts/detrend_reject_imfile.pl
r11837 r12079 96 96 $workdir = $ipprc->convert_filename_absolute( $workdir ); 97 97 } else { 98 my $example = ${$files}[0]->{ b1_uri}; # Example original root name98 my $example = ${$files}[0]->{path_base}; # Example original root name 99 99 my ($vol, $dir, $file) = File::Spec->splitpath( $example ); 100 100 $workdir = $dir; … … 114 114 open my $list2File, '>' . $list2Name; 115 115 foreach my $file (@$files) { 116 my $origRoot = $ipprc->convert_filename_absolute( $file->{ b1_uri} ); # Original root name116 my $origRoot = $ipprc->convert_filename_absolute( $file->{path_base} ); # Original root name 117 117 print $list1File ($ipprc->filename( "PPIMAGE.BIN1", $origRoot, $file->{class_id} ) . "\n"); 118 118 print $list2File ($ipprc->filename( "PPIMAGE.BIN2", $origRoot, $file->{class_id} ) . "\n"); … … 283 283 284 284 # Add the result into the database 285 $jpeg1Name = $ipprc->convert_filename_relative( $jpeg1Name ); 286 $jpeg2Name = $ipprc->convert_filename_relative( $jpeg2Name ); 285 $outputRoot = $ipprc->convert_filename_relative( $outputRoot ); 287 286 288 287 my $bg = $mean; … … 292 291 unless ($no_update) { 293 292 my $command = "$dettool -addresidexp -det_id $det_id -iteration $iter -exp_tag $exp_tag " . 294 "-recip " . RECIPE1() . "," . RECIPE2() . " - b1_uri$outputRoot "; # Command to run293 "-recip " . RECIPE1() . "," . RECIPE2() . " -path_base $outputRoot "; # Command to run 295 294 $command .= " -bg $bg -bg_stdev $bg_stdev -bg_mean_stdev $bg_mean_stdev"; 296 295 $command .= ' -reject' if $reject; -
trunk/ippScripts/scripts/detrend_resid.pl
r11837 r12079 176 176 # Add the processed file to the database 177 177 $outputName = $ipprc->convert_filename_relative( $outputName ); 178 $bin1Name = $ipprc->convert_filename_relative( $bin1Name ); 179 $bin2Name = $ipprc->convert_filename_relative( $bin2Name ); 178 $outputRoot = $ipprc->convert_filename_relative( $outputRoot ); 180 179 181 180 my $bg = ($stats->bg_mean() or 'NAN'); … … 185 184 unless ($no_update) { 186 185 my $command = "$dettool -addresidimfile -det_id $det_id -iteration $iter -exp_tag $exp_tag " . 187 "-class_id $class_id -recip $recipe -uri $outputName - b1_uri$outputRoot"; # Command to run dettool186 "-class_id $class_id -recip $recipe -uri $outputName -path_base $outputRoot"; # Command to run dettool 188 187 $command .= " -bg $bg -bg_stdev $bg_stdev -bg_mean_stdev $bg_mean_stdev"; 189 188 $command .= " -dbname $dbname" if defined $dbname; -
trunk/ippScripts/scripts/diff_skycell.pl
r12056 r12079 156 156 # Add the processed file to the database 157 157 $outputName = $ipprc->convert_filename_relative( $outputName ); 158 $outputRoot = $ipprc->convert_filename_relative( $outputRoot ); 158 159 159 160 my $bg = ($stats->bg_mean() or 'NAN'); … … 164 165 # Add the subtraction result 165 166 { 166 my $command = "$difftool -adddiffskyfile -diff_id $diff_id -uri $outputName "; # -b1_uri$outputRoot";167 my $command = "$difftool -adddiffskyfile -diff_id $diff_id -uri $outputName -path_base $outputRoot"; 167 168 $command .= " -bg $bg -bg_stdev $bg_stdev"; 168 169 $command .= " -dbname $dbname" if defined $dbname; -
trunk/ippScripts/scripts/stack_skycell.pl
r12056 r12079 115 115 116 116 my $outputName = $outputRoot . ".fits"; 117 #my $bin1Name = $ipprc->filename("PP IMAGE.BIN1", $outputRoot);118 #my $bin2Name = $ipprc->filename("PP IMAGE.BIN2", $outputRoot);117 #my $bin1Name = $ipprc->filename("PPSTAC.BIN1", $outputRoot); 118 #my $bin2Name = $ipprc->filename("PPSTAC.BIN2", $outputRoot); 119 119 my $outputStats = $outputRoot . '.stats'; 120 120 … … 149 149 # Add the processed file to the database 150 150 $outputName = $ipprc->convert_filename_relative( $outputName ); 151 $outputRoot = $ipprc->convert_filename_relative( $outputRoot ); 151 152 152 153 my $bg = ($stats->bg_mean() or 'NAN'); … … 157 158 # Add the stack result 158 159 { 159 my $command = "$stacktool -addsumskyfile -stack_id $stack_id -uri $outputName "; # -b1_uri$outputRoot";160 my $command = "$stacktool -addsumskyfile -stack_id $stack_id -uri $outputName -path_base $outputRoot"; 160 161 $command .= " -bg $bg -bg_stdev $bg_stdev"; 161 162 $command .= " -dbname $dbname" if defined $dbname; -
trunk/ippScripts/scripts/warp_skycell.pl
r12073 r12079 136 136 # Take off the absolute path, to stuff into the database 137 137 $outputImage = $ipprc->convert_filename_relative( $outputImage ); 138 $outputBin1 = $ipprc->convert_filename_relative( $outputBin1 ); 139 $outputBin2 = $ipprc->convert_filename_relative( $outputBin2 ); 138 $outputRoot = $ipprc->convert_filename_relative( $outputRoot ); 140 139 141 140 my $bg = ($stats->bg_mean() or 'NAN'); … … 145 144 unless ($no_update) { 146 145 my $command = "$warptool -addwarped -warp_id $warp_id -skycell_id $skycell_id -tess_id $tess_id" . 147 " -uri $outputImage "; # -b1_uri $outputRoot";# Command to run dettool146 " -uri $outputImage -path_base $outputRoot"; # Command to run dettool 148 147 $command .= " -bg $bg -bg_stdev $bg_stdev"; 149 148 $command .= " -dbname $dbname" if defined $dbname;
Note:
See TracChangeset
for help on using the changeset viewer.
