initdbi

Perl写的CA认证程序

use OpenCA::DBI;
if( ($ret = $dbiconfig->loadCfg( "$DBICONFIG" )) == undef ) {
	print "Content-type: text/html\n\n";
	configError( "Error while Loading Configuration ($DBICONFIG)");
exit 100;
}
$db = new OpenCA::DBI (
	SHELL          => $cryptoShell,
	mode           => $dbiconfig->getParam ('mode')->{VALUES}->[0],
	failsafe       => $dbiconfig->getParam ('failsafe')->{VALUES}->[0],
	second_chance  => $dbiconfig->getParam ('second_chance')->{VALUES}->[0],
	logsecurity    => $dbiconfig->getParam ('logsecurity')->{VALUES}->[0],
	logperformance => $dbiconfig->getParam ('logperformance')->{VALUES}->[0],
	SignLog        => $dbiconfig->getParam ('SignLog')->{VALUES}->[0],
	MESSAGEKEY     => $dbiconfig->getParam ('MESSAGEKEY')->{VALUES}->[0],
	MESSAGELENGTH  => $dbiconfig->getParam ('MESSAGELENGTH')->{VALUES}->[0],
	CERT_FILE      => $dbiconfig->getParam ('CERT_FILE')->{VALUES}->[0],
	KEY_FILE       => $dbiconfig->getParam ('KEY_FILE')->{VALUES}->[0],
	PASSWD         => $dbiconfig->getParam ('PASSWD')->{VALUES}->[0],
	DEBUG          => $dbiconfig->getParam ('DEBUG')->{VALUES}->[0],
	remoteType     => $dbiconfig->getParam ('remoteType')->{VALUES}->[0],
	remoteName     => $dbiconfig->getParam ('remoteName')->{VALUES}->[0],
	remoteHost     => $dbiconfig->getParam ('remoteHost')->{VALUES}->[0],
	remotePort     => $dbiconfig->getParam ('remotePort')->{VALUES}->[0],
	remoteUser     => $dbiconfig->getParam ('remoteUser')->{VALUES}->[0],
	remotePasswd   => $dbiconfig->getParam ('remotePasswd')->{VALUES}->[0],
	localType      => $dbiconfig->getParam ('localType')->{VALUES}->[0],
	localName      => $dbiconfig->getParam ('localName')->{VALUES}->[0],
	localHost      => $dbiconfig->getParam ('localHost')->{VALUES}->[0],
	localPort      => $dbiconfig->getParam ('localPort')->{VALUES}->[0],
	localUser      => $dbiconfig->getParam ('localUser')->{VALUES}->[0],
	localPasswd    => $dbiconfig->getParam ('localPasswd')->{VALUES}->[0]
);

if ( not $db ) {
	configError( "Cannot initialize OpenCA::DBI class! ($dbDir)" );
	exit 1;
}

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

1;