#!/usr/local/bin/perl5 alarm(600); # This script was created 6/10/96 # Tripp Cox # Webmaster - MindSpring Enterprises Inc # # Mutter, grumble, moan # # Modified to strip out PC and Macintosh file paths - 7/10/96 # # Modified - Stephen Hait - shait@mindspring, 9/8/96 # Change code to write and display uploaded files without paths # Minor change to BGCOLOR; changed fffff to ffffff # # Modified - Pat Dalzell - 4/29/97 - to use getpwnam # $HOME = (getpwnam("wfp63998"))[7]; $filedir="$HOME/www/incoming/"; $fileurl="http://www.aspect-software.net/incoming/"; use CGI; $query = new CGI; print $query->header; print $query->start_html("File Upload Example"); print <

Public Exchange Area

Uploading only works with Netscape 2.0 and above

Select the browse button to choose a file to upload. EOF ; print $query->start_multipart_form; print "

Enter the file to upload

", $query->filefield('filename','',45),"
\n"; # filename from form text print $query->reset,$query->submit('submit','Upload'); print $query->endform; opendir(DIR, "$filedir"); # $filedir from constant above local(@files) = readdir(DIR); # load @files array from readdir(DIR) for (@files) { if (/\\/) { $oldfile = $_; # store current element in $oldfile @path = split (/\\/,$oldfile); # store all path elements in @path array $newfile = pop(@path); # store file name w/o path to $newfile # rename old filename with path info to just plain filename rename("$filedir"."$oldfile","$filedir"."$newfile"); } next if (/^\./); # bypass listing for current dir "." next if (/^index/); # or file starting with "index" print "$_

\n"; # output html link to file } if ($file = $query->param('filename')) { print "

\n"; $newfile = $file; if (/\\/, $file) { $oldfile = $file; @path = split(/\\/, $oldfile); $newfile = pop(@path); } print "

$newfile

\n"; open(OUTFILE, ">$filedir"."$newfile"); while (<$file>) { print OUTFILE "$_"; } close OUTFILE; } print < EOF ; print $query->end_html;