defaria.com/cvsadm/deleteuser.cgi

   1 #!/usr/bin/perl
   2 ################################################################################
   3 #
   4 # File:         cvsadm/login.cgi
   5 # Description:  Provides login 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_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 $userid      = cookie "CVSAdmUser";
  25 my $errormsg    = param ("errormsg");
  26 my $logout      = param ("logout");
  27
  28 sub Body {
  29   print start_form {
  30     -method     => "post",
  31     -action     => "edituser.cgi",
  32     -onSubmit   => "return validate_login (this);"
  33   };
  34
  35   print start_table {
  36     -align              => "center",
  37     -bgcolor            => "white",
  38     -border             => 0,
  39     -cellspacing        => 0,
  40     -cellpadding        => 2,
  41     -width              => "40%"};
  42   print Tr ([
  43     td {-valign => "middle",
  44         -class  => "label"},
  45       "Username:",
  46     td {-valign => "middle"},
  47       textfield {-class => "inputfield",
  48                  -size  => 20,
  49                  -name  => "userid",
  50                  -value => $userid}
  51   ]);
  52   print Tr ([
  53     td {-valign => "middle",
  54         -class  => "label"},
  55       "Password:",
  56     td {-valign => "middle"},
  57       password_field {-class    => "inputfield",
  58                       -size     => 20,
  59                       -name     => "password"}
  60   ]);
  61   print Tr [
  62     td ({-colspan       => 2,
  63          -align         => "center"},
  64       submit (-name     => "submit",
  65               -value    => "Login"))
  66   ];
  67
  68   if (defined $errormsg) {
  69     print Tr [
  70       td {-align        => "center",
  71           -colspan      => 2,
  72           -class        => "error"},
  73             $errormsg
  74     ];
  75   } # if
  76
  77   print end_table;
  78   print end_form;
  79 } # Body
  80
  81 if (defined $userid && !defined $logout) {
  82   print redirect "edituser.cgi";
  83   exit;
  84 } # if
  85
  86 $userid = Heading (
  87                    "getcookie",
  88                    "",
  89                    "CVSAdm:$Cvs_server:$repository: Delete User",
  90                    "CVS Administration for $Cvs_server:$repository",
  91                    "Delete User"
  92                   );
  93
  94 my $errmsg = Sanity;
  95
  96 if (defined $errmsg) {
  97   DisplayError $errmsg;
  98 } # if
  99
 100 Body;
 101 Footing;
 102
 103 exit;