viewcrl

Perl写的CA认证程序

## OpenCA - CA Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
##
##   File Name: viewCRL
##       Brief: Display CRL
## Description: Display requested CRL
##  Parameters: dataType, key

my $cmdName = "viewCRL";

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

## Original command viewCRL ([e-mail])
## Modified for new modular version of OpenCA by Massimiliano Pala
## ([e-mail])

## Variable Definition
my ( @vals, $rev, $page, $table );

## Get Required Parameters
my $doc = getRequired( "viewCrlSheet" );

## Get passed parameters
my $dataType = $query->param('dataType');
my $key = $query->param('key');

configError( "Missing required parametes (dataType/key)!" )
		if( not ( $dataType and $key ) );
    
## Get the base Page ( got in $page variable )
if( not $page = $tools->getFile( $doc ) ) {
	configError( "File not Found : $doc" );
}

## Get the CRL from the DB.
my $crl = $db->getItem( DATATYPE=>$dataType, KEY=>$key);

generalError( "Cannot retrieve $key object from $dataType dB!" )
	if( not $crl );

my $parsed = $crl->getParsed();
my $issuer = $parsed->{ISSUER};

$issuer =~ s/^\///;
$issuer =~ s/\//<BR>\n/g;

foreach $rev ( @{$crl->getParsed()->{LIST}} ) {
	## $table .= $query-> addTableLine( DATA => [ 
	## 	"<B>New Certificate:</B>", "&nbsp;" ] );

	## $table .= $query-> addTableLine( DATA => [
	## 	"<DIV ALIGN=RIGHT><B>Certificate Serial:</B></DIV>",
	## 	"<a href=\"$self?cmd=viewCert&" .
	## 	"dataType=REVOKED_CERTIFICATE&key=" .
	## 	$rev->{SERIAL} . "\">" . ( $rev->{SERIAL} or "n/a") . "</a>"] );
			
	## $table .= $query-> addTableLine( DATA => [ 
	## 	"<DIV ALIGN=RIGHT><B>Revoked On:</B></DIV>" ,
	## 	( "$rev->{DATE}" or "n/a" ) ] );

	## $table .= $query-> addTableLine( DATA => [ 
	## 	"&nbsp;", "&nbsp;" ] );
	if( $rev->{SERIAL} ) {
		$table .= $query-> addTableLine( DATA => [
			"<B>Serial:</B> <a href=\"$self?cmd=viewCert&" .
			"dataType=REVOKED_CERTIFICATE&key=" .
			$rev->{SERIAL} . "\">" . 
			( $rev->{SERIAL} or "n/a") . "</a>",
			"<B>Revoked On:</B> " . ($rev->{DATE} or "n/a" )] );
	} else {
		$table .= $query-> addTableLine( DATA => [
			"<B>Serial:</B> " . ($rev->{SERIAL} or "n/a") ,
			"<B>Revoked On:</B> " . ($rev->{DATE} or "n/a" )] );
	}
}

$page = $tools->subVar( PAGE=>$page, NAME=>'@SERIAL@',
			VALUE=>( $parsed->{SERIAL} or "n/a" ) );
$page = $tools->subVar( PAGE=>$page, NAME=>'@VERSION@',
			VALUE=>( $parsed->{VERSION} or "n/a" ) );
$page = $tools->subVar( PAGE=>$page, NAME=>'@ALG@',
			VALUE=>( $parsed->{ALGORITHM} or "n/a" ) );
$page = $tools->subVar( PAGE=>$page, NAME=>'@ISSUER@',
			VALUE=>( $issuer or "n/a" ) );
$page = $tools->subVar( PAGE=>$page, NAME=>'@LASTUPDATE@', 
			VALUE=>( $parsed->{LAST_UPDATE} or "n/a" ) );
$page = $tools->subVar( PAGE=>$page, NAME=>'@NEXTUPDATE@',
			VALUE=>( $parsed->{NEXT_UPDATE} or "n/a" ) );
$page = $tools->subVar( PAGE=>$page, NAME=>'@TIME@',
			VALUE=>( $tools->getDate() or "n/a" ) );
$page = $tools->subVar( PAGE=>$page, NAME=>'@CERTSTABLE@',
			VALUE=>( $table or "No Revoked Certificates" ) );
print "$page";

1;