delreq

Perl写的CA认证程序

## OpenCA - RA Server Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
##
##   File Name: delReq
##       Brief: Delete a Request
## Description: Move a request to the DELETED_REQUEST dB
##  Parameters: key, dataType

if ( $cmd !~ /delReq/i ) {
        configError( "Wrong Command Usage ($cmd/importReqs)!" );
        exit 1;
}

## Get the parameters
my $key		= $query->param('key');
my $dataType	= $query->param('dataType');

my $req = $db->getItem( DATATYPE=>$dataType, KEY=>$key);
if ( not $req ) {
	configError ("No $key found in $dataType!");
	exit 1;
}

$req->getParsed()->{HEADER}->{DELETED} = $tools->getDate();
$req->getParsed()->{HEADER}->{OPERATOR} = 
				( $ENV{'SSL_CLIENT_M_SERIAL'} or "n/a" );

if ( not $db->updateStatus( DATATYPE=>$dataType, 
			NEWTYPE=>"DELETED_REQUEST", OBJECT=>$req)) {
	configError ("Error storing REQ to Deleted dB ($key)!");
	exit 1;
}

## Send Success Page
success("Certificate Request Successfully deleted.");

1;