Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv26931/bin
Modified Files:
sandweb.cgi
Log Message:
better debugging and error reporting when a file can't be removed by
the user.
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.107
retrieving revision 1.108
diff -U2 -r1.107 -r1.108
--- sandweb.cgi 2001/12/21 08:29:02 1.107
+++ sandweb.cgi 2001/12/22 22:01:54 1.108
@@ -426,5 +426,9 @@
$file->remove_folder();
} else {
- $file->remove_file();
+ if ( $file->remove_file() ) {
+ set_error("$filename removed.");
+ } else {
+ set_error("Cannot remove $filename.");
+ }
}
}
|
