defaria.com/cvsadm/editsysuser.cgi

   1 #!/usr/bin/perl
   2 ################################################################################
   3 #
   4 # File:         cvsadm/editsysuser.cgi
   5 # Description:  Provides the edit sysuser screen for cvsadm
   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 $repository  = param "repository";
  23 my $Cvs_server  = ucfirst $cvs_server;
  24 my $userid      = param "userid";
  25 my $sysuser     = param "sysuser";
  26 my $euid        = cookie "CVSAdmUser";
  27
  28 sub Body {
  29   print start_table {
  30     -align              => "center",
  31     -bgcolor            => "white",
  32     -border             => 0,
  33     -cellspacing        => 0,
  34     -cellpadding        => 2,
  35     -width              => "35%"};
  36
  37   print start_form {
  38     -action     => "modifysysuser.cgi",
  39     -onSubmit   => "return validate_sysuser (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 hidden {
  60     -name       => "old_sysuser",
  61     -value      => $sysuser
  62   };
  63   print textfield {
  64     -class      => "inputfield",
  65     -size       => 20,
  66     -name       => "new_sysuser",
  67     -value      => $sysuser
  68   };
  69   print end_td;
  70   print start_td {
  71     -valign     => "middle",
  72     -align      => "center"
  73   };
  74   print submit {
  75     -name       => "Update SysUser"
  76   };
  77   print end_td;
  78   print end_Tr;
  79   print end_form;
  80
  81   print start_Tr;
  82   print start_td {
  83     -colspan    => 3,
  84     -valign     => "middle",
  85     -align      => "center"
  86   };
  87   print start_form {
  88     -action     => "admin.cgi"
  89   };
  90   print hidden {
  91     -name       => "cvs_server",
  92     -value      => $cvs_server
  93   };
  94   print hidden {
  95     -name       => "repository",
  96     -value      => $repository
  97   };
  98   print hidden {
  99     -name       => "userid",
 100     -value      => $userid
 101   };
 102   print submit {
 103     -name       => "Admin"
 104   };
 105   print end_td;
 106   print end_Tr;
 107   print end_form;
 108   print end_table;
 109 } # Body
 110
 111 $userid= Heading (
 112                   "setcookie",
 113                   defined $euid ? $euid : $userid,
 114                   "CVSAdm:$Cvs_server:$repository: Edit Group",
 115                   "CVS Administration for $Cvs_server:$repository",
 116                   "Edit SysUser"
 117           );
 118 my $is_cvsadm   = IsAdmin $cvs_server, $repository, $userid;
 119
 120 if (!$is_cvsadm) {
 121   DisplayError "You are not authorized to edit sysusers";
 122 } # if
 123
 124 Body;
 125 Footing;
 126
 127 exit;