#!/usr/bin/perl

use warnings;
use strict;

##
## CGI to render a nice web page of files in current directory as nice
## clickable links.  Flow of logic is straight down.
##

##
## Change these values if you must.
##
my $thisScriptName = "index.cgi";

#
# Copy this script into a text file and make world readable.  This allows
# others to view this script.
#
system "cp $thisScriptName index.txt" ;
chmod 0644, "index.txt";

#
# HTML header and simple message goes here.
#
print <<'~';
Content-type: text/html

A Bunch of ummmm LZW (and maybe gif) papers.<hr/>
~

#
# For each filename in current directory, emit an html link to that file
# Skips the name of this script, "." and ".." for security purposes.
#
opendir DIR, ".";

foreach (sort readdir DIR) {
	/^(\.|$thisScriptName$)/ and next;
	print -d $_ ? qq[<a href="$_">/$_/</a><br/>\n]
	            : qq[<a href="$_">$_</a><br/>\n]
}