gencareq

Perl写的CA认证程序

## OpenCA - CA Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
##
##   File Name: genCAReq
##       Brief: Generate CA Request
## Description: Generate CA's certificate Request
##  Parameters: email, cn, ou, o, c, pwd

my $cmdName = "genCAReq";

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

## This command will generate the $openca/ca_req.pem
## that should be exported to the root ca for approval

my $opencaDir 	= getRequired( 'opencadir' );
my $baseDoc   	= getRequired( 'gencareqsheet');

## Get the parameters
my $email	= $query->param('email');
my $cn		= $query->param('cn');
my $ou		= $query->param('ou');
my $o		= $query->param('o');
my $c		= $query->param('c');
my $pwd		= $query->param('passwd');
my $dn		= $query->param('dn');

my $careqFile	= "$opencaDir/careq.pem";
my $cakeyFile	= "$opencaDir/private/cakey.pem";

## Other reserved variables
my ( $page, $ret, $key );

## Check the private key
if( not ( -e "$cakeyFile" ) ) {
 	configError("Private key is missing, please generate" .
		    " a new one!");
}

## Remove the old careq file, it is not important to keep a
## copy of it. As it is very simple to generate a new one.
unlink( "$careqFile") if( -e "$careqFile" );

## Send parameters: it is important that you send them
## in the same order as they are asked for. This means
## email->cn->ou->o->c
$cryptoShell->genReq( KEYFILE=>"$cakeyFile",
			OUTFILE=>"$careqFile",
			DN => [ "$email", "$cn", "$ou", "$o", "$c" ],
			SUBJECT => "$dn",
			PASSWD => $pwd );

## Try loading the Req File
my $req = new OpenCA::REQ ( SHELL  => $cryptoShell, INFILE => "$careqFile" );

if( not $req ) {
	$msg = "<BR>CryptoShell Error.<BR><BR>\n";
	$msg .= "($email, $cn, $ou, $o, $c)<BR>\n";
	$msg .= "($subject)\n";
}

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

## Substitute the variables
$page = $query->subVar( $page, '$key', $req->getTXT() );
$page = $query->subVar( $page, '$msg', $msg );

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

1;