## 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: nonemy $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 errorconfigError("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 pageprint "$page";1;