reqs-utils.lib

Perl写的CA认证程序

## RA Server Management Utility 
## (c) 1999 by Massimiliano Pala
## All Rights Reserved
##
## Requests utility functions
##
## DISC CLAIMER: THIS SOFTWARE IS GIVEN AS IS WITHOUT ANY WARRANTIES
## ABOUT ANY DAMAGE DERIVED BY THE USE ( CORRECT OR NOT ) OF THIS
## SOFTWARE. THE AUTHOR IS THEREFORE NOT RESPONSABLE IN ANY WAY OF
## DAMAGES RELATED IN ANY WAY TO THIS OR SUPPORTED SOFTWARE AS WELL.
##
## If you want to contact me (the author) please use the e-mail
## addresses listed below. Do not esitate in reporting bugs, enhancement
## or anything seems useful in developing this software:
##
##	[e-mail]
##	[e-mail]
##	[e-mail]
##
## Thank you for using this software, and remember that Open Projects
## are the future of mankind. Do not sleep, partecipate to world wide
## efforts to make life easier for all!

sub viewRequest {
	my @keys = @_;
	my ( $key, $dataType, $doc ) = @keys;

	my $req = $db->getItem( DATATYPE=>$dataType, KEY=>$key );
	if( not $req ) {
		configError( "No Request found in dB ($key)!");
		exit 1;
	}

	my $parsed = $req->getParsed();
	my $page   = $tools->getFile( $doc );

	$page = $query->subVar( $page, '$keysize', $parsed->{MODULUS} );
	$page = $query->subVar( $page, '$cname',   $parsed->{CN} );
	$page = $query->subVar( $page, '$unit',    $parsed->{OU}[0] );
	$page = $query->subVar( $page, '$org',     $parsed->{O} );
	$page = $query->subVar( $page, '$country', $parsed->{C} );
	$page = $query->subVar( $page, '$pin',     $parsed->{PASSWD} );
	$page = $query->subVar( $page, '$email',   $parsed->{EMAIL} );
	$page = $query->subVar( $page, '$serial',  $parsed->{SERIAL} );
	$page = $query->subVar( $page, '$created', $parsed->{NOT_BEFORE} );

	$page = $query->subVar( $page, '$key',     $key );
	$page = $query->subVar( $page, '$dataType',$dataType );
	
	print "$page";

	return;
} 

1;