Changeset 28817 for trunk/tools/difflog_grep.pl
- Timestamp:
- Jul 30, 2010, 4:41:26 PM (16 years ago)
- File:
-
- 1 edited
-
trunk/tools/difflog_grep.pl (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/difflog_grep.pl
r28812 r28817 28 28 29 29 30 my ($db_host, $dbname, $db_user, $db_pw, $dateobs_begin, $dateobs_end, $label, $filter, $data_group, $dist_group, $ra, $decl, $radius, $limit, $pstamp_order, $magicked, $not_destreaked, $destreaked, $grep, $diffandsky, $uselogname ); # Database details30 my ($db_host, $dbname, $db_user, $db_pw, $dateobs_begin, $dateobs_end, $label, $filter, $data_group, $dist_group, $ra, $decl, $radius, $limit, $pstamp_order, $magicked, $not_destreaked, $destreaked, $grep, $diffandsky, $uselogname, $ippMonitor); # Database details 31 31 $db_host = 'ippdb01'; 32 32 $db_pw = 'ipp'; … … 52 52 'not_destreaked' => \$not_destreaked, 53 53 'destreaked' => \$destreaked, 54 'diffandsky' => \$diffandsky 54 'diffandsky' => \$diffandsky, 55 'ippMonitor' => \$ippMonitor, 55 56 # No magicked inputs? 56 57 ) or die "Unable to parse arguments.\n"; 57 58 die "Unknown option: @ARGV\n" if @ARGV; 58 die "difflog_grep.pl uses difftool and grep to look for 'something' in many diffs logfiles.\n\nRequired options: --dbhost --dbname --dbuser --dbpass\n\nOptional options: --dateobs_begin, --dateobs_end, --label, --filter, --data_group, --dist_group, --ra, --decl, --radius, --limit, --pstamp_order, --magicked, --not_destreaked, --destreaked will select diff_ids from difftool to investigate\n\n--grep - if grep is not used will just list the log files \n--diffandsky will print the diff_id and sky_id instead of the logfilename\n "59 die "difflog_grep.pl uses difftool and grep to look for 'something' in many diffs logfiles.\n\nRequired options: --dbhost --dbname --dbuser --dbpass\n\nOptional options: --dateobs_begin, --dateobs_end, --label, --filter, --data_group, --dist_group, --ra, --decl, --radius, --limit, --pstamp_order, --magicked, --not_destreaked, --destreaked will select diff_ids from difftool to investigate\n\n--grep - if grep is not used will just list the log files \n--diffandsky will print the diff_id and sky_id instead of the logfilename\n--ippMonitor will add ippMonitor like output (bg, nsources, etc)\n" 59 60 60 61 unless defined $db_host … … 97 98 if (defined(@$stdout_buf)){ 98 99 99 100 if (defined($diffandsky)) { 101 print "diff_id skycell "; 102 } else {print "logfile ";} 103 104 if (defined($ippMonitor)) { 105 print "bg bg_stdev dtime_diff dtime_match dtime_phot dtime_script stamps_num stamps_mean stamps_rms sources"; 106 } 107 108 109 print "\n"; 100 110 my $metadata2 = $mdcParser->parse(join "", @$stdout_buf) or 101 111 die "Unable to parse metadata config"; … … 127 137 128 138 # Query to run 129 my $sql = "SELECT path_base, diffSkyfile.diff_id, skycell_id from diffRun, diffSkyfile WHERE diffRun.diff_id = diffSkyfile.diff_id AND diffSkyfile.diff_id = $diff_id";139 my $sql = "SELECT path_base, diffSkyfile.diff_id, skycell_id, diffSkyfile.bg,diffSkyfile.bg_stdev,diffSkyfile.dtime_diff,diffSkyfile.dtime_match,diffSkyfile.dtime_phot,diffSkyfile.dtime_script,diffSkyfile.stamps_num,diffSkyfile.stamps_mean,diffSkyfile.stamps_rms,diffSkyfile.sources from diffRun, diffSkyfile WHERE diffRun.diff_id = diffSkyfile.diff_id AND diffSkyfile.diff_id = $diff_id"; 130 140 131 141 #print "$sql\n"; … … 146 156 } else { 147 157 print "$logfile "; 158 } 159 160 161 if (defined($ippMonitor)) { 162 163 if (defined($$row[3])) {printf "%2.4f ",$$row[3];} else {print "??? ";} 164 if (defined($$row[4])) {printf "%2.4f ",$$row[4];} else {print "??? ";} 165 if (defined($$row[5])) {printf "%2.4f ",$$row[5];} else {print "??? ";} 166 if (defined($$row[6])) {printf "%2.4f ",$$row[6];} else {print "??? ";} 167 if (defined($$row[7])) {printf "%2.4f ",$$row[7];} else {print "??? ";} 168 if (defined($$row[8])) {printf "%d ",$$row[8];} else {print "??? ";} 169 if (defined($$row[9])) {printf "%d ",$$row[9];} else {print "??? ";} 170 if (defined($$row[10])) {printf "%2.4f ",$$row[10];} else {print "??? ";} 171 if (defined($$row[11])) {printf "%2.4f ",$$row[11];} else {print "??? ";} 172 if (defined($$row[12])) {printf "%d ",$$row[12];} else {print "??? ";} 173 174 175 176 177 178 # $$row[4] $$row[5] $$row[6] $$row[7] $$row[8] $$row[9] $$row[10] $$row[11] $$row[12] "; 179 148 180 } 149 181
Note:
See TracChangeset
for help on using the changeset viewer.
