[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.166,1.167

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

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

Modified Files:
	sandweb.cgi 
Log Message:
cut out *_menu


Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.166
retrieving revision 1.167
diff -U2 -r1.166 -r1.167
--- sandweb.cgi	13 Feb 2002 04:33:53 -0000	1.166
+++ sandweb.cgi	13 Feb 2002 05:36:12 -0000	1.167
@@ -68,5 +68,5 @@
 	# catch file-specific actions
 	if ( CGI::param('action_file') ) {
-		$action = 'file';
+		$action = 'browse_file_commit';
 	}
 
@@ -124,9 +124,9 @@
 					main_menu( ck_auth => $ck_auth );
 				}
-				elsif ( $action eq 'debug_menu' ) {
+				elsif ( $action eq 'debug' ) {
[...1661 lines suppressed...]
+			MENU => 'vcs_output',
+			LOCATION => $location,
+			FILENAME => "@filename",
+			PROGNAME => $progname,
+			VCS_OUTPUT => "@vcs_output",
+			VCS_ERROR => "@vcs_error",
+		);
+		print CGI::header( -cookie => $ck_auth );
+		$ui->print_screen(
+			TITLE=> "SandWeb : VCS $vcs_command",
+			MENU_TITLE => 'SandWeb',
+			SUBMENU_TITLE => "VCS $vcs_command",
+			FOOTER => '',
+			CONTENT => $content,
+			ERROR => $error,
+		);
+		exit 0;
+}
 
 ###############################################################################