#!/usr/local/bin/perl $pos=0; $upname=""; $count=0; $imgpath="http://www.tripletransam.com/mfba/2005/101605/"; opendir(curdir,"../../../../../public_html/tripletransam/mfba/2005/101605/")||die("Cannot open Directory!"); @names=readdir(curdir); print "content-type: text/html", "\n\n"; print "Montebello 2005\n"; print "
\n"; print "
".$imgpath."\n
(Click images to open in new window)

"; for $name(@names) { if ($count==0) { print "\n"; } $upname=uc($name); $pos=index($upname,".GIF"); if ($pos > 0) { print "\n"; $count=$count+1; } $pos=index($upname,".JPG"); if ($pos > 0) { print "\n"; $count=$count+1; } $pos=index($upname,".JPEG"); if ($pos > 0) { print "\n"; $count=$count+1; } $pos=index($upname,".PNG"); if ($pos > 0) { print "\n"; $count=$count+1; } $pos=index($upname,".BMP"); if ($pos > 0) { print "\n"; $count=$count+1; } if ($count==7) { print "\n"; $count=0; } } closedir(curdir); if ($count>0) { print "\n"; } print "

$name
$name
$name
$name
$name
\n";