Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv3210/bin
Modified Files:
sandweb.cgi
Log Message:
implemented set_error correctly, also am getting complaints in a newer
version of perl about mkdir requiring the second arg ( "mode" ).. weird.
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.74
retrieving revision 1.75
diff -U2 -r1.74 -r1.75
--- sandweb.cgi 2001/11/24 19:05:33 1.74
+++ sandweb.cgi 2001/11/26 18:14:23 1.75
@@ -342,5 +342,5 @@
if ($filename) {
if (! -f "$users_dir/$username/$filename" ) {
- set_error = "File does not exist!";
+ set_error("File does not exist!");
browse_menu();
}
@@ -356,10 +356,10 @@
if ($filename) {
if (! -f "$users_dir/$username/$filename" ) {
- set_error = "File does not exist!";
+ set_error("File does not exist!");
browse_menu();
}
}
unless ( $file->get_file_type() eq "Binary" ) {
- $error = "This does not appear to be a text file.";
+ set_error("This does not appear to be a text file.");
}
my @tmp;
@@ -387,10 +387,10 @@
if ($filename) {
if (! -f "$users_dir/$username/$filename" ) {
- set_error = "File does not exist!";
+ set_error("File does not exist!");
browse_menu();
}
}
if ( $file->get_file_type() eq "Binary" ) {
- $error = "This does not appear to be a text file.";
+ set_error("This does not appear to be a text file.");
}
my @tmp;
@@ -517,5 +517,5 @@
}
else {
- $error = "Invalid selection: $command";
+ set_error("Invalid selection: $command");
browse_menu(
cookie => $cookie,
|
