#!/usr/local/bin/perl
require "weblib.lib";
&getparams(0,"dir","subdir");
$param{dir}="" if $param{dir}=~/\./;
$param{subdir}="" if $param{subdir}=~/\./;
$param{dir}="thumb" unless $param{dir};
$url="/trc/pictures";
$dir="/home/todd/www/pictures";
$dir.="/$param{dir}" if $param{dir};
$url.="/$param{dir}" if $param{dir};
$dir.="/$param{subdir}" if $param{subdir};
$url.="/$param{subdir}" if $param{dir};
$title=$dir =~ /thumb/?"Thumbnails":"Pictures";
&htmlopen($title);
if(-d $dir){
	opendir(DIR,$dir);
	while($f=readdir(DIR)){
		print qq{<img src="$url/$f">\n} if $f=~/\.(jpe?g|gif|png)$/i;
	}
}
else{print "Sorry, that picture collection is not available";}
&htmlclose;