sub make_index
{
open (IND,">$INDEX") || die "Kann $INDEX nicht anlegen!\n";
print IND "\n";
print IND "Gesamtindex\n";
print IND "\n";
print IND "\n";
print IND "Ueberschrift
\n";
$searchpath = $HTMLPATH . "*.html";
@files = glob($searchpath);
foreach $eintrag1 (@files)
{
$eintrag1 =~ s!^.*/!!;
if ($eintrag1 ne 'index.html')
{
$eintrag2 = $eintrag1;
$eintrag2 =~ s/.html//;
print IND "$eintrag2
\n";
}
}
print IND "\n";
print IND "\n";
close(IND);
}