#### # Delete File #### sub delete_file { my $query; # check for tainted data my $files = $q->param( "files") || error( $q, "couldn't read File values"); $files =~ /^([\/.\w.]+)$/; # The "untainted" file is now in $1 $files = $1; die "Bad filename" unless $files; print< Upload - File Deleted

File(s) Have Been Deleted:
HTML foreach ($q->param("files")){ unlink($_); } print<

HTML } #### end of delete file #### # Get File List #### sub get_file_list { my $drt = $q->param( "drt") || error( $q, "couldn't get drt value"); $drt =~ /^([\w.]+)$/; # The "untainted" file is now in $1 $drt = $1; die "Bad filename for value drt" unless $drt; #opendir(DIR,$dfiles); #my @files = grep { $_ ne '.' && $_ ne '..' } readdir(DIR); #closedir(DIR); my @files=glob("/Library/WebServer/Documents/userpages/$drt/*.*"); print< Upload - Delete Files

List of Files:
HTML foreach (@files) { print "
Delete this File: $_ \n"; } print<
HTML } ### end of get file list