## 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 variablesmy ( $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 titlesmy @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 Filesforeach $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;