Index: trunk/tools/heather/expbot.pl
===================================================================
--- trunk/tools/heather/expbot.pl	(revision 30264)
+++ trunk/tools/heather/expbot.pl	(revision 30359)
@@ -11,17 +11,34 @@
 
 
-
+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,5 +59,5 @@
 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,5 +71,5 @@
 }
 
-#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,5 +77,5 @@
 
 
-#print $diffq;
+
 print "diff1\n";
 print `date`;
@@ -193,16 +210,12 @@
 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,5 +270,5 @@
 }
 
-#print $warpq;
+
 
 $db->disconnect();