#!/usr/local/bin/perl
print "Content-Type: text/html\n\n";
if (-r "./.imageinfo") {
open(infofile, "./.imageinfo");
do {
$read_ret = sysread(infofile, $readdata, 50);
$tempinfodata = "$tempinfodata$readdata";
} while $read_ret != 0;
@fileinfodata = split(/\n/, $tempinfodata);
close(infofile);
@fileinfodata = grep(!/^#/, @fileinfodata);
$infodata[0][0] = $fileinfodata[0];
for ($i=1; $i < @fileinfodata; $i++) {
@temp = split(/:/, $fileinfodata[$i]);
for ($g=0; $g < @temp; $g++) {
$infodata[$i][$g] = $temp[$g];
}
}
} else {
print "Error opening info file\n";
exit;
}
for ($i=2; $i < @infodata; $i++) {
if ("$infodata[$i][0]" eq "$ARGV[0]") {
$found_index = $i;
last;
}
}
if (!-r $infodata[$found_index][0]) {
print "image file nonexistant or unreadable\n";
exit;
}
print <<"EoM1";
The Lycaeum - $infodata[0][0] - $infodata[$found_index][2]
EoM1