defaria.com/cvsadm/addgroup.cgi

   1 #!/usr/bin/perl
   2 ################################################################################
   3 #
   4 # File:         cvsadm/addgroup.cgi
   5 # Description:  Add a new group
   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_td end_td 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 $group       = param "group";
  25 my $userid      = param "userid";
  26
  27 sub Body {
  28   print start_table {
  29     -align              => "center",
  30     -bgcolor            => "white",
  31     -border             => 0,
  32     -cellspacing        => 0,
  33     -cellpadding        => 2,
  34     -width              => "35%"
  35   };
  36
  37   print start_form {
  38     -action     => "processaction.cgi",
  39     -onSubmit   => "return validate_group (this);"
  40   };
  41   print hidden {
  42     -name       => "cvs_server",
  43     -value      => $cvs_server
  44   };
  45   print hidden {
  46     -name       => "repository",
  47     -value      => $repository
  48   };
  49   print start_Tr;
  50   print start_td {
  51     -valign     => "middle",
  52     -class      => "label"
  53   };
  54   print "Group:";
  55   print end_td;
  56   print start_td {
  57     -valign     => "middle"
  58   };
  59   print textfield {
  60     -class      => "inputfield",
  61     -size       => 20,
  62     -name       => "group",
  63     -value      => $group
  64   };
  65   print start_td {
  66     -align      => "center"
  67   };
  68   print submit {
  69     -name       => "action",
  70     -value      => "Add Group"
  71   };
  72   print end_td;
  73   print end_form;
  74
  75   print start_form {
  76     -action     => "admin.cgi",
  77   };
  78   print hidden {
  79     -name       => "cvs_server",
  80     -value      => $cvs_server
  81   };
  82   print hidden {
  83     -name       => "repository",
  84     -value      => $repository
  85   };
  86   print start_Tr;
  87   print start_td {
  88     -colspan    => 3,
  89     -align      => "center"
  90   };
  91   print submit {
  92     -name       => "Admin",
  93   };
  94   print end_td;
  95   print end_Tr;
  96   print end_table;
  97 } # Body
  98
  99 $userid = Heading (
 100                    "getcookie",
 101                    "",
 102                    "CVSAdm:$Cvs_server:$repository: Add Group",
 103                    "CVS Administration for $Cvs_server:$repository",
 104                    "Add Group"
 105                    );
 106
 107 if (!IsAdmin ($cvs_server, $repository, $userid)) {
 108   DisplayError "You are not authorized to add groups";
 109 } # if
 110
 111 Body;
 112 Footing;
 113
 114 exit;