#!/usr/bin/perl
# Title : htmlindex.pl
# Function : create index page of html
# Author : Pascal Schiks (C) 2003 gnu/gpl
#
use strict;
#
# Configuration
my $DIRPATH = ".";
my $INDEX = "index.html";
my $INDEXTITLE = "HTML index";
# variabeles
my $FILENAME;
my $count=0;
# Program start
if(opendir DIRECTORY, $DIRPATH)
{
if(open INDEX,">$INDEX")
{
print INDEX "\n\n$INDEXTITLE\n\n\n"; print INDEX "$INDEXTITLE
\n";
while($FILENAME=readdir(DIRECTORY))
{
# extension filter
$_ = $FILENAME;
if(((m/.html$/)||(m/.HTML$/)||(m/.htm$/) ||
(m/.HTM$/)||(m/.txt$/)||(m/.TXT$/)) &! m/^$INDEX$/)
{
print INDEX "$FILENAME";
$count++;
}
}
print INDEX "
\n
\n\n\n";
close(INDEX);
print "$count pages found\n";
}
else
{
print "Error, could not create $INDEX\n";
}
closedir(DIRECTORY);
}
else
{
print "Error, could not open directory\n";
}