## OpenCA - CA Command
## (c) 1998-2002 by Massimiliano Pala and OpenCA Group
##
##   File Name: genDB
##     Version: $Revision: 1.1 $
##       Brief: Generate Database
## Description: Generate the database of this hierarchy level
##                via initDB in FORCE-MODE
##  Parameters: none
## Cnf Keyword: dbmodule, gendbsheet

sub cmdGenDB {

	my $baseDoc = getRequired ('genDBSheet');
	my $dbMod   = getRequired ('DBmodule');
	my ( $page, $mode );

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

	if( $dbMod eq "DBI" ) {
    	##// don't force because you could destruct an existing DB
		$mode = "NONE";
		if( not $db->initDB (MODE => $mode )  ) {
			configError( "<BR>".gettext ("Error while initializing the database.") );
		}
	} else {
		$mode = "FORCE";
		if( not $db->initDB( MODE=>$mode )) {
			configError( "<BR>".gettext ("Error while initializing the database.") );
		}

	}

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

}

1;

