#!/usr/bin/perl # CGI-Header print "Content-type: text/html\n\n"; # CGI-Body $htmlbegin = "\n" . "Directory Listing\n" . "\n"; $htmlend = "\n\n"; # HTML-Textheader print $htmlbegin; print "Directory Listing\n"; #print `pwd`; print "

\n"; $dir=`pwd`; chop($dir); opendir(THUMB, $dir) or die "Konnte Verzeichnis nicht oeffnen\n"; while( $Picture = readdir THUMB) {; next if $Picture =~ /^\.\.?$/; # . und .. aussortieren if (($Picture ne 'listit.cgi') && ($Picture ne 'index.html') && ($Picture ne 'login.cgi')) {$ausgabe = "$Picture
\n"; print $ausgabe;} } print $htmlend;