search

Perl写的CA认证程序

## OpenCA - CA/RAServer Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
##
##   File Name: search
##       Brief: Search Items
## Description: Search Items ad list results found
##  Parameters: dataType, viewFrom, rows

my $cmdName = "search";

if ( $cmd !~ /$cmdName/i ) {
        configError( "Wrong Command Usage ($cmd over 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' );
my $parName  = $query->param( 'name'     );
my $parVal   = $query->param( 'value'    );

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

my $f1    = "<FONT COLOR=\"#EF7000\">";
my $f2    = "<FONT SIZE=+0 COLOR=\"#CCCCDD\">";
my $f3    = "<FONT COLOR=\"#FFFFFF\">";
my $ef    = "</FONT>";

my $title = "${f1}S${ef}earch ${f1}R${ef}esults${ef}${f3}.${ef}<BR>";

if( $dataType =~ /CERTIFICATE/ ) {
   $title .= "${f2}Certificates Search${ef}";
} elsif ( $dataType =~ /REQUEST/ ) {
   $title .= "${f2}Requests Search${ef}";
} else {
   $title .= "${f2}Unknown Search${ef}";
}   

my @cols;

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

if( $dataType =~ /CERTIFICATE/ ) {
	push( @cols, "Serial", "Common Name", "Email" );
} elsif ( $dataType =~ /REQUEST/ ) {
	push( @cols, "Serial", "Common Name", "Email" );
} else {
	configError( "Datatype $dataType not supported!" );
	exit 0;
}

my @itemsList = $db->searchItems( DATATYPE=>$dataType, 
				  $parName=>$parVal );

if ( not $matched ) { $matched  = $#itemsList; };

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

## Process all Files
foreach $item ( @itemsList ) {
	my ( $lnk, $cmd, $key, $type, $mySer, $myCN, $myEmail, $serCol );

	$key     = $item->getParsed()->{DBKEY};
	$type    = $item->{DATATYPE};

	$mySer   = ( $item->getParsed()->{SERIAL} or "<CENTER>n/a</CENTER>");
	$myCN    = ( $item->getParsed()->{CN} or "<CENTER>n/a</CENTER>" );
	$myEmail = ( $item->getParsed()->{EMAIL} or "<CENTER>n/a</CENTER>" );

	if( $type =~ /CERTIFICATE/ ) {
		$cmd = "viewCert";
	} elsif ( $type =~ /REQUEST/ ) {
		$cmd = "viewReq";
	} else {
		$cmd = "";
	}

	$lnk = new CGI({ cmd=>"$cmd", dataType=>$type, key=>$key });
	$serCol = $lnk->a( {-href=>$lnk->self_url()}, "$mySer" );
	$table .= $query->addTableLine( DATA =>[ $serCol, $myCN, $myEmail ]);
}

## 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 );
$page = $query->subVar( $page, '@TITLE@', $title );

print "$page";

1;