#!/usr/bin/perl -w
use Tie::File;
use CGI;
use Fcntl 'O_RDONLY';
require "info.pl";
$current = "fulltext.txt";
$query = new CGI;
$lineNum = $query->param("line");
$book = $query->param("book");
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 /\d/, $array[$lineNum];
$view = yes;
for $j (-5..5){
if($j == 0){
print "
$array[$lineNum + $j]\n";
}
else{
print "
$array[$lineNum + $j]\n";
}
}
print "
To view the entire book of $books{$book} please click here ";