Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv27496
Modified Files:
sandweb.cgi
Log Message:
oops, didn't test this enough apparently.. now file commands should
work properly
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.136
retrieving revision 1.137
diff -U2 -r1.136 -r1.137
--- sandweb.cgi 2002/01/29 04:17:20 1.136
+++ sandweb.cgi 2002/01/29 04:29:33 1.137
@@ -151,8 +151,14 @@
# called file manipulator
my @filename = ();
+ my $file_command;
+ if ( CGI::param('action_file') ) {
+ $file_command = CGI::param('action_file');
+ } else {
+ $file_command = CGI::param('file_command');
+ }
@filename = CGI::param('filename'),
file(
ck_auth => $ck_auth,
- => CGI::param('action_file'),
+ file_command => $file_command,
filename => \@filename,
location => CGI::param('location'),
|
