#!/usr/local/bin/perl
$date=`/bin/date +%m.%d.%H.%M`;
$DATE=`/bin/date`;
chop $DATE;
chop $date;
$pwd=`pwd`;
chop $pwd;
$pwd =~ s/.home2\/user\/wedaa\/public_html//;
$pwd =~ s/.export\/home\/wedaa\/public_html//;
print $pwd;
print "\n";;
if (-f "index.html"){rename ("index.html", "index.html.$date");}
open (INDEX, ">index.html");
print (INDEX "\n$pwd\n\n");
print (INDEX "$pwd
\n");
open (FIND, "find . -type f -print |");
while (){
chop;
if (/make.page/){next;}
if (/index.html/){next;}
$_ =~ s/\.\///;
print (INDEX "
\n");
print (INDEX "![\"[/~wedaa/$pwd/$_]\"](\"/~wedaa/$pwd/$_\")
\n");
print (INDEX "
\nDescription\n");
}
print (INDEX "
Created on $DATE by ericw
Last modified: NEVER
Send comments to: Eric Wedaa
Copyright 2001, 2002, 2003 by Eric Wedaa.
");
print (INDEX "\n\n");
close (INDEX);
system ("chmod a+r index.html");