Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv27860/bin
Modified Files:
sandweb.cgi
Log Message:
sweet.. remove works.
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.94
retrieving revision 1.95
diff -U2 -r1.94 -r1.95
--- sandweb.cgi 2001/12/18 02:12:06 1.94
+++ sandweb.cgi 2001/12/18 02:18:53 1.95
@@ -136,4 +136,5 @@
cookie => $cookie,
file_command => param('file_command'),
+ filename => param('filename'),
location => param('location'),
);
@@ -535,4 +536,25 @@
);
exit 0;
+ }
+ elsif ( $file_command eq 'remove' ) {
+ if ($file) {
+ if ( $file->get_file_type() eq 'Directory' ) {
+ $file->remove_folder();
+ } else {
+ $file->remove_file();
+ }
+
+ browse_menu(
+ cookie => $cookie,
+ path => $location,
+ );
+ exit 0;
+ }
+ set_error("Please select file(s) or folder(s) to remove.");
+ browse_menu(
+ cookie => $cookie,
+ path => $location,
+ );
+
}
elsif ( $file_command eq 'upload' ) {
|
