Changeset 30359

Timestamp:

Jan 25, 2011, 1:35:02 PM (15 years ago)

Author:

heather

Message:

whoops.

File:

• trunk/tools/heather/expbot.pl (modified) (6 diffs)

trunk/tools/heather/expbot.pl

@@ -11 +11 @@
 
 
-
+use strict;
+#use warnings;
 use DBI;
 use constant DB_SOCKET => '/var/run/mysqld/mysql.sock';
-
-
-my $date = "2011-01-11";
-
-
-
+use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
+use Pod::Usage qw( pod2usage );
+
+my $verbose;
+my $date;
 my $dbname = 'gpc1';
 my $dbserver = 'ippdb01';
 my $dbuser = 'ipp';
 my $dbpass = 'ipp';
+
+
+
+
+GetOptions(
+           'start|s=s'    => \$date,
+           'dbname|d'     => \$dbname,
+           'verbose|v'    => \$verbose,
+) or pod2usage( 0 );
+pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
+
+if (!$date) {
+    my ($sec, $min, $hour, $mday, $month, $year) = gmtime;
+    $year += 1900;
+    $month += 1;
+    $date = sprintf "%4d-%02d-%02d", $year, $month, $mday;
+}
 
 my $db = DBI->connect(
@@ -42 +59 @@
 my $stackq = "select exp_name, comment, rawExp.state, count(stack_id) from rawExp left join chipRun using (exp_id) left join camRun using (chip_id) left join fakeRun using (cam_id) left join warpRun using (fake_id) left join stackInputSkyfile using (warp_id) left join stackRun using (stack_id) where dateobs like '$date\%' and exp_type = 'OBJECT' group by exp_name;";
 
-#print $stackq;
+
 print "stack\n";
 print `date`;
@@ -54 +71 @@
 }
 
-#my $diffq = "select exp_name, comment, rawExp.state, count(diff_id), diff_mode from rawExp left join chipRun using (exp_id) left join camRun using (chip_id) left join fakeRun using (cam_id) left join warpRun using (fake_id) join diffInputSkyfile on  warp_id = warp1 left join diffRun using (diff_id) where dateobs like '$date\%' and exp_type = 'OBJECT' group by exp_name;";
+
 
 
@@ -60 +77 @@
 
 
-#print $diffq;
+
 print "diff1\n";
 print `date`;
@@ -193 +210 @@
 foreach my $item (@{$dist5}) {
     if (${$item}[3] > 0) {
-        print "yy${$item}[4]xx\n";
+        if (defined($diff_hashws{${$item}[0]})) { 
+            $dist5_hashws{${$item}[0]} = ${$item}[3]; 
+        } 
+        else
+        {
+            $dist5_hash{${$item}[0]} = ${$item}[3];
+        }
         
-        
-        if (defined($diff_hashws{${$item}[0]})) { $dist5_hashws{${$item}[0]} = ${$item}[3]; } 
-
-        else
-        {
-            
-            $dist5_hash{${$item}[0]} = ${$item}[3];
- 
-        }
-
     }
 }
@@ -257 +270 @@
 }
 
-#print $warpq;
+
 
 $db->disconnect();