2 ################################################################################
4 # File: cvsadm/modifysysuser.cgi
5 # Description: Modify the sysusers file
6 # Author: Andrew@DeFaria.com
7 # Created: Thu Jul 7 16:54:07 PDT 2005
11 # (c) Copyright 2005, Andrew@DeFaria.com, all rights reserved.
13 ################################################################################
17 use CGI qw (:standard *table start_Tr end_Tr start_div end_div);
18 use CGI::Carp "fatalsToBrowser";
21 my $cvs_server = param "cvs_server";
22 my $Cvs_server = ucfirst $cvs_server;
23 my $repository = param "repository";
24 my $old_sysuser = param "old_sysuser";
25 my $new_sysuser = param "new_sysuser";
28 if (UpdateSysUser $cvs_server, $repository, $old_sysuser, $new_sysuser) {
29 DisplayError "Unable to update " . $old_sysuser
31 DisplayMsg "Sysuser " . $new_sysuser . " updated";
34 -action => "editsysuser.cgi"};
36 -name => "cvs_server",
40 -name => "repository",
43 print "<center>", submit {-name => "submit", -value => "OK"}, "</center>";
51 "CVSAdm:$Cvs_server:$repository: Modify Sysuser",
52 "CVS Administration for $Cvs_server:$repository"