apprevreq

Perl写的CA认证程序

## OpenCA - RA Server Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
##
##   File Name: appRevReq
##       Brief: Approve Revoking Request
## Description: Approve Revoke Request - needs updating
##  Parameters: 

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

## command appRevReq ([e-mail])
if ( $cmd eq "appRevReq" ) {
     ## Get Destination FileName
     my $destDir     = getRequired( "RevReqDir" );
     my $errorPage   = getRequired( "AppRevErrorPage" );
     my $successPage = getRequired( "AppRevSuccessPage" );
     my $cacert      = getRequired( "CACertificate" );
     my $verifypath  = getRequired( "VerifyPath" );
     my $subject     = $query->param('subject'); 
     my $text        = $query->param('text'); 
     my $signature   = $query->param('signature'); 
     
     ## Set File Name
     my $destFile    = setFileName( "$subject" );

     ## Open Destination File
     open( FD, ">$destDir/$destFile" ) or
             configError ("Error Writing Approved Request : $destFile");
     print( FD "$text" );
     close(FD);
	     
     ## Write signature file 
     open( FD, ">$destDir/$destFile.sig" ) or
             configError ("Error Writing Request Signature: $destFile.sig");
     print( FD "-----BEGIN PKCS7-----\n");
     print( FD "$signature\n" );
     print( FD "-----END PKCS7-----\n");
     close(FD);
     
     # Let's test if the signature is correct...
     $signaturefile = "$destDir/$destFile.sig";
     $textfile = "$destDir/$destFile";
     $command = "$verifypath $signaturefile -d $textfile -cf $cacert > /dev/null";
     
     if (system("$command")) {
        ## Couldn't verify signature, send error page
	if ( $errorPage !~ /\/.*/ ) {
	   $errorPage = "$basedir/$errorPage";
	}
	
	$errorPage = ( glob("$basedir/$errorPage"))[0];
	
	## There was an error, delete the erroneous request...
	unlink $signaturefile;
	unlink $textfile;
	
	open ( FD, "$errorPage" ) || die ( "File not Found : $errorPage" );
	while( $temp = <FD> ) {
             $page .= $temp;
	};
	close ( FD );
	
	print "$page";
	exit 0;
     }
     
     # All went OK, send success page
     if ( $successPage !~ /\/.*/ ) {
	$successPage = "$basedir/$successPage";
     }
     
     $successPage = ( glob("$basedir/$successPage"))[0];

     open ( FD, "$successPage" ) || die ( "File not Found : $successPage" );
     while( $temp = <FD> ) {
        $page .= $temp;
     };
     close ( FD );
     
     print "$page";
     exit 0;
}