rebuildchain

Perl写的CA认证程序

## OpenCA - RA Server Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
##
##   File Name: rebuildChain
##       Brief: Rebuilds Certificate Chain
## Description: Rebuilds CAs Certificate Chain for proper Chain Verification
##  Parameters: 
## Cfg KeyWord: RAServerDir, MakePath

if ( $cmd !~ /rebuildChain/i ) {
        configError( "Wrong Command Usage ($cmd/rebuildChain)!" );
        exit 1;
}

my $serverDir   = getRequired( 'ServerDir' );
my $makeCmd     = getRequired( 'MakePath' );

my ( $ret, $command );
if ( not chdir( "${serverDir}/chain" )) {
	configError("Can not change directory to ${serverDir}/chain");
	exit 1;
}

$ret = `$makeCmd clean ; $makeCmd 2>&1`;
if( $? != 0 ) {
	generalError("Error while rebuilding the CA chain in " .
		"${serverDir}/chain!<BR><BR><FONT SIZE=-1>$cmd<BR>$ret" .
		"</FONT><BR>", "$?" );
} else {
	success ( "Succesful","CA Certificates chain successfully " .
		      "rebuilt.<BR><BR><FONT SIZE=-1 COLOR=\"#336699\">" .
			"<OL>$ret</OL></FONT><BR>" );
};

1;