#!/usr/local/bin/perl
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 {
die "Error opening info file\n";
}
print "Content-type: text/html\n\n";
print <<"EoM1";
The Lycaeum - Visionary Art - $infodata[0][0]
| $infodata[0][0] |
|---|
EoM1
for ($i=2; $i < @infodata; $i++) {
if ((($i - 1) % 5) == 1) { print "
"; }
print "![\"$infodata[$i][0]\"](\"$infodata[$i][1]\")
\n";
print "$infodata[$i][2] | \n";
if ((($i - 1) % 5) == 0) { print "
\n"; }
}
if (($i % 5) != 0) { print "
\n"; }
print "
\n";
if (grep(!/^-/, $infodata[1][0])) {
print "$infodata[1][2]
\n";
}
print <<"EoM1";
Back
EoM1