preioexec

Perl写的CA认证程序

## OpenCA - RA Server Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
##
##   File Name: preIOExec
##       Brief: preIOExec command
## Description: execute the preIOExec command
##  Parameters:

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

## Get required parameters from the configuration file
my $command	= getRequired( 'PreIOExec' );

print startLogPage( "Pre IO Exec");
print addLogSection("Executing Pre IO Exec ... ");
print addLogLine ( "" );
print addPreLogLine ( "[ $command ]" );

if( $command ne "" ) {
	$ret = `$command 2>&1`;
}

if( $? != 0 ) {
	print addErrorLog( "Failed!","$ret" );
	closePage();
	exit;
} 
print addLogLine("Ok.");
print closeLogSection();

closePage();

1;