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;
+}
###############################################################################
|
