#!/usr/local/bin/perl

#unshift (@INC, "/home3/global-l/PERL");

&parse_form_data (*simple_form);
$qquery = $simple_form{'query'};
$qquery =~ s/\.narp/\.html/;
$divtype = $simple_form{'divtype'};
$linenum = $simple_form{'linenum'};
$prev = $simple_form{'prev'};
$frametype = $simple_form{'frametype'};
#($selfurl = $ENV{'QUERY_STRING'}) =~ s/$linenum/$prev/;
($selfurl = $ENV{'QUERY_STRING'}) =~ s/format=[A-Z]*\&//;
$pdfurl = "$selfurl&format=PDF";
$format = $simple_form{'format'};

$CAT = "/bin/cat";
$ZCAT = "/bin/zcat";
$GZCAT = "/bin/zcat";
$CLEAN = "/home3/global-l/bin/canchors";
$SED = "/bin/sed";
$SGMLGREP = "/home3/global-l/bin/sgmlgrep -i";
$GREEK = "/home3/global-l/bin/wwwgreek";
$LENIS = "/home3/global-l/bin/histlenis2.pl";
$SCAPS = "/home3/global-l/bin/scaps";
$HT2TROFF = "/home3/global-l/bin/ht2troff";
$PSROFF = "/usr/bin/eqn | /usr/bin/troff -ms | /usr/lib/lp/postscript/dpost"; ## Solaris...
$PS2PDF = "/home3/global-l/bin/ps2pdf"; # convert postscript to pdf

#&printglrheader ();
&printglrheader() unless ($format eq "PDF");
if ($format =~ /PDF/) {
#	system("$GZCAT $qquery | $CLEAN | $LENIS | $SCAPS | $HT2TROFF | $PSROFF > /usr/tmp/footmp.ps");
	system("$GZCAT $qquery | $CAT -n | $SGMLGREP $divtype \" $linenum\	\" | $SED -e \"s/^ *[0-9]*	//\" | $CLEAN | $LENIS chap | $HT2TROFF | $PSROFF > /usr/tmp/footmp.ps");
        system("$PS2PDF /usr/tmp/footmp.ps /usr/tmp/footmp.pdf");
	 $| = 1;
	 print "Content-type: application/pdf\n\n";
	 unless (open(PDFFILE, "/usr/tmp/footmp.pdf")) {
	 	die ("could not open pdf file\n");
	 }
	 while (<PDFFILE>) {
		print;
	 }
	 close(PDFFILE);
#        system("$CAT /usr/tmp/footmp.pdf");
#        system("/usr/bin/rm -f /usr/tmp/footmp.ps /usr/tmp/footmp.pdf");
        exit (0);
}

unless ($frametype eq "frames") {
#	&printoedbar ();
}

if ( $ARGV[0] eq '-p' ) {
	shift;
	$printit = 1;
} else { $printit = 1; }

##&authillus ();
if ($frametype eq "frames") {
	#require ("quicksearchframe.pl");
} else {
	#require ("quicksearch.pl");
}


#unless (open(TARGFILE, "$CAT -n $qquery | $SGMLGREP $divtype \" $linenum\	\" | $SED -e \"s/^ *[0-9]*	//\" -e \"s/\\&lenis;/\\&lenis\./g\" -e \"s/\\&asper;/\\&asper\./g\" -e \"s/\\&frown;/\\&frown\./g\" |")) {
#	die ("could not open target file\n");
#}

if ($qquery =~ /\.Z$/) {
	unless (open(TARGFILE, "$ZCAT $qquery | $CAT -n | $SGMLGREP $divtype \" $linenum\	\" | $SED -e \"s/^ *[0-9]*	//\" -e \"s/\\&lenis;/\\&lenis\./g\" -e \"s/\\&asper;/\\&asper\./g\" -e \"s/\\&frown;/\\&frown\./g\" |")) {
		die ("could not open target file\n");
	}
}
elsif ($qquery =~ /\.gz$/) {
	unless (open(TARGFILE, "$GZCAT $qquery | $CAT -n | $SGMLGREP $divtype \" $linenum\	\" | $SED -e \"s/^ *[0-9]*	//\" -e \"s/\\&lenis;/\\&lenis\./g\" -e \"s/\\&asper;/\\&asper\./g\" -e \"s/\\&frown;/\\&frown\./g\" |")) {
		die ("could not open target file\n");
	}
}
else {
	unless (open(TARGFILE, "$CAT -n $qquery | $SGMLGREP $divtype \" $linenum\	\" | $SED -e \"s/^ *[0-9]*	//\" -e \"s/\\&lenis;/\\&lenis\./g\" -e \"s/\\&asper;/\\&asper\./g\" -e \"s/\\&frown;/\\&frown\./g\" |")) {
		die ("could not open target file\n");
	}
}

#print "<a href=\"glrcchp?$selfurl\">Previous Section</a>\n";
#print "<center><a href=\"glrcchp?$pdfurl\">PDF Version</a></center>\n";
while (<TARGFILE>) {
if (/<text/) {
	$printit = 1;
}
if (/<l.*(> *)/) {
	$tabnum = length($1);
	for ($count=1; $count <= ($tabnum - 1); $count++) {
		s/ /\&nbsp;\&nbsp;/
	}
}
##if (/<pv>GB/) {
##	s/ ([A-Z][a-z]*)<\/dAuthor>/<A href="\/cgi\/author2.getter\?query=$1"> $1<\/A><\/dAuthor>/;
##	}
s/<stage type=["'][a-z]*["']>/\[$&/;
s/<stage type=[a-z]*>/\[$&/;
s/<stage>/[<stage>/g;
s/<\/stage>/$&\]/g;
s/<dDate>/<b>$&/g;
s/<\/dDate>/$&<\/b>/g;
s/<quote>/<blockquote>$&/g;
s/<\/quote>/$&<\/blockquote>/g;
s/<tPage>/<center>$&/g;
s/<\/tPage>/$&<\/center>/g;
#s/<gloss>/{$&/g;
#s/<\/gloss>/$&}/g;
s/<gloss>/<table align=left width="15%" border=0 cellspace=10><tr><td><font size=2><b>$&/g;
s/<\/gloss>/$&<\/b><\/font><\/td><\/tr><\/table>/g;
s/<trailer>/[$&/g;
s/<\/trailer>/$&]/g;
s/<spkr>/<i>$&/g;
s/<\/spkr>/$&<\/i>/g;
s/<p>/<p align=justify>\&nbsp;\&nbsp;\&nbsp;\&nbsp;/g;
s/<sp>/\&nbsp;\&nbsp;\&nbsp;\&nbsp;<sp>/g;
#s/<sp>/$&<a href="javascript:quickwindow()" onMouseOver="window.status='Open Quick Search Pop-up Form for GLR';return true;"><img src=\/images\/tab1.gif border=0 alt=""><\/a>/g;
#s/<p>/$&<a href="javascript:quickwindow()" onMouseOver="window.status='Open Quick Search Pop-up Form for GLR';return true;"><img src=\/images\/tab1.gif border=0 alt=""><\/a>/g;
#s/<sp>/$&<a href="javascript:quickwindow()" onMouseOver="window.status='Open Quick Search Pop-up Form for GLR';return true;"><img src=\/images\/oedtab1.gif border=0 alt=""><\/a>/g;
#s/<p>/$&<a href="javascript:quickwindow()" onMouseOver="window.status='Open Quick Search Pop-up Form for GLR';return true;"><img src=\/images\/oedtab1.gif border=0 alt=""><\/a>/g;
#s/<strong>/$&<a href="javascript:quickwindow()" onMouseOver="window.status='Open Quick Search Pop-up Form for GLR';return true;"><img src=\/images\/oedtab1.gif border=0 alt=""><\/a>/g;
s/<ptr target=(N)([0-9\.]*)>/<a href="\#$1$2">$2<\/a>/g;
s/<note place=f id=(N)([0-9\.]*)>/<p><note><a name="$1$2">$2<\/a>/g;
#s/<pb n=(.*?)>/<br>\[page $1\]<br>/g;
s/\&th;/\&thorn;/g;
s/\&Th;/\&THORN;/g;
s/\&Thorn;/\&THORN;/g;
s/\&ygh;/<img src=\/IPA\/ipa.yGH.gif align=top alt="3">/g;
s/\&Ygh;/<img src=\/IPA\/ipa.YGH.gif align=top alt="3">/g;
#s/\&oelig;/<img src=\/IPA\/ipa.oe.gif alt="oe">/g;
#s/\&Oelig;/<img src=\/GREEK\/OElig2.gif alt="Oe">/g;
s/\&oelig;/<oe>oe<\/oe>/g;
s/\&Oelig;/<Oe>Oe<\/Oe>/g;
s/\&asper;\&acute;/\&asperacute;/g;
s/\&asper;\&grave;/\&aspergrave;/g;
s/\&lenis;\&acute;/\&lenisacute;/g;
s/\&lenis;\&grave;/\&lenisgrave;/g;
s/\&asper\./<img src=\/greek\/rougr.gif alt="">/g;
s/\&lenis\./<img src=\/greek\/smogr.gif alt="">/g;
s/(a-z)\&grave;/\&$1grave;/g;
s/(a-z)\&acute;/\&$1acute;/g;
s/\&odq;/``/g;
s/\&cdq;/''/g;
s/\&onq;/`/g;
s/\&cnq;/'/g;
s/\&es;/\&nbsp;/g;
s/\&mdash;/\&#45;/g;
s/<su>/<sup>/g;
s/<\/su>/<\/sup>/g;
s/<head>/<h3>/g;
s/<\/head>/<\/h3>/g;
#s/^<l/<br>$&/;
s/><pv/> <pv/g;
if ( $printit eq "1" ) { print; }
}

close(TARGFILE);

sub printoedbar
{
($titletext = $qquery) =~ s/\/home3\/global-l\/TEXTS\/...\///;
($titletext = $qquery) =~ s/\/home2\/global-l\/TEXTS\/...\///;
printf("<title>GLR Historical Corpus - %s</title>\n", $titletext);
printf("<center>\n");
print <<END_OF_MAP;
<a href="../cgi/openbin/imagemap/oetcbar6.map" onMouseOver="window.status='Use This Map to Go To One of the Main Search Pages';return true;"><IMG ALIGN=center SRC=/images/tricolorbar1.gif ismap border=0 alt="" usemap="#map1"></a>
<map name="map1">
<area coords="0,0,56,29" href="/oetc.html" onMouseOver="window.status='Return to the GLR Online Home Page';return true;" target=_top>
<area coords="57,0,99,29" href="/oedframe2.html" onMouseOver="window.status='GLR Search Page';return true;">
<area coords="100,0,175,29" href="/oed-newsframe2.html" onMouseOver="window.status='GLR Additions Search Page';return true;">
<area coords="176,0,224,29" href="/dsaeframe2.html" onMouseOver="window.status='Dictionary of South African English Search Page';return true;">
<area coords="225,0,284,29" href="/ftext.html" onMouseOver="window.status='Full Text Corpus Search Page';return true;">
<area coords="285,0,332,29" href="/ffolio.html" onMouseOver="window.status='Shakespeare Folio Search Page';return true;">
<area coords="333,0,369,29" href="/kjv.html" onMouseOver="window.status='King James Bible Search Page';return true;">
<area coords="370,0,417,29" href="/help.html" onMouseOver="window.status='GLR Online Help Pages';return true;">
</map>
END_OF_MAP
printf("<br>\n");
printf("<img width=418 height=2 src=/images/oupline.gif alt=\"\">\n");
printf("<br>\n");
printf("</font>\n");
printf("<br>\n");
printf("</center>\n");
}

sub printglrheader
{
printf("Content-type: text/html\n\n");
printf("<body bgcolor=\"#ffffb0\" text=\"green\"  link=\"#ff0000\" vlink=\"#cc0033\">\n");
printf("<basefont size=\"4\">\n");
printf("<blockquote>\n");
}

sub parse_form_data
{

local (*FORM_DATA) = @_;
local ( $request_method, $query_string, @key_value_pairs, $key_value, $key, $value);

$request_method = $ENV{'REQUEST_METHOD'};

if ($request_method eq "GET") {
	$query_string = $ENV{'QUERY_STRING'};
} elsif ($request_method eq "POST") {
	read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
} else {
	printf("Unknown method\n");
	exit (1);
}

@key_value_pairs = split (/&/, $query_string);

foreach $key_value (@key_value_pairs) {
	($key, $value) = split (/=/, $key_value);
	$value =~ tr/+/ /;
	$value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
	if (defined($FORM_DATA{$key})) {
		$FORM_DATA{$key} = join ("\0", $FORM_DATA{$key}, $value);
	} else {
		$FORM_DATA{$key} = $value;
	}
   }

}