crllist

Perl写的CA认证程序

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

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

## Reserved variables
my ( $page, $dataType, $crlData );

## 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 $to       = $query->param( 'viewTo' );
my $matched  = $query->param( 'rows' );
my $dataType = $query->param( 'dataType' );

## Get required parameters ( return only the value string )
my $sheet    = getRequired( 'CRLBaseSheet' );
my $maxItems = getRequired( 'MaxReturnedItems');

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

## Set the column titles
my @cols, @crlList;

push( @cols, "Ver." );
push( @cols, "Ser." );
push( @cols, "Last Update" );
push( @cols, "Next Update" );

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

@crlList = $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 $crl ( @crlList ) {

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

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

	$ser_col = "<CENTER><a href=\"$self?cmd=viewCRL&dataType=$type".
			"&key=$key\">".$crl->getParsed()->{VERSION} .
			"</a></CENTER>";
	push( @vals, $ser_col );

	## Standard to be suported extention is the SERIAL of CRL...
	push( @vals, ($crl->getParsed()->{SERIAL} or "--") );
	push( @vals, $crl->getParsed()->{LAST_UPDATE} );
	push( @vals, $crl->getParsed()->{NEXT_UPDATE});

	$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;