Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv29108/bin
Modified Files:
sandweb.cgi
Log Message:
file upload now works from the file menu.
it probably does NOT work from the browse menu (yet).
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.110
retrieving revision 1.111
diff -U2 -r1.110 -r1.111
--- sandweb.cgi 2002/01/02 22:35:30 1.110
+++ sandweb.cgi 2002/01/18 07:37:33 1.111
@@ -601,5 +601,5 @@
print header( -cookie => $cookie );
$ui->print_screen(
- TITLE=> 'SandWeb : Create Folder',
+ TITLE => 'SandWeb : Create Folder',
MENU_TITLE => 'SandWeb',
SUBMENU_TITLE => 'create folder',
@@ -611,8 +611,16 @@
}
elsif ( $file_command eq 'upload' ) {
+ my $filehandle = upload('filehandle');
+ if ( $filehandle) {
+ $filename =~ s/.*[\/\\](.*)/$1/;
+ $file->upload(
+ filehandle => $filehandle,
+ );
+ }
my $content = $ui->get_menu(
MENU => 'upload_file',
LOCATION => $location,
PROGNAME => $progname,
+ FILENAME => $filename,
FULLPATH => "$users_dir/$username/$location",
);
|
