defaria.com/cvsadm/modifygroup.cgi

   1 #!/usr/bin/perl
   2 ################################################################################
   3 #
   4 # File:         cvsadm/modifygroup.cgi
   5 # Description:  Modify the groups file
   6 # Author:       Andrew@DeFaria.com
   7 # Created:      Thu Jul  7 16:54:07 PDT 2005
   8 # Modified:
   9 # Language:     Perl
  10 #
  11 # (c) Copyright 2005, Andrew@DeFaria.com, all rights reserved.
  12 #
  13 ################################################################################
  14 use strict;
  15 use warnings;
  16
  17 use CGI qw (:standard *table start_Tr end_Tr start_div end_div);
  18 use CGI::Carp "fatalsToBrowser";
  19 use CVSAdm;
  20
  21 my $cvs_server  = param "cvs_server";
  22 my $Cvs_server  = ucfirst $cvs_server;
  23 my $repository  = param "repository";
  24 my $old_group   = param "old_group";
  25 my $new_group   = param "new_group";
  26
  27 sub Body {
  28   if (UpdateGroup $cvs_server, $repository, $old_group, $new_group) {
  29     DisplayError "Unable to update " . $old_group
  30   } else {
  31     DisplayMsg "Group " . $new_group . " updated";
  32     print start_form {
  33       -method   => "post",
  34       -action   => "editgroup.cgi"};
  35     print hidden {
  36       -name     => "cvs_server",
  37       -value    => $cvs_server
  38     };
  39     print hidden {
  40       -name     => "repository",
  41       -value    => $repository
  42     };
  43     print "<center>", submit {-name => "submit", -value => "OK"}, "</center>";
  44     print end_form;
  45   } # if
  46 } # Body
  47
  48 Heading (
  49          "",
  50          "",
  51          "CVSAdm:$Cvs_server:$repository: Modify Group",
  52          "CVS Administration for $Cvs_server:$repository"
  53 );
  54 Body;
  55 Footing;
  56
  57 exit;