#### # Upload HTML #### sub upload_html { print< Upload

Please choose a file to upload:
Name of Song:

HTML chdir "/Library/WebServer/Documents/userpages" or die "Can't set path for dir: $!\n"; # make directory for user # first check to see if it exists unless (-e $page) { mkdir("$page", 0777) || die "cannot make directory for $page: $!"; } } #### end of upload html #### # Get File List #### sub get_file_list { # set path chdir "/Library/WebServer/Documents/userpages/$page" or die "Can't set path for dir: $!\n"; my $url = "/userpages/$page/"; my @files=glob("*.*"); print< Upload - Delete Files

List of Files:
HTML foreach (@files) { print "
Delete this File: $_ \n"; } foreach (@files) { print "
View $_\n"; } print<
HTML } ### end of get file list #### # Delete File #### sub delete_file { # set path chdir "/Library/WebServer/Documents/userpages/$page" or die "Can't set path for dir: $!\n"; $page =~ /^([\w.]+)$/; # The "untainted" file is now in $1 $page = $1; die "Bad filename for value page" unless $page; # 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 ($files){ unlink($_); } print<

HTML }