#!/usr/bin/perl -w

use lib '/usr/local/perl/lib/site_perl/5.005/i386-linux-thread';
use Pg;
use CGI;

$cgi=new CGI;

# connect to the database
$db=Pg::connectdb("host=lilys dbname=quimby user=readnear password=ManySNe");
if ($db->status!=PGRES_CONNECTION_OK) {
    print STDERR "connectdb failed: ";
    print STDERR $db->errorMessage,"\n";
    die;
}

# execute the query
$query="SELECT fun_name,priority,status FROM candidates WHERE priority > 0 ORDER BY priority,fun_name";
$result=$db->exec($query);
if ($result->resultStatus!=PGRES_TUPLES_OK || $result->ntuples==0) {
    die;
}

# start the HTML page
print $cgi->header;
print $cgi->start_html('Nearby SNe Candidate Priorities');

# set up the table
print $cgi->table({border=>'3'});
print $cgi->TR({align=>'center',valign=>'top'});
print $cgi->td({colspan=>'3'},'<b>Table Key</b>');
print "<tr align=center valign=top>\n";
print "  <td bgcolor=red><font color=white> 8 or more </td>\n";
print "  <td> Strongly Needed </td>\n";
print "<tr align=center valign=top>\n";
print "  <td bgcolor=yellow><font color=black> 5, 6, or 7 </td>\n";
print "  <td> Observation Needed </td>\n";
print "<tr align=center valign=top>\n";
print "  <td bgcolor=green><font color=black> 1, 2, 3, or 4 </td>\n";
print "  <td> Recently Observed </td>\n";
print "<tr align=center valign=top>\n";
print "  <td bgcolor=gray><font color=white> 0 / >100 </td>\n";
print "  <td> Not Needed/Checked Out </td>\n";
print "</table>\n";
print "<br><br>\n";

print "<center>\n";
print "<table border=3>\n";
print "<tr align=center valign=top>\n";
print "  <td colspan=13>  <b>Candidate Priorities</b>  </td>\n";
print "<tr align=center valign=top>\n";
print "  <td colspan=2>  </td>\n";
print "  <td colspan=5> Photometry </td>\n";
print "  <td> </td>\n";
print "  <td colspan=5> Spectra </td>\n";
print "<tr align=left valign=top>\n";
print "  <td>  </td>\n";
print "  <td> Name </td>\n";
print $cgi->td(['U','B','V','R','I']);
print "  <td>  </td>\n";
print $cgi->td(['U','B','V','R','I']);

# add each candidate
for($i=$result->ntuples-1; $i>=0; $i--) {
    $photQuery="SELECT u,b,v,r,i FROM priorities WHERE fun_name='"
	.$result->getvalue($i,0)."'"." AND type='phot'";
    $photResult=$db->exec($photQuery);

    $specQuery="SELECT u,b,v,r,i FROM priorities WHERE fun_name='"
	.$result->getvalue($i,0)."'"." AND type='spec'";
    $specResult=$db->exec($specQuery);

    if ($photResult->ntuples > 0 && $specResult->ntuples > 0) {
	$value=int $result->getvalue($i,1);
	print "<tr align=left valign=top>\n";
	print_table_value(1);
	print "  <td> ".$result->getvalue($i,0)." (".$result->getvalue($i,2).") </td>\n";

	# put up the individual filter priorities
	for($j=0; $j < 5; $j++) {
	    $value=int $photResult->getvalue(0,$j);
	    print_table_value(0);
	}

	print "<td>  </td>\n";
	for($j=0; $j < 5; $j++) {
	    $value=int $specResult->getvalue(0,$j);
	    print_table_value(0);
	}

    }
}

print "</table>\n";
#print "<br><br><hr>";
print "Values as of ";
print scalar localtime;

print $cgi->startform;
print $cgi->submit(-value=>'Update');
print $cgi->endform;
print "</center>\n";
print $cgi->end_html;

sub print_table_value() {
    $oapMode=shift(@_);

    if($value >= 100 || $value==0) {
	$bgcolor="gray";
	$fgcolor="white";
    } elsif($oapMode==1 && $value==1 ) {
	$bgcolor="blue";
	$fgcolor="white";
    } elsif($value >= 8 ) {
	$bgcolor="red";
	$fgcolor="white";
    } elsif($value >= 5 ) {
	$bgcolor="yellow";
	$fgcolor="black";
    } else {
	$bgcolor="green";
	$fgcolor="black";
    }

    print "<td bgcolor=".$bgcolor."><font color=".$fgcolor."> ";
    print $value."</td>\n";
}