#! /usr/bin/perl
use CGI qw/:standard/;

$dirname = param('name');
print header, start_html("Picture Gallery: $dirname");

$headertext = param('header');
print h2("$headertext");

die("could not open $dirname") unless (open(LS, "ls $dirname |"));
@lsout = <LS>;

foreach $name (@lsout) {
   chomp($name);
   if ( "$name" =~ /\.JPG/ || "$name" =~ /\.jpg/) {
	print "<a href=\"$dirname/$name\">", img {src=>"$dirname-Small/$name"} , "</a>\n";
   }
}

print end_html;