#!/usr/bin/perl 
use CGI qw(:standard);

$days = param("days");
$volume = param("volume");
$day = param("day");

$bom = "Book of Mormon";
$ot = "Old Testament";
$nt = "New Testament";
$dc = "Doctrine and Covenants";
$pgp = "Pearl of Great Price";
$sw = "Standard Works";

if ($volume eq $bom)
{
	$volTitle = $bom;
	$volXml = "bom2.xml";
	$totalVerses = 6613;
}
elsif ($volume eq $ot)
{
	$volTitle = $ot;
	$volXml = "ot.xml";
	$totalVerses = 23145;
}
elsif ($volume eq $nt)
{
	$volTitle = $nt;
	$volXml = "nt.xml";
	$totalVerses = 7957;
}
elsif ($volume eq $dc)
{
	$volTitle = $dc;
	$volXml = "nt.xml";
	$totalVerses = 3654;
}
elsif ($volume eq $pgp)
{
	$volTitle = $pgp;
	$volXml = "nt.xml";
	$totalVerses = 635;
}
elsif ($volume eq $sw)
{
	$volTitle = $sw;
	$volXml = "nt.xml";
	$totalVerses = 42004;
}

$volXml = "scriptures.xml";



if ($days)
{
	$title = "Read The $volTitle in $days Days";
}

print header(-charset=>'UTF-8'), start_html(-encoding=>'UTF-8', -head=>meta({-http_equiv=>'Content-Type', -content=>'text/html; CHARSET=UTF-8'}), $title), "<DIV align=\"left\">";

print h1($title);

if ($volume)
{
	open(BOOK, $volXml) || ERRHANDLER(2);
}

if ($days)
{
	print "<OL>";
	$versesPerDay = $totalVerses / $days;
	

	$found = 0;
	
	if ($volTitle eq $sw)
	{
		$found = 1;
	}
	
	$endOfVol = 0;
	
	while (<BOOK>)
	{
		$line = $_;

		if (!$found && $volTitle ne $sw)
		{
			#print $line;
			if (/<volume>$volTitle<\/volume>/i)
			{
				$found = 1;
				$endOfVol = 0;
			}
		}
		elsif ($found && !$endOfVol && m/<v>/g)
		{
			#print $line;
			$verseCount++;
			$reference = getTag($line, "r");
			#print $reference;
			if (!$verses)
			{
				$dayNumPlus = $dayNum + 1;
				print "<LI><A name=\"day$dayNumPlus\" href=\"scriptures.cgi?volume=$volTitle&days=$days&day=$dayNumPlus#day$dayNumPlus\">$reference - ";
				$dayNum++;
			}
			$verses++;
			if ($verses >= $versesPerDay)
			{
				print "$reference</A></LI>";
				$verses = 0;
			}
			if ($day == $dayNum)
			{
				push @verseText, "<P><small>$reference</small> " . getTag($line, "t") . "</P>";
				if ($verses == 0)
				{
					print @verseText;
				}
			}
		}
		else
		{
			if ($volTitle ne $sw)
			{
				$endOfVol = 1;
			}

		}
	}
	
	#print h3($chapter . " ($verseCount)");
	
	print "$reference</A></LI>";
	
	while ($dayNum++ < $days)
	{
		print ("<LI>Review, Catch up, etc.</LI>");
	}
	
	print "</OL>";
#	print "<BR/>$verseCount<BR/>";
	
	print "<HR/>";
}

print "<FORM ACTION=\"http://www.yellowslicker.com/cgi-bin/scriptures.cgi\">";
print "Read The <SELECT NAME=\"volume\">";

print "<option ";
if ($volume eq $bom) { print "selected "; }
print "value=\"$bom\">$bom</option>";
print "<option ";
if ($volume eq $ot) { print "selected "; }
print "value=\"$ot\">$ot</option>";
print "<option ";
if ($volume eq $nt) { print "selected "; }
print "value=\"$nt\">$nt</option>";
print "<option ";
if ($volume eq $dc) { print "selected "; }
print "value=\"$dc\">$dc</option>";
print "<option ";
if ($volume eq $pgp) { print "selected "; }
print "value=\"$pgp\">$pgp</option>";
print "<option ";
if ($volume eq $sw) { print "selected "; }
print "value=\"$sw\">$sw</option>";

print "</SELECT>";

$defaultDays = 100;
if ($days)
{
	$defaultDays = $days;
}

print " in <INPUT SIZE=\"5\" MAXLENGTH=\"4\" NAME=\"days\" VALUE=\"$defaultDays\"> days";
print "<INPUT TYPE=\"submit\" VALUE=\"Show Reading Schedule\"></FORM>";

	
print "</DIV>", end_html();



sub ERRHANDLER	{
	my($errnum) = @_;	
	
	if ($errnum == 1)	{
		print h2("Unknown media file type");
	}
	elsif ($errnum == 2)	{
		print h2("Unable to open XML file");
	}
}
	
	

	
	
	
############################################################
sub	getTag	{
	my ($string, $element) = @_;
	my ($start, $end);
	
		if	($string =~ /<$element>/)	{
			
			$start	= index($string, "<$element>");
			if	($start >= 0)	{
				$start	= (index($string, ">", $start) + 1);
				$end	= index($string, "<", $start);
			
				if 	($start >= 0)	{
					return (substr($string, $start, $end-$start))
				}
			}
		}
	return	("");
}