[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.74,1.75

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

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,