Changeset 26548
- Timestamp:
- Jan 8, 2010, 3:59:22 PM (16 years ago)
- File:
-
- 1 edited
-
trunk/tools/gpc1_find_images.pl (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/gpc1_find_images.pl
r26383 r26548 3 3 use DBI; 4 4 use Getopt::Std; 5 getopts('hFARCPp:BLMDWIY vx:n:c:w:s:O:S:N:',\%opt);5 getopts('hFARCPp:BLMDWIYTvx:n:c:w:s:O:S:N:',\%opt); 6 6 #getopt('xncwOS:hARCW',\%opt); 7 7 unless (exists($opt{O})) { … … 46 46 print " -M Include masks in results.\n"; 47 47 print " -D Return only pre-destreaked images.\n"; 48 print " -Y Yes, I want the raw, even if it's not been processed.\n"; 49 print " -T Get the sTacks for a given input.\n"; 48 50 print " -v Be verbose on output.\n"; 49 51 print " \n"; … … 94 96 push @sth_adds, "warpRun.warp_id = $opt{w}"; 95 97 } 96 if (exists($opt{s})) { 97 if ($opt{s} != 0) { 98 if (exists($opt{s})||exists($opt{T})) { 99 # print "$opt{s}!\n"; 100 if (exists($opt{s})&&($opt{s} != 0)) { 98 101 push @sth_adds, "stackRun.stack_id = $opt{s}"; 99 102 } 100 $sth_base =~ s/0,"nostack"/stack_id,stackSumSkyfile.uri/; 103 $sth_base =~ s/0,'nostack'/stack_id,stackSumSkyfile.uri/; 104 if (exists($opt{T})) { 105 $sth_base .= ' RIGHT OUTER '; 106 } 101 107 $sth_base .= ' JOIN stackInputSkyfile USING (warp_id) JOIN stackSumSkyfile USING (stack_id) JOIN stackRun USING (stack_id)'; 108 # print "$sth_base\n"; 102 109 } 103 110 if ($#sth_adds != -1) { … … 121 128 $stack_sumfile_uri = ''; 122 129 } 123 # print (join "\t", @{ $rr }) . "\n" ;130 # print (join "\t", @{ $rr }) . "\n" . "\n"; 124 131 # $exp_pontime = 0; # To stop warnings, but I want this around. 125 132 if (exists($opt{I})) { … … 234 241 } 235 242 } 236 if (exists($opt{s})) { 237 push @scan, $stack_sumfile_uri; 238 $found++; 243 if (exists($opt{s})||exists($opt{T})) { 244 if (defined($stack_sumfile_uri)) { 245 push @scan, $stack_sumfile_uri; 246 $found++; 247 } 239 248 } 240 249
Note:
See TracChangeset
for help on using the changeset viewer.
