delete_crr

来自「Perl写的CA认证程序」· 代码 · 共 62 行

#!/usr/bin/perl

## Certificate Revocation Request
## (c) 1999 by The OpenCA Team
## All Rights Reserved
##
## Project Information:
##
## 	Current Version ..................... $ver: 0.031
##      Project Started on .................. 15/02/2000
##      Last Modified on .................... 19/02/2000
##      Project Closed on ................... n/a
##
## Original program by Miguel Armas <[e-mail]>. Modified for
## new release by Massimiliano Pala <[e-mail]>.

## If you want to contact me (the author) please use the e-mail
## addresses listed below. Do not esitate in reporting bugs, enhancement
## or anything seems useful in developing this software:
##
##	Miguel Armas <[e-mail]>
##

## Thank you for using this software, and remember that Open Projects
## are the future of mankind. Do not sleep, partecipate to world wide
## efforts to make life easier for all!

## OpenCA - Public Web-Gateway Command
## (c) 1998-2001 by OpenCA Group
##
##   File Name: submit_ask4rev
##       Brief: submit the CRR
## Description: submit the CRR finally
##  Parameters:
 
if ( $cmd !~ /delete_crr/i ) {
        configError( "Wrong Command Usage ($cmd over delete_crr)!" );
        exit 1;
}

# Read query parameters
my $key = $query->param ('key');

print "Cannot store CRR in database<br>\n"
$db->updateStatus ( DATATYPE => "PENDING_CRR",
                    NEWTYPE  => "DELETED_CRR",
                    OBJECT   => $db->getItem ( DATATYPE => "PENDING_CRR",
                                               KEY      => $key )
                  );

if ( getRequired ('RBAC') =~ /^(YES|ON)$/i ) {
  if (not grantAccess (CMD    => listReqs,
                       MODULE => "RAServer",
                       DN     => $query->param ('SSL_CLIENT_DN') )
     ) {
     configError ("Access Denied for RAServer_listReqs!");
     exit 100;
  }
}
require "cmds/$cmd";
exit $?;