postioexec

Perl写的CA认证程序

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

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

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

print startLogPage( "Post IO Exec");
print addLogSection("Executing Post 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;