#!/usr/bin/perl
print "Content-type: text/html\n\n";
$curdir=`pwd`;
$image = $ENV{'QUERY_STRING'};
print "\n\n";
print "\n";
print "$image\n\n";
print "";
$last = "";
$next = "";
$gotit = 0;
opendir(DIR,"big/");
foreach $n (sort readdir DIR) {
if ($n=~/jpe?g$/ ||
$n=~/JPE?G$/ ||
$n=~/gif$/ ||
$n=~/GIF$/ ||
$n=~/png$/ ||
$n=~/PNG$/) {
if ($gotit) {
$next = $n;
last;
}
if ($n eq "$image") {
$gotit = 1;
next;
}
$last = $n;
}
}
closedir DIR;
print "[Contents]\n\n";
if ($last ne "") {
print "[Previous]\n\n";
}
if ($next ne "") {
print "[Next]\n\n";
}
print "![](\"big/$image\")
\n\n";
if ( -e "$image.desc" &&
open(FILE,"$image.desc")) {
print "
";
while () {
print "$_\n";
}
close (FILE);
}
print "\n";