initdb

Perl写的CA认证程序

## Uses the default OpenCA::DB module

use OpenCA::DB;
if( ($ret = $dbconfig->loadCfg( "$DBCONFIG" )) == undef ) {
	print "Content-type: text/html\n\n";
	configError( "Error while Loading Configuration ($DBCONFIG)");
exit 100;
}

$dbDir     = getRequired( 'dbDir', $dbconfig);

$db = new OpenCA::DB( SHELL=>$cryptoShell, DB_DIR=>"$dbDir" );
if ( not $db ) {
	configError( "Cannot initialize OpenCA::DB class! ($dbDir)" );
	exit 1;
}

$versions->{DB}	= OpenCA::DB->VERSION;

1;