#!/usr/bin/perl
print "Content-Type: text/html\n\n";
$imgdir = "images/mattsparty/davebar";
$based = "/home/dave/public_html";
$webd = "\~dave";
print "\n";
print "\n";
opendir(IMGD,"$based/$imgdir");
print "";
$count=0;
for(readdir(IMGD)) {
next if(/^th_.*\.jpg$|^med_.*\.jpg$/i);
next unless(/\.jpg/i);
if(!($count % 5)) { print "\n"; }
print "![](\"/$webd/$imgdir/th_$_\") ";
print "
\nFull Image | \n";
$count++;
}
print "
\n";
closedir IMGD;
print "\n\n";