Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv5646/bin
Modified Files:
sandweb.cgi
Log Message:
* tag implemented, also cleaned up some stuff w/ commit
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.261
retrieving revision 1.262
diff -U2 -r1.261 -r1.262
--- sandweb.cgi 11 Mar 2002 03:28:03 -0000 1.261
+++ sandweb.cgi 11 Mar 2002 05:19:51 -0000 1.262
@@ -1779,4 +1779,5 @@
my $location = $args{'location'};
my $message = CGI::param('message');
+ my $name = CGI::param('name');
my $username = $auth->get_username();
my $template_dir = $config->{'paths'}->{'template_dir'};
@@ -1865,5 +1866,53 @@
MENU_TITLE => 'SandWeb',
SUBMENU_TITLE => 'commit file(s)',
- PREVIOUS_URL => $prev_url,
+ FOOTER => '',
+ CONTENT => $content,
+ MESSAGE => $message,
+ );
+ exit 0;
+ }
+ if ( $vcs_command eq 'tag' ) {
+ if ($name) {
+ foreach my $file (@filename) {
+ %return = $repository->tag(
+ file => "$file",
+ name => "$name",
+ );
+ push (@vcs_output, "$return{'output'}\n");
+ push (@vcs_error, "$return{'error'}\n");
+ }
+
+ my $content = $ui->get_menu(
+ MENU => 'vcs_output',
+ LOCATION => $location,
+ FILENAME => @filename,
+ PROGNAME => $progname,
+ VCS_OUTPUT => join('', @vcs_output),
+ VCS_ERROR => join('', @vcs_error),
+ );
+
+ print CGI::header( -cookie => $ck_auth );
+ $ui->print_popup(
+ TITLE=> "SandWeb : VCS $vcs_command",
+ MENU_TITLE => 'SandWeb',
+ SUBMENU_TITLE => "VCS $vcs_command",
+ FOOTER => '',
+ CONTENT => $content,
+ MESSAGE => $message,
+ );
+ }
+ my $content = $ui->get_menu(
+ MENU => 'tag',
+ LOCATION => $location,
+ MODULE_NAME => $module_name,
+ REPO_NAME => $repo_name,
+ PROGNAME => $progname,
+ FILENAME => "@filename",
+ );
+ print CGI::header( -cookie => $ck_auth );
+ $ui->print_popup(
+ TITLE=> 'SandWeb : tag file(s)',
+ MENU_TITLE => 'SandWeb',
+ SUBMENU_TITLE => 'tag file(s)',
FOOTER => '',
CONTENT => $content,
|
