[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.344,1.345

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

Update of /cvsroot/sandweb/sandweb/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv3067/bin

Modified Files:
	sandweb.cgi 
Log Message:
* made vcs edit subroutine exit, so it doesn't print the page twice
* made "watch" work, but it's a complex command and needs it's own
  menu.
* disabled "watch", "watchers", "import"


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.344
retrieving revision 1.345
diff -U2 -r1.344 -r1.345
--- sandweb.cgi	2 Feb 2003 23:39:59 -0000	1.344
+++ sandweb.cgi	3 Feb 2003 20:56:00 -0000	1.345
@@ -2697,4 +2697,6 @@
 				MESSAGE => $message,
 			);
+
+			exit;
 		} else {
 			my $message = "vcs $vcs_command on @filename";
@@ -2718,4 +2720,21 @@
 				MESSAGE => $message,
 			);
+
+			exit;
+		}
+	} elsif ( $vcs_command eq 'watch' ) {
+		# this is where the Repository object is used
+		# can't give the leading / to the VCS
+		$location =~ s/\///;
+
+		foreach my $file (@filename) {
+			%return = $repository->$vcs_command( 
+				set => 1,
+				notify => 1,
+				file => "$file",
+				%params,
+			);
+			push (@vcs_output, "$return{'output'}\n");
+			push (@vcs_error, "$return{'error'}\n");
 		}
 	} else {
@@ -2753,4 +2772,5 @@
 		MESSAGE => $message,
 	);
+
 	exit 0;
 }