#!/usr/bin/perl
require("cgi-lib.pl");
print &PrintHeader;
$filedir = ".";
print "\n\nIndex";
@names = &getimages($filedir);
$nfiles = $#names;
$curriamge = 0;
# print "
array is", @names, "
len $x
\n";
&ReadParse;
if( !defined($in{'next'} ))
{
$currimage=0;
}
else
{
$currimage = $in{'imagenum'};
$currimage = ($in{'next'} eq "Next Image"? ++$currimage : --$currimage);
$currimage %= $nfiles;
}
if ( $currimage < 0 )
{
$currimage = nfiles - 1;
}
$uri = $ENV{'SCRIPT_NAME'};
$server = $ENV{'SERVER_NAME'};
$url='http://www.' . $server . $uri;
$ftype = $names[$currimage];
$ftype =~ tr/[A-Z]/[a-z]/;
if ( $ftype =~ /\.jpg$/ || $ftype =~ /\.gif$/ )
{
print '![](,$names[$currimage]," alt=)
\n";
}
elsif ( $ftype =~ /\.mov/)
{
print ' ';
}
($caption,$type) = split(/\./, $names[$currimage]);
if( open (FL, "< $caption.htm") )
{
print "";
while( )
{
print "$_";
}
close FL;
print "";
}
print "
$names[$currimage] ", $currimage + 1, " of $nfiles ";
print "