[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.261,1.262

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

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,