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