use CGI;
my $x = new CGI;
my $dir = $x->param('directory');
if ($dir =~ /[a-z]/){
opendir(DIR, $dir);
@files = readdir(DIR);
shift @files; shift @files;
closedir(DIR);
print "Content-type:text/html\n\n";
print "<ul>";
foreach $file (@files){
print "\n<li><a href=?action=delete&file=$file>$file</a>";
}
if ($action eq "delete"){
unlink($file);
print "File was removed";
}
kind of. You should do file tests on the files to see if it is a directory or a binary file etc, and then change the icon or link appropriately.
From Learning Perl:
Table 10.1: File Tests and Their Meanings[/url]
File Test
Meaning [/url]-r
File or directory is readable [/url]-w
File or directory is writable [/url]-x
File or directory is executable [/url]-o
File or directory is owned by user [/url]-R
File or directory is readable by real user, not effective user (differs from -r for setuid programs) [/url]-W
File or directory is writable by real user, not effective user (differs from -w for setuid programs) [/url]-X
File or directory is executable by real user, not effective user (differs from -x for setuid programs) [/url]-O
File or directory is owned by real user, not effective user (differs from -o for setuid programs) [/url]-e
File or directory exists [/url]-z
File exists and has zero size (directories are never empty) [/url]-s
File or directory exists and has nonzero size (the value is the size in bytes) [/url]-f
Entry is a plain file [/url]-d
Entry is a directory [/url]-l
Entry is a symlink [/url]-S
Entry is a socket [/url]-p
Entry is a named pipe (a "fifo") [/url]-b
Entry is a block-special file (like a mountable disk) [/url]-c
Entry is a character-special file (like an I/O device) [/url]-u
File or directory is setuid [/url]-g
File or directory is setgid [/url]-k
File or directory has the sticky bit set [/url]-t
isatty() on the filehandle is true [/url]-T
File is "text" [/url]-B
File is "binary" [/url]-M
Modification age in days [/url]-A
Access age in days [/url]-C
Inode-modification age in days
