defaria.com/cvsadm/login.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_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      = cookie "CVSAdmUser";
  25 my $errormsg    = param "errormsg";
  26 my $logout      = param "logout";
  27 my $action      = defined $logout ? "unsetcookie" : "getcookie";
  28
  29 sub Body {
  30   print "<center>";
  31   print start_form {
  32     -action     => "select_repository.cgi"
  33   };
  34   print hidden {
  35     -name       => "cvs_server",
  36     -value      => $cvs_server
  37   };
  38   print submit {
  39     -name       => "submit",
  40     -value      => "<- Select Repository"
  41   };
  42   print end_form;
  43   print "</center>";
  44
  45   print start_table {
  46     -align              => "center",
  47     -bgcolor            => "white",
  48     -border             => 0,
  49     -cellspacing        => 0,
  50     -cellpadding        => 2,
  51     -width              => "40%"};
  52   print start_form {
  53     -action     => "edituser.cgi",
  54     -onSubmit   => "return validate_login (this);"
  55   };
  56   print hidden {
  57     -name       => "cvs_server",
  58     -value      => $cvs_server
  59   };
  60   print hidden {
  61     -name       => "repository",
  62     -value      => $repository
  63   };
  64   print start_Tr;
  65   print start_td {
  66     -valign     => "middle",
  67     -class      => "label"
  68   };
  69   print "Username:";
  70   print end_td;
  71   print start_td {
  72     -valign     => "middle"
  73   };
  74   print textfield {
  75     -class      => "inputfield",
  76     -size       => 20,
  77     -name       => "userid",
  78     -value      => $userid
  79   };
  80   print end_td;
  81   print end_Tr;
  82
  83   print start_Tr;
  84   print start_td {
  85     -valign     => "middle",
  86     -class      => "label"
  87   };
  88   print "Password:";
  89   print end_td;
  90   print start_td {
  91     -valign     => "middle"
  92   };
  93   print password_field {
  94     -class      => "inputfield",
  95     -size       => 20,
  96     -name       => "password"
  97   };
  98   print end_td;
  99   print end_Tr;
 100
 101   print start_Tr;
 102   print start_td {
 103     -colspan    => 2,
 104     -align      => "center"
 105   };
 106   print submit {
 107     -name       => "submit",
 108     -value      => "Login"
 109   };
 110   print end_td;
 111   print end_form;
 112   print end_Tr;
 113
 114   if (defined $errormsg) {
 115     print Tr [
 116       td {-align        => "center",
 117           -colspan      => 2,
 118           -class        => "error"},
 119             $errormsg
 120     ];
 121   } # if
 122
 123   print end_table;
 124 } # Body
 125
 126 $userid = Heading (
 127                    $action,
 128                    $userid,
 129                    "CVSAdm:$Cvs_server:$repository: Login",
 130                    "CVS Administration for $Cvs_server:$repository",
 131                    "Please login"
 132                   );
 133 Body;
 134 Footing;
 135
 136 exit;