listcerts

Perl写的CA认证程序

## OpenCA - RA Server Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
##
##   File Name: certsList
##       Brief: build Certificates' listing
## Description: Build Certificates' listing given the dataType
##  Parameters: dataType, viewFrom, rows

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

## Reserved variables
my ( $page, $certData, $sheet );

## We need some parameters to generate the list because of
## we do not want to generate a list of ALL issued certificates
## so get the numer of results we should give away, then the
## starting serial number.
my $from     = $query->param( 'viewFrom' );
my $matched  = $query->param( 'rows' );
my $dataType = $query->param( 'dataType' );

## if ( $cmd =~ /^validCerts/i ) {
## 	$dataType = "VALID_CERTIFICATE";
## } elsif ( $cmd =~ /^expiredCerts/i ) {
##       $dataType = "EXPIRED_CERTIFICATE";
##         } elsif ( $cmd =~ /^revokedCerts/i ) {
##                 $dataType = "REVOKED_CERTIFICATE";
##         } elsif ( $cmd =~ /^caCerts/i ) {
##                 $dataType = "VALID_CA_CERTIFICATE";
##         } elsif ( $cmd =~ /^expiredCaCerts/i ) {
##                 $dataType = "EXPIRED_CA_CERTIFICATE";
##         } elsif ( $cmd =~ /^allCerts/i ) {
##                 ## A little tricky this pattern matching, isn't it ?
##                 $dataType = '(?!CA).._CERTIFICATE';
##         };

## Get required parameters ( return only the value string )
my $sheet    = getRequired( 'basecertslist' );
my $maxItems = getRequired( 'MaxReturnedItems');
my $uptime   = $tools->getDate();

my @cols;

## Get the base Page ( got in $page variable )
if( not $page = $query->getFile( "$sheet" ) ) {
	configError ( "File not Found : $sheet" );
};

## Set the column titles
push( @cols, "Serial" );
push( @cols, "Common Name" );
push( @cols, "Email" );

if ( not $matched ) {
	$matched  = $db->elements( DATATYPE=>$dataType );
};

my @certsList = $db->listItems( DATATYPE=>$dataType,
			FROM=>$from, TO=>$to, ITEMS=>$maxItems );

$table  = $query->buildRefs( ELEMENTS=>$matched, MAXITEMS=>$maxItems  );
$table .= $query->startTable( 	COLS=>[ @cols ],
				WIDTH=>"100%",
				TITLE_BGCOLOR=>"#DDCCFF" );

## Process all Files
foreach $cert ( @certsList ) {

	my ( $format, $key, $type, $ser_col );
	my @vals;

	$key  = $cert->getParsed()->{DBKEY};
	$type = $dataType;

	$ser_col = "<a href=\"$self?cmd=viewCert&dataType=$type" .
			"&key=$key\">".$cert->getParsed()->{SERIAL} ."</a>";
	push( @vals, $ser_col );
	push( @vals, ( $cert->getParsed()->{CN} || "<CENTER>---</CENTER>") );
	push( @vals, ( $cert->getParsed()->{EMAIL} || "<CENTER>---</CENTER>") );
	$table .= $query->addTableLine( DATA =>[ @vals ]);
}

## Close the Table
$table .= $query->endTable();
$table .= getCopyRight();

## Substitute the Variables in the $page
$page = $query->subVar( $page, '$uptime', $uptime );
$page = $query->subVar( $page, '$table', $table );

print "$page";

1;