#!/usr/bin/perl

require "cgi-lib.pl";
print &PrintHeader;
&ReadParse;

use CGI;
use DBI;

$query = new CGI;

use CGI::Carp qw(fatalsToBrowser);

$root="/home/29/54/3025429";
$rootdir="$root/content";


$dbh = DBI->connect("dbi:mysql:database=stpaul6;stpaul6.stpaul-lcms-md.org:3306","stpaul6","C#t5Y9C2")
			or die("Couldn't connect");

sub hitOut {

	if($sth->rows == 0)
	{
        	$output= "No information available";
	}
	else
	{
        	while( $resptr =  $sth->fetch() )
        	{
                	$output .= "<tr>";
                	$h = $fullname;
			if (-f "$rootdir/../cemetery/images/$fullname.JPG") { 
				$h = "<a href=\"\" onclick=\"var xxx = window.open('/cemetery/images/" .
				$fullname . ".JPG','popup','resizable,scrollbars,width=700,height=600');" .
				"xxx.focus(); return false\" target=popup>" .
				"$fullname</a>";
			}
                	$output .= "<td>" . $h       . "</td>";
                	$output .= "<td>" . $dob     ."</td>";
                	$output .= "<td>" . $dod     ."</td>";
                	$output .= "<td>" . $section ."</td>";
                	$output .= "<td>" . $lot     ."</td>";
                	$output .= "<td>" . $grave   ."</td>";
			#$output .= "<td>" . $note    ."</td>";
                	$output .= "<td>" . $extra   ."</td>";
                	$output .= "</tr>\n";
        	}
	}
}
sub startsWith {
	$query="select * from cemetery where dod > 0000-00-00 and fullname like '".
		$in{"letter"}."%' order by fullname";
	$sth = $dbh->prepare($query) or die("Couldn't prepare");
	$sth->execute();
	$sth->bind_columns(undef, 
		\$imagename, 
		\$lastname, 
		\$fullname,
		\$dob,
		\$dod,
		\$section,
		\$lot,
		\$grave,
		\$extra,
		\$note,
		\$soldto,
		\$deednum,
		\$doburial,
		\$caretaker,
		\$funeralhome,
		\$burialnum,
		\$boardsec,
		\$recid
	); 
	&hitOut();
	$sth->finish();
}
	
if ($in{"func"} eq "startsWith") {
	open (IN,"<$rootdir/../cemetery/header.shtml");while(<IN>){ print; } close IN;
	open (IN,"<$rootdir/../cemetery/nav.shtml");while(<IN>){ print; } close IN;
	$output= "<table width=\"100%\" border=\"1\"><tr>" .
		"<th>Name</th>" .
		"<th>Birth</th>" .
		"<th>Deceased</th>" .
		"<th colspan=\"3\">Lot Number</th>" .
		#"<th>Note</th>" .
		"<th>Extra</th>" .
		"</tr>";
	&startsWith;
	$output .= "</table>";
	open (IN,"<$rootdir/../cemetery/intern.shtml");
	while(<IN>){ 
		if ($_ =~ /REPLACEME/) {
			print $output;
		} else {
			print; 
		}
	}
	close IN;
#} elsif ($in{"func"} eq "forsale"){
	#&forsale;
#} elsif ($in{"func"} eq "find"){
	#&find;
}

open (IN,"<$rootdir/../cemetery/footer.shtml");while(<IN>){ print; } close IN;


$dbh->disconnect;