#!/usr/local/bin/perl
use CGI qw/:standard/;
print header();
$| = 1;
opendir(THISDIR, ".") or die "$!";
while ($_ = readdir THISDIR) {
	if(-T $_) {
		if($_ !~ /listposts.fgi/) {
			print qq(<A HREF="$_">$_</a><BR>\n);
		}
	}
}

#@allfiles = grep !/^\./, readdir THISDIR;
#$| = 1;
#print header();
#foreach $i (@allfiles) {
#	if($i !~ /list_posts.cgi2/) {
#	print qq(<A HREF="$i">$i</a><BR>\n);
#	}
#}
exit(0);