#!/usr/bin/perl 

$databasedir = "/srv/data/projects/artfl/textdata/encyclopedie/18thvolume/";
$filelist = $databasedir . "filelist.txt";

$THISSRV = "http://artflsrv02.uchicago.edu/cgi-bin/extras/diderotimg.pl?";
$BIGIMGSRVER = "http://artflsrv02.uchicago.edu/images/diderot/large_jpeg/";
$IMGSRVER = "http://artflsrv02.uchicago.edu/images/diderot/small_jpeg/";

$QS = $ENV{'QUERY_STRING'};
$pageimagefile = $QS;

print "Content-type: text/html; charset=UTF-8\n\n"; 

$header = $databasedir . "search.header.html";
open (HEADERFILE, $header);
while ($linein = <HEADERFILE>) {
      print $linein;
      }
close HEADERFILE;

@results = split("_", $pageimagefile);
$seqnum = $results[0];
$previous = $seqnum - 1;
$next = $seqnum + 1;

open (FILELIST, $filelist);
$x = 1;
while (<FILELIST>) {
	chop;
	$filename[$x] = $_;
	$x++;
	}
close (FILELIST);
$nextone = $filename[$next];
$lastone = $filename[$previous];

$section = @results[2];
$section =~ s/\.jpg//;
$page = @results[1]; 
$page =~ s/pg//;
$sequence = @results[0];

$identifier = $section . ":" . $page . " [" . $sequence . "]";

print "<table width=95%><tr><td align=left>";
print "<a href=\"" . $THISSRV . $lastone . "\">previous page</a>  ";
print "</td><td align=center>";
print "<b>" . $identifier . "</b>";
print "</td><td align=right>";
print "<a href=\"" . $THISSRV . $nextone . "\">next page</a>";
print "</td></tr></table>";
print "<center>";
print "<a href=\"" . $BIGIMGSRVER . $pageimagefile . "\" target=diderot>";
print "<img src=\"" . $IMGSRVER . $pageimagefile . "\"></a>";
print "</center>";
print "<table width=85%><tr><td align=left>";
print "<a href=\"" . $THISSRV . $lastone . "\">previous page</a>  ";
print "</td><td align=center>";
print "<b>" . $identifier . "</b>";
print "</td><td align=right>";
print "<a href=\"" . $THISSRV . $nextone . "\">next page</a>";
print "</td></tr></table>";

$footer = $databasedir . "search.footer.html";
open (FOOTERFILE, $footer);
while ($linein = <FOOTERFILE>) {
      print $linein;
      }
close FOOTERFILE;