#!/usr/local/bin/perl $pos=0; $upname=""; $count=0; $imgpath="http://www.tripletransam.com/mfba/2005/082605/batch1/"; opendir(curdir,"./batch1/")||die("Cannot open Directory!"); @names=readdir(curdir); print "content-type: text/html", "\n\n"; print "MFBA lapping 2005 BATCH #1\n"; print "
\n"; print "
MFBA lapping 2005 BATCH #1\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"; print "

Back to Main Index

\n"; print "\n";