#!/usr/bin/perl -w

use Tie::File;
use CGI;
use Fcntl 'O_RDONLY';
require "info.pl";

$current = "Bible.txt";
$query = new CGI;
$verse = $query->param("verse");
$book = $query->param("book");
$word = $query->param("word");
$next = $query->param("next");
$Andor = $query->param("Andor");
$boolword = $query->param("boolword");
$hit = 0;

print "status:200 OK\ncontent-type: text/html\n\n";

tie @array,'Tie::File', $current, mode => 'O_RDONLY' or die "Unable to tie file in showtext\n";

($a,$b) = split ':', $filePos{$book};
for $i ($a..$b){
	$line = $array[$i];
	$line = $line."\n";
	$copyLine = $line;
	$final = $array[$i];
	$final = $final."\n";
if($word){
	if($line =~ m/^$word\W|\W$word\W/ig){
		$BoldWord = "<b> ".$word." </b>"; 
		$final =~ s/\W$word\W/$BoldWord/ig;
		$hit++;
	}
}
else{
	if($Andor == 1){
		if($line =~ m/^$boolword\W|\W$boolword\W/ig){
			if($copyLine =~ m/^$next\W|\W$next\W/ig){
				$BoldWord = "<b> ".$boolword." </b>"; 
				$final =~ s/\W$boolword\W/$BoldWord/ig;
				$BoldWord = "<b> ".$next." </b>"; 
				$final =~ s/\W$next\W/$BoldWord/ig;
				$hit++;
			}		
		}
	}#Andor 1
	if($Andor == 2){
		if($line =~ m/^$boolword\W|\W$boolword\W/ig){
			$BoldWord = "<b> ".$boolword." </b>"; 
			$final =~ s/\W$boolword\W/$BoldWord/ig;
			$hit++;
		}
		if($copyLine =~ m/^$next\W|\W$next\W/ig){
			$BoldWord = "<b> ".$next." </b>"; 
			$final =~ s/\W$next\W/$BoldWord/ig;
			$hit++;
		}
	}
	if($Andor == 3){
		if($line =~ m/^$boolword\W|\W$boolword\W/ig){
			if($copyLine =~ m/^$next\W|\W$next\W/ig){
			}
			else{
				$BoldWord = "<b> ".$boolword." </b>"; 
				$final =~ s/\W$boolword\W/$BoldWord/ig;
				$hit++;
			}
		}	
	}
}#end else
	if($hit > 0){
		print "<br><a href=\"showtext.cgi?line=$i&book=$book\">$final</a></br>\n";
	}
$hit = 0;
}