removeitem

Perl写的CA认证程序

## OpenCA - CA Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
##
##   File Name: removeItem
##       Brief: Remove (delete) item from dB
## Description: Remove an Item from the dB
##  Parameters: dataType, key

my $cmdName = "removeItem";

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

my $dataType = $query->param( 'dataType' );
my $key      = $query->param( 'key' );

configError ( "Missing needed parametes (dataType and/or key)!")
			if ( ( not $dataType) or (not $key));

if ( not $db->deleteItem( DATATYPE=>$dataType, KEY=>$key ) ) {
	configError ("Error while removing Item from $dataType dB!");
}

success("Item Removed", "Item Removed Successfully from dB.");

1;