#!/usr/bin/perl -w
#######################################################
#
## verzeichnis.pl v1.01 26.04.2000
#
# von elmar.rothe@gmx.de
#
# kostenlose Freeware
#
# darf kostenlos kopiert und weitergegeben werden
# solange diese Copyright-Notiz erhalten bleibt.
#
# Bei Fragen: e-mail an mich.
#
# Ich übernehme selbstverständlich keinerlei
# Verantwortung für dieses Script !!!
#
# Nutzung auf eigene Gefahr.
#
########################################################
#### Hier sind keine Änderungen notwendig ! ############
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@paare = split(/&/, $buffer);
foreach $pair (@paare) {
($name, $value) = split(/=/, $pair);
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$verzeichnis = "$FORM{'verzeichnis'}" ;
if ($verzeichnis ne ""){
@list = `ls -Al $verzeichnis`
}
print "Content-type: text/html\n\n";
print"";
print <
FORM
print "Verzeichnisinhalt von: $verzeichnis :
";
print"";
foreach $dateiangaben(@list){
split (" ", $dateiangaben);
print <
| $_[8] |
$_[0] |
$_[2] |
$_[3] |
$_[4] |
$_[6].$_[5] $_[7] |
TEXT
}
print "
";
print <verzeichnis.pl
kostenlose Freeware - weitere kostenlose
Scripts sind erhältlich !
FOOT