Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv5455/bin
Modified Files:
sandweb.cgi
Log Message:
fixed annoying bug that made all new files/folders be created in the
top-level sandbox dir. create_file/folder now work as expected.
However, they don't warn you if there's a problem. we have to
make File.pm actually generate error codes, and set the set_error
accordingly.
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.77
retrieving revision 1.78
diff -U2 -r1.77 -r1.78
--- sandweb.cgi 2001/11/27 00:47:17 1.77
+++ sandweb.cgi 2001/11/27 01:40:48 1.78
@@ -337,5 +337,5 @@
my $file = SandWeb::File->new(
'filename' => $filename,
- 'location' => "$users_dir/$username",
+ 'location' => "$users_dir/$username$location",
);
if ( $command eq 'info' ) {
|
