gencadb

Perl写的CA认证程序

## OpenCA - CA Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
##
##   File Name: genCADB
##       Brief: Generate CA Database
## Description: Generate the CA's database via initDB in FORCE-MODE
##  Parameters: none
## Cnf Keyword: dbmodule, gencadbsheet

my $cmdName = "genCADB";
my $baseDoc = getRequired ('genCADBSheet');
my $dbMod   = getRequired ('DBmodule');
my ( $page, $mode );

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

## If we cannot load the base Document, then error
configError("Cannot load $baseDoc.")
		 unless ( $page = $query->getFile("$baseDoc"));

if( $dbMod eq "DBI" ) {
	$mode = "NONE";
	if( $db->initDB (MODE => $mode ) != 0 ) {
		configError( "<BR>Error while initializing the CA Database." );
	}
} else {
	$mode = "FORCE";
	if( not $db->initDB( MODE=>$mode )) {
		configError( "<BR>Error while initializing the CA Database." );
	}

}

## Send out the page
print "$page";

1;