#!/usr/bin/perl -w
use Tie::File;
use CGI;

$query = new CGI;
$search = $query->param("term");

print "status:200 OK\ncontent-type: text/html\n\n";
print "Hi\n\n";
tie @array, 'Tie::File', "fulltext.txt" or die "Unable to tie file";
print "Hello please enter word to search for\n";
print "Searching for -$search-\n";
$counter = 0;
$num_lines = 0;
open(FILE, "fulltext.txt") or die "Unable to open the file";
while($line = <FILE>){
	$pos = 0;
	$x = 0;
	while($pos != -2){
		$num = index($line, $search, $pos);
		if($num_lines < 5 && $num >=0){
			print $array[$num_lines]."\n";
		}
		if($num >= 0){
			#print "position $num on line $num_lines\n";
			$find[$counter][$x++] = $num; #store the position
			$find[$counter][$x++] = $num_lines; #store the line number
			$pos = $num + length$search;
		}
		else{
			if($pos > 0){
				$counter++; #increment storage position in array
			}
			$pos = -2;
		}
	}
$num_lines++;	#increment to show which line is being searched
}

#for $i (0..$#find){
#	for $j (0..$#{ $find[$i]}){
#		if($j%2){
#			print "Line is $find[$i][$j]\n";
#		}
#		else{
#			print "Position is $find[$i][$j] ";
#		}
#	}
#}
print "Your search resulted in ", $#find + 1," hits\n";
print $array[0]."\n";