[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.70,1.71

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

Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv3300/bin

Modified Files:
	sandweb.cgi 
Log Message:
hooked create_file, create_folder and checkout to their respective
backends.

there seems to be a bug with location that makes create_file and
create_folder not very useful. checkout is basically a stub.



Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.70
retrieving revision 1.71
diff -U2 -r1.70 -r1.71
--- sandweb.cgi	2001/11/24 09:46:03	1.70
+++ sandweb.cgi	2001/11/24 11:34:45	1.71
@@ -330,10 +330,4 @@
 	my $file_type;
 
-	if ($filename) {
-		if (! -f "$location/$filename" ) {
-			set_error = "File does not exist!";
-			browse_menu();
-		}
-	}
 
 	my $file = SandWeb::File->new(
@@ -342,4 +336,10 @@
 	);
 	if ( $command eq 'info' ) {
+		if ($filename) {
+			if (! -f "$location/$filename" ) {
+				set_error = "File does not exist!";
+				browse_menu();
+			}
+		}
 		print header;
 		print '<pre>';
@@ -350,4 +350,10 @@
 	}
 	elsif ( $command eq 'view' ) {
+		if ($filename) {
+			if (! -f "$location/$filename" ) {
+				set_error = "File does not exist!";
+				browse_menu();
+			}
+		}
 		unless ( $file->get_file_type() eq "Text" ) {
 			$error = "This does not appear to be a text file.";
@@ -375,4 +381,10 @@
 	} 
 	elsif ( $command eq 'edit' ) {
+		if ($filename) {
+			if (! -f "$location/$filename" ) {
+				set_error = "File does not exist!";
+				browse_menu();
+			}
+		}
 		unless ( $file->get_file_type() eq "Text" ) {
 			$error = "This does not appear to be a text file.";
@@ -434,4 +446,12 @@
 		exit 0;
 	}
+	elsif ( $command eq 'created_file' ) {
+		$file->create_file();
+		browse_menu();
+        }
+	elsif ( $command eq 'created_folder' ) {
+		$file->create_folder();
+		browse_menu();
+        }
 	elsif ( $command eq 'upload' ) {
 		my $content = $ui->upload_file( 
@@ -450,8 +470,28 @@
 		exit 0;
 	}
+	elsif ( $command eq 'checkout' ) {
+		my $content = $ui->get_checkout( 
+			LOCATION => $location,
+			PROGNAME => $progname,
+		);
+		print header( -cookie => $cookie );
+		$ui->print_screen(
+			TITLE=> 'SandWeb : Checkout',
+			MENU_TITLE => 'SandWeb',
+			SUBMENU_TITLE => 'checkout file',
+			FOOTER => '',
+			CONTENT => $content,
+			ERROR => $error, 
+		);
+		exit 0;
+	}
 	else {
 		$error = "Invalid selection.";
 	}
 }
+
+# all VCS actions are caught by this subroutine, and dealt
+# with accordingly. The Repository object is created and used.
+#
 
 sub vcsaction {