delreq

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

## OpenCA - CA 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 over delReq!" );
        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();

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("Delete Request", "Certificate Request Successfully deleted.");

1;