#! /usr/bin/perl
	if ($ENV{'REQUEST_METHOD'} eq 'GET') {
		@pairs = split(/&/, $ENV{'QUERY_STRING'});
	}
	elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
 		@pairs = split(/&/, $buffer);
	}
	else {
		print "This script must be called from the Web\nusing either GET or POST requests\n\n";
	}

foreach $pair (@pairs) {
  ($name, $value) = split(/=/, $pair);
  $name =~ tr/+/ /;
  $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value =~ s/\n/<br>/g;
  $INPUT{$name} = $value;
}

print "Content-type:text/html\n\n";

$name="../ssi/top.txt";
&ssi;

open(IN, "data.txt");
@indata=<IN>;
close(IN);

$cnt=0;
$INPUT{'start'} = 0 if ($INPUT{'start'} eq "");
$end = $INPUT{'start'} + 500;
print "<br><center><font size=5 face=Verdana><b>Mid-East Realities pictures</b><br><i>click to enlarge</i></font></center><br>";
$counter=0;
foreach $line (@indata) {
	$counter++;
}
print "<font size=2 face=Verdana><b><center>showing: $INPUT{'start'} - $end ($counter total)</center></b></font>";
print "<font size=2 face=Verdana><b><center><a href=\"list.cgi\">Back to the start</a> | <a href=\"list.cgi?start=$end\">Next 500 pictures</a></center></b></font><br><br>";
print "<table align=center cellpadding=5 cellspacing=0 border=0 width=100%><tr>";
foreach $line (@indata) {
	($num, $title, $info) = split(/\|/, $line);
	if ($cnt >= $INPUT{'start'}) {
		print "<td width=25%>";
		if (-e "small$num") { print "<center><a href=\"$num\" target=New><img src=\"small$num\" border=0></a></center>\n"; }
		else { print "<center><a href=\"$num\" target=New><img src=\"$num\" border=0 width=150 height=112></a></center>\n"; }
		print "<center><font size=1 face=Verdana><b>$title</b><br>$info</font></center>\n";
		print "</td>";
	}
	$cnt++;
	print "</tr><tr>" if (($cnt % 4) == 0);
	last if ($cnt eq $end);
}
print "</tr></table>";

print "<center><font size=4 face=Verdana><b><a href=\"list.cgi?start=$end\">Next 500 pictures</a></b></font></center>" if ($cnt == $end);
print "</font><br><Br>";

$name="../ssi/int.txt";
&ssi;

$name="../ssi/articles.txt";
&ssi;

$name="../ssi/bottom.txt";
&ssi;


sub ssi {

open(IN, "$name");
@indata = <IN>;
close(IN);
foreach $line (@indata) {
	print $line;
}

}