$startdir="/www/intranet/images"; push(@dirs,$startdir); foreach $dir (@dirs) { opendir(DIR,"$dir") || die "opendir $dir failed"; @list = grep(!/^\.\.?$/,readdir(DIR)); closedir(DIR); foreach $item (@list) { $fullname = $dir."/".$item; # add the directory name to the file name if (-d $fullname) { push(@dirs,$fullname); print "$item
"; } } } print "Content-type:text/html\n\n"; &parse; print qq|

|; opendir(DIR,"$FORM{'pic'}") || die "opendir $dir failed"; @piclist = grep(!/^\.\.?$/,readdir(DIR)); closedir(DIR); print ""; while (@piclist) { my @row_entries= splice (@piclist, 0, 5); print ""; for (@row_entries) { print ""; } print ""; } sub parse { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value; } }
"; $FORM{'pic'} =~ s/\/www\/intranet//; print qq|
$_

|; print "