From: Rob H. <for...@us...> - 2002-01-18 19:46:46
|
Update of /cvsroot/sandweb/sandweb/bin In directory usw-pr-cvs1:/tmp/cvs-serv16247 Modified Files: sandweb.cgi Log Message: added a couple comments for upload subroutine. arg, the version of perl on my sun box is too old to get a newer version of CGI.pm, and I need to get some new libraries to build perl.. sigh.. I'll have to work on that for a while before I can get back to playing with upload/download Index: sandweb.cgi =================================================================== RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v retrieving revision 1.114 retrieving revision 1.115 diff -U2 -r1.114 -r1.115 --- sandweb.cgi 2002/01/18 19:39:39 1.114 +++ sandweb.cgi 2002/01/18 19:46:43 1.115 @@ -611,4 +611,6 @@ } elsif ( $file_command eq 'upload' ) { + # if a file has been uploaded, then + # grab it's filehandle my $filehandle = CGI::upload('filehandle'); if ( $filehandle) { |