defaria.com/cvsadm/processaction.cgi

   1 #!/usr/bin/perl
   2 ################################################################################
   3 #
   4 # File:         cvsadm/processaction.cgi
   5 # Description:  Processes and action, could be deleteuser, deletegroup, etc.
   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      = param "userid";
  25 my $group       = param "group";
  26 my $sysuser     = param "sysuser";
  27 my $action      = param "action";
  28
  29 sub Body {
  30   my $error     = shift;
  31   my $msg       = shift;
  32   my $action    = shift;
  33
  34   print "<center>";
  35   if ($error ne 0) {
  36     DisplayError $msg, $error
  37   } else {
  38     DisplayMsg $msg;
  39   } # if
  40
  41   print start_form {
  42     -method     => "post",
  43     -action     => $action
  44   };
  45   print hidden {
  46     -name       => "cvs_server",
  47     -value      => $cvs_server
  48   };
  49   print hidden {
  50     -name       => "repository",
  51     -value      => $repository
  52   };
  53   print hidden {
  54     -name       => "userid",
  55     -value      => $userid
  56   };
  57   print submit {
  58     -name       => "submit",
  59     -value      => "OK"
  60   };
  61   print end_form;
  62   print "</center>";
  63 } # body
  64 my $msg = "Performing action: $action";
  65 my $error;
  66
  67 if ($action eq "Edit User") {
  68   print redirect "edituser.cgi?cvs_server=$cvs_server&repository=$repository&userid=$userid";
  69 } # if
  70
  71 if ($action eq "Edit Group") {
  72   print redirect "editgroup.cgi?cvs_server=$cvs_server&repository=$repository&group=$group";
  73 } # if
  74
  75 if ($action eq "Edit SysUser") {
  76   print redirect "editsysuser.cgi?cvs_server=$cvs_server&repository=$repository&sysuser=$sysuser";
  77 } # if
  78
  79 Heading (
  80          "getcookie",
  81          "",
  82          "CVSAdm:$Cvs_server:$repository: Process Action",
  83          "CVS Administration for $Cvs_server:$repository",
  84          $msg
  85 );
  86
  87 if ($action eq "Delete User") {
  88   $action = "admin.cgi";
  89   ($error, $msg) = DeleteUser $cvs_server, $repository, $userid;
  90 } elsif ($action eq "Delete Group") {
  91   $action = "admin.cgi";
  92   ($error, $msg) = DeleteGroup $cvs_server, $repository, $group;
  93 } elsif ($action eq "Delete SysUser") {
  94   $action = "admin.cgi";
  95   ($error, $msg) = DeleteSysUser $cvs_server, $repository, $sysuser;
  96 } elsif ($action eq "Add Group") {
  97   $action = "addgroup.cgi";
  98   ($error, $msg) = AddGroup $cvs_server, $repository, $group;
  99 } elsif ($action eq "Add SysUser") {
 100   $action = "addsysuser.cgi";
 101   ($error, $msg) = AddSysUser $cvs_server, $repository, $sysuser;
 102 } else {
 103   $error        = 1;
 104   $msg          = "Unknown action \"$action\"";
 105 } # if
 106
 107 Body $error, $msg, $action;
 108 Footing;
 109
 110 exit;