#!usr/bin/perl

# Eric's directory listing script
# To generate lovely html output

my $directory = $ARGV[0];

if ($directory == "") {
	$directory = ".";
}

print $directory;

# Read the stats file
opendir DIRHANDLE, $directory;
my @files = readdir DIRHANDLE;
closedir DIRHANDLE;

open OUTFILE, ">output.txt";

foreach (@files) {

	print OUTFILE '<a href="http://www.nv.doe.gov/news&pubs/photos&films/Images/photolib/8X10/';
	
	my $realExt = $_;
	my $subExt = $_;
	$subExt =~ s/gif/jpg/g;
	
	print OUTFILE $subExt;
	print OUTFILE '">';

	print OUTFILE '<img src="';
	print OUTFILE $realExt;
	print OUTFILE '" border=0>';
	print OUTFILE "";
	
	print OUTFILE "</a>\n";

}