listreqs

Perl写的CA认证程序

## 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, ra

if ( $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 parameters
if(  $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 titles
if( (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 Files
foreach $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;