[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.136,1.137

[Rob H. <for...@us...>]

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'),