Changeset 25562
- Timestamp:
- Sep 24, 2009, 3:22:13 PM (17 years ago)
- Location:
- trunk/tools
- Files:
-
- 2 edited
-
examine_burntool_pcontrol.pl (modified) (3 diffs)
-
make_burntool_pcontrol.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/examine_burntool_pcontrol.pl
r25472 r25562 5 5 use Getopt::Std; 6 6 7 getopts('hfcP ',\%opt);7 getopts('hfcPv:',\%opt); 8 8 if (exists($opt{h})) { 9 9 print STDERR "Usage: examine_burntool_pcontrol.pl [-f] <pcontrol.pro>\n"; 10 10 print STDERR " -f Read all burntool entries, even those commented out.\n"; 11 11 print STDERR " -c Print out the needed mysql statement to do a convert. DOES NOT EXECUTE THIS!\n"; 12 print STDERR " -v <val> Use this value as the target burntool_state in convert statements.\n"; 12 13 print STDERR " -P Print out the ipp_apply_burntool.pl commands, even if fully updated.\n"; 13 14 print STDERR "\n"; … … 124 125 # Get the data. The limit is there to keep the database happy. I don't think you can observe that many 125 126 # images on a single night. 126 $sth = "SELECT exp_id,exp_name,obs_mode,dateobs,class_id,burntool_state,comment FROM rawImfile WHERE dateobs >= '${dmin}' AND dateobs <= '${dmax}' order by dateobs limit 60000"; 127 128 $no_sth = "UPDATE rawImfile SET burntool_state = $convert_bt_state WHERE dateobs >= '${dmin}' AND dateobs <= '${dmax}' AND user_1 = 1.0;"; 127 $sth = "SELECT exp_id,exp_name,obs_mode,dateobs,class_id,burntool_state,comment FROM rawImfile WHERE dateobs >= '${dmin}' AND dateobs <= '${dmax}' order by dateobs limit 600000"; 128 129 129 $data_ref = $db->selectall_arrayref( $sth ); 130 130 … … 140 140 print "#### $sth\n"; 141 141 if (exists($opt{c})) { 142 if (exists($opt{v})) { 143 $no_sth = "UPDATE rawImfile SET burntool_state = $opt{v} WHERE dateobs >= '${dmin}' AND dateobs <= '${dmax}';"; 144 } 145 else { 146 $no_sth = "UPDATE rawImfile SET burntool_state = $convert_bt_state WHERE dateobs >= '${dmin}' AND dateobs <= '${dmax}';"; 147 } 142 148 print "#### $no_sth\n"; 143 149 } -
trunk/tools/make_burntool_pcontrol.pl
r25444 r25562 8 8 use constant DB_SOCKET => '/var/run/mysqld/mysqld.sock'; 9 9 10 getopts('hb Q:d:',\%opt);10 getopts('hbPQ:d:',\%opt); 11 11 if (exists($opt{h})) { 12 12 print STDERR "Usage: make_burntool_pcontrol.pl -b {-Q <SQL_WHERE> | -d <DATE> | DATE_MIN0 DATE_MAX0 DATE_MIN1 DATE_MAX1 [...]}\n"; … … 16 16 print STDERR " -d DATE Specify a single day to look for.\n"; 17 17 print STDERR " -b Only print burntool lines.\n"; 18 print STDERR " -P PR images have bad obs_mode values. Work around that.\n"; 18 19 print STDERR "\n"; 19 20 print STDERR " Scans the GPC1 database, and identifies \"science\" observations based on the obs_mode.\n"; … … 37 38 %science = ('MD' => 1, '3PI' => 1, 'STS' => 1, 'CAL' => 1, 'M31' => 1, 'SS' => 1, 38 39 'ENGINEERING' => 0, 'NULL' => 0, 'Unknown' => 0, ' ' => 0); 39 40 if (exists($opt{P})) { 41 $science{Unknown} = 1; 42 } 40 43 # Zero the arrays. 41 44 @dates_min = ();
Note:
See TracChangeset
for help on using the changeset viewer.
