## OpenCA - RA Server Command## (c) 1998-2001 by Massimiliano Pala and OpenCA Group####   File Name: listReqs##       Brief: Build Requests' Listing## Description: Build Requests' Listing given correct dataType##  Parameters: viewFrom, dataType, raif ( $cmd !~ /listReqs/i ) {        configError( "Wrong Command Usage ($cmd/listReqs)!" );        exit 1;}print "Content-type: text/html\n\n";my $from = ( $query->param( 'viewFrom' ) or 0 );my $dataType = $query->param( 'dataType' );my ( $dateColTitle, $rows, @cols, @list );## Differentiate the list parametersif(  $dataType eq "PENDING_REQUEST" ) {	$doc = 'pendingbasesheet';	@cols = ( "Serial", "Submit Name", "Submitted On" );} elsif( $dataType eq "RENEW_REQUEST" ) {	$doc = 'renewbasesheet';	@cols = ( "Serial", "Submit Name", "Submitted On" );} elsif( $dataType eq "REVOKE_REQUEST" ) {	$doc = 'revokebasesheet';	@cols = ( "Serial", "Submit Name", "Submitted On" );} elsif( $dataType eq  "APPROVED_REQUEST" ) {	$doc = 'approvedbasesheet';	@cols = ( "Op.", "Serial", "Submit Name", "Approved On" );} elsif ( $dataType eq "DELETED_REQUEST" ) {	$doc = 'deletedbasesheet';	@cols = ( "Op.", "Serial", "Submit Name", "Deleted On" );} elsif ( $dataType eq "ARCHIVIED_REQUEST" ) {	$doc = 'archiviedbasesheet';	@cols = ( "Op.", "Serial", "Submit Name", "Archivied On" );} else {	configError("Requested List $dataType NOT available");}## Get required parameters ( return only the value string )my $sheet    = getRequired( $doc );my $maxItems = getRequired( "maxReturnedItems" );my $elements = $db->elements( DATATYPE=>$dataType );exit;## Get the base Page ( got in $page variable )my $page   = $query->getFile( "$sheet" );my $uptime = $tools->getDate();my $ra     = ( $query->param('ra') or "All" ); configError ( "Error loading Page $sheet" ) if ( not $page);## Set the column titlesif( (not $ra) or ($ra =~ /All/i) ) {	$rows = $elements;       	@list = $db->listItems( DATATYPE=>$dataType, 	 		ITEMS=>$maxItems, FROM=>$from );} else {	$rows = $db->rows(DATATYPE=>$dataType, RA=>$query->param('ra'));       	@list = $db->searchItems( DATATYPE=>$dataType, 		ITEMS=>$maxItems, FROM=>$from, RA=>$query->param('ra'));}$table  = $query->buildRefs( ELEMENTS=>$rows, MAXITEMS=>$maxItems );$table .= $query->startTable( COLS=>[ @cols ],				WIDTH=>"100%",				TITLE_BGCOLOR=>"#DDCCFF" );## Process all Filesforeach $req ( @list ) {	my ( $format, $key, $ser_col, $serial, $date );	my @vals;	## We have no problem either if it is a PEM or SPKAC	## request as the REQ mod will try to recognize it.	## my $req = new OpenCA::REQ( SHELL=>$openssl,	##                         DATA=>$reqData);	$key = $req->getParsed->{DBKEY};	$serial = ( $req->getParsed()->{SERIAL} or				$req->getParsed()->{HEADER}->{SERIAL} );	$date =  ( $req->getParsed()->{NOTBEFORE} or			$req->getParsed()->{HEADER}->{NOTBEFORE} or 				"---" );	if( not $serial ) {		$serial = "<CENTER>---</CENTER>";	};	$ser_col = "<a href=\"$self?cmd=viewReq&dataType=$dataType" .					"&key=$key\">". $serial ."</a>";	if( $dataType =~ /APPROVED|DELETED|ARCHIVIED/ ) {		push( @vals,($req->getParsed()->{HEADER}->{OPERATOR} or			$req->getParsed()->{OPERATOR} or "n/a"));	}	push( @vals, $ser_col );	push( @vals, ( $req->getParsed()->{CN} or "<CENTER>---</CENTER>" ) );	if( $dataType =~ /DELETED|APPROVED|ARCHIVIED/i ) {		push( @vals, (  $req->getParsed()->{DELETED} or			$req->getParsed()->{APPROVED} or				$req->getParsed()->{ARCHIVIED} or					"n/a"));	} else {		push( @vals, ( $date or "<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;