cainfo

Perl写的CA认证程序

## OpenCA - RA Server Command
## (c) 1998-2001 by Massimiliano Pala and OpenCA Group
##
##   File Name: caInfo
##       Brief: Returns Used Modules Versions
## Description: Build a page returning OpenCA modules versions
##  Parameters: 

my $cmdName = "caInfo";

if ( $cmd !~ /$cmdName/i ) {
        configError( "Wrong Command Usage ($cmd over $cmdName)!" );
        exit 1;
}

my @cols;
my $i, $thanks;

my @modules = ( OpenSSL, Tools, DB, Configuration, TRIStateCGI,
		REQ, X509, CRL, PKCS7 );


print $query->start_html(-title=>"OpenCA",-BGCOLOR=>"#FFFFFF",
						-TEXT=>"#445599");

print "<CENTER>";
print "<FONT SIZE=\"+3\">";
print "<B>Open<FONT COLOR=\"#FF9900\">CA</FONT></B></FONT><BR>\n";
print "<FONT SIZE=\"+1\">";
print "($PRG Version $VER)</FONT><BR>\n";
print "<HR WIDTH=80%>";

push( @cols, "Module" );
push( @cols, "Version" );

print $query->startTable( COLS=>[ @cols ],
			  WIDTH=>"90%",
			  TABLE_BGCOLOR=>"#000000",
			  TITLE_BGCOLOR=>"#DDCCFF" );

foreach $i (@modules) {
	print $query->addTableLine( DATA=>[$i,$versions->{$i}],
						COLOR=>"#000000");
}

print $query->endTable();

closePage();

1;