#!/usr/bin/perl -w

#Darryl Barnhart
#darryl@dbarnhart.ca
#April 2009

use strict;
use CGI;

my $q=new CGI;
my @scriptExts=("cgi", "pl");
my @pageExts=("html", "htm");

sub printList {
    my $directory=$_[0];
    my $prefix=$_[1];
    my @exts=$_[2];
    
    opendir(DIR, $directory);
    my $links="";
    OUTER: while(my $filename=readdir(DIR)) {
        my $period=rindex($filename, ".", length($filename)-1);
        next if($period==-1);
        
        my $ext=substr($filename, $period+1);
        for(my $i=0; $i<@exts; $i++) {
            next OUTER if($ext ne $exts[$i]);
        }
        
        $links.=$q->a({-href=>$prefix.$filename}, "$filename").$q->br();
    }
    return print $q->p($links);
}


print $q->header("text/html");
print $q->start_html("Website Contents");

print $q->h1("HTML");
printList("../programming/perl", "../programming/perl/", @pageExts);

print $q->h1("Scripts");
printList(".", "", @scriptExts);

print $q->end_html();