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) {
|
