raserverinfo

来自「Perl写的CA认证程序」· 代码 · 共 51 行

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

my $cmdName = "raServerInfo";

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

my @cols;
my $i;

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=>"80%",
			  TABLE_BGCOLOR=>"#000000",
			  TITLE_BGCOLOR=>"#DDCCFF" );

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

print $query->endTable();
print closeLogPage();

exit;

1;