removereq

Perl写的CA认证程序

## OpenCA - RA Server Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
##
##   File Name: removeReq
##       Brief: Remove a Request
## Description: Remove a request from the dB
##  Parameters: key, dataType

if ( $cmd !~ /removeReq/i ) {
        configError( "Wrong Command Usage ($cmd/removeReqs)!" );
        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;
}

if ( not $db->deleteItem( DATATYPE=>$dataType, KEY=>$key) ) {
	configError ("Error deleting request from dB ($key)!");
	exit 1;
}

## Send Success Page
success("Delete Successful",
	"Certificate Request Successfully removed from the DBMS.");

1;