genraserverdb

Perl写的CA认证程序

## OpenCA - RAServer Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
##
##   File Name: genRAServerDB
##       Brief: Generate RAServer Database
## Description: Generate the RAServer's database via initDB in FORCE-MODE
##              NONE to prevent databasedestruction
##  Parameters: none

my $cmdName = "genRAServerDB";
my $baseDoc = getRequired ('genRAServerDBSheet');
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;