CGI Show Server Version Code Library

#!perl
##
###########################
## Server Info CGI v1.08 ##
###########################
##
## This script gives information about your (web)server.
## Software, Modules, libraries, env, network...
##
## Install:
## Change the path to perl (The first line in this script).
## Upload the script in ASCII mode to your cgi-bin directory
## chmod script to 755
## Open the script in a browser
##
##############################
##############################

$ver = "v1.6";

find_prog();

print "Content-type: text/html\n\n";

$header = qq|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
 <title>Server Info script $ver - http://www.widexl.com</title>
<meta name="robots" content="noindex,nofollow">

<style type="text/css"></style>
</head>
<body>
|;

$output .= "$header\n\n";
$output .= "<table border=\"0\" cellspacing=\"0\" cellpadding=\"32\" align=\"left\" width=\"760\"><tr><td align=\"left\">\n\n";

if ($^O eq 'MSWin32') {
 $info{'OS_VERSION'} = `ver`;
 $info{'HOST_NAME'} = `hostname`;
if ($info{'OS_VERSION'}) {$info{'EXEC'} = 'Enabled'}
}

else {
 $info{'PROC_RELEASE'} = `uname -r`;
 $info{'MACHINE'} = `uname -m`;
 $info{'PROCESSOR'} = `uname -p`;
 $info{'NODE_NAME'} = `uname -n`;
 $info{'SYS_NAME'} = `uname -s`;
 $info{'WHOAMI'} = `whoami`;

 $ex = `which perl`;
 $info{'TAR'} = `which tar` if (!$info{'TAR'});
 $info{'GZIP'} = `which gzip` if (!$info{'GZIP'});
 $info{'COMPRESS'} = `which compress` if (!$info{'COMPRESS'});
 $info{'WHOIS'} = `which whois` if (!$info{'WHOIS'});
 $info{'CONVERT'} = `which convert` if (!$info{'CONVERT'});
 $info{'MAIL_PROGRAM'} = `which sendmail` if (!$info{'MAIL_PROGRAM'});
 $info{'MAIL_PROGRAM'} = "Found no mail program" if (!$info{'MAIL_PROGRAM'});
if ($ex) {$info{'EXEC'} = 'Enabled'}
}

 $info{'OS'} = $^O;
 $info{'SERVER_NAME'} = $ENV{'SERVER_NAME'};
 $info{'SERVER_ADDR'} = $ENV{'SERVER_ADDR'};

 $info{'PERL_EXE'} = $^X;
 $info{'PERL_VER'} = $];
 $info{'PERL_LIB'} = "@INC";

 $info{'UPTIME'} = `uptime`;

 $info{'HTTP_HOST'} = $ENV{'HTTP_HOST'};
 $info{'APACHE_LIB'} = $info{'APACHE_LIB'};
 $info{'DOCU_ROOT'} = $ENV{'DOCUMENT_ROOT'};
 $info{'SERVER_ADMIN'} = $ENV{'SERVER_ADMIN'};
 $info{'SERVER_SOFT'} = $ENV{'SERVER_SOFTWARE'};
 $info{'HTTP_ACCEPT'} = $ENV{'HTTP_ACCEPT'};

 $info{'REMOTE_ADDR'} = $ENV{'REMOTE_ADDR'};
 $info{'REMOTE_HOST'} = $ENV{'REMOTE_HOST'};
 $info{'ACCEPT_LANG'} = $ENV{'HTTP_ACCEPT_LANGUAGE'};
 $info{'USER_AGENT'} = $ENV{'HTTP_USER_AGENT'};

 $info{'SERVER_VER'} = server(version);
 $info{'SERVER_CPU'} = server(cpuinfo);
 $info{'SERVER_MEM'} = server(meminfo);

# The Output.
$output .= "Server info \n";
$output .= "Operating system = <%OS%> \n";

if (("$^O" eq "MSWin32") and ($info{'EXEC'})) {
$output .= "Version = <%OS_VERSION%> \n";
$output .= "Host name = <%HOST_NAME%> \n";
}

if (("$^O" ne "MSWin32") and ($info{'EXEC'})) {
$output .= "Kernel = <%PROC_RELEASE%> \n";
$output .= "Machine = <%MACHINE%> \n";
$output .= "Processor type = <%PROCESSOR%> \n";
$output .= "Whoami = <%WHOAMI%> \n";
$output .= "Host name = <%NODE_NAME%> \n";
}

$output .= "Server name = <%SERVER_NAME%> \n";
$output .= "Server IP = <%SERVER_ADDR%> \n";
$output .= " \n\n";

$output .= "Web server info \n";
$output .= "HTTP address = <%HTTP_HOST%> \n";
$output .= "Document root = <%DOCU_ROOT%> \n";
$output .= "Apache lib = <%APACHE_LIB%> \n";
$output .= "Administrator = <%SERVER_ADMIN%> \n";
$output .= "Server software = <%SERVER_SOFT%> \n";
$output .= "HTTP accept = <%HTTP_ACCEPT%> \n";
$output .= " \n\n";

if (("$^O" ne "MSWin32") and ($info{'EXEC'})) {
$output .= "Server programs \n";
$output .= "Mail program = <%MAIL_PROGRAM%> \n";
$output .= "Tar program = <%TAR%> \n";
$output .= "Gzip program = <%GZIP%> \n";
$output .= "Compress program = <%COMPRESS%> \n";
$output .= "Whois program = <%WHOIS%> \n";
$output .= "ImageMagick convert = <%CONVERT%> \n";
$output .= " \n\n";
}

$output .= "Perl info \n";
$output .= "Perl location = <%PERL_EXE%> \n";
$output .= "Perl version = <%PERL_VER%> \n";
$output .= "Locations of Perl libraries = <%PERL_LIB%> \n";
$output .= " \n\n";

$output .= "Extra info \n";
$output .= "Executing of system commands = Enabled \n" if ($info{'EXEC'});
$output .= "Executing of system commands = Not enabled \n" if (!$info{'EXEC'});
$output .= "Server uptime = <%UPTIME%> \n";
$output .= " \n\n";

$output .= "Remote user info \n";
$output .= "Remote IP = <%REMOTE_ADDR%> \n";
$output .= "Remote hostname = <%REMOTE_HOST%> \n";
$output .= "Language = <%ACCEPT_LANG%> \n";
$output .= "User agent = <%USER_AGENT%> \n";
$output .= " \n\n";

if ("$^O" ne "MSWin32") {
$output .= "Server version \n";
$output .= "<%SERVER_VER%> \n";
$output .= " \n\n";

$output .= "CPU info \n";
$output .= "<%SERVER_CPU%> \n";
$output .= " \n\n";

$output .= "Memory info \n";
$output .= "<%SERVER_MEM%> \n";
$output .= " \n\n";
}

$output .= "Perl libraries installed \n";
eval {require CGI};
if ($@) {$output .= "The library CGI is not installed \n"}
else {$output .= "Library CGI v$CGI::VERSION installed \n"}

eval {require mod_perl};
if ($@) {$output .= "The library mod_perl is not installed \n"}
else {$output .= "Library mod_perl v$mod_perl::VERSION installed \n"}

eval {require LWP};
if ($@) {$output .= "The library www-perl is not installed \n"}
else {$output .= "Library www-perl v$LWP::VERSION installed \n"}

eval {require DBI};
if ($@) {$output .= "The library DBI is not installed \n"}
else {$output .= "Library DBI v$DBI::VERSION installed \n"}

eval {require DBD::mysql};
if ($@) {$output .= "The library DBD::mysql is not installed \n"}
else {$output .= "Library DBD::mysql v$DBD::mysql::VERSION installed \n"}

eval {require URI};
if ($@) {$output .= "The library URI is not installed \n"}
else {$output .= "Library URI v$URI::VERSION installed \n"}

eval {require Apache};
if ($@) {$output .= "The library Apache is not installed \n"}
else {$output .= "Library Apache v$Apache::VERSION installed \n\n"}

eval {require Digest::MD5};
if ($@) {$output .= "The library Digest::MD5 is not installed \n"}
else {$output .= "Library Digest::MD5 v$Digest::MD5::VERSION installed \n"}

eval {require Crypt::SSLeay};
if ($@) {$output .= "The library Crypt::SSLeay is not installed \n\n"}
else {$output .= "Library Crypt::SSLeay v$Crypt::SSLeay::VERSION installed \n\n"}

if ($info{'APACHE_LIB'}) {
@standard_mod = ('mod_rewrite.so', 'mod_cgi.so', 'mod_env.so', 'mod_imap.so', 'mod_include.so', 'libperl.so', 'mod_alias.so', 'mod_access.so', 'mod_browser.so', 'mod_python.so', 'mod_unique_id.so');
@auth_mod = ('mod_auth.so', 'mod_digest.so', 'mod_auth_anon.so', 'mod_auth_db.so', 'mod_auth_dbm.so', 'mod_auth_cookie.so', 'mod_auth_digest.so', 'mod_auth_mysql.so');
@ext_mod = ('mod_expires.so', 'mod_fastcgi.so', 'mod_gzip.so', 'mod_headers.so', 'libphp3.so', 'libphp4.so', 'mod_proxy.so', 'mod_speling.so', 'mod_status.so', 'mod_usertrack.so', 'mod_vhost_alias.so');

$output .= "Apache modules installed \n";

foreach $item(@standard_mod) {
if (-e "$info{'APACHE_LIB'}/$item") {$output .= "Module '$item' installed \n"}
else {$output .= "Module '$item' is not installed \n"}
}
$output .= " \n\n";

foreach $item(@auth_mod) {
if (-e "$info{'APACHE_LIB'}/$item") {$output .= "Module '$item' installed \n"}
else {$output .= "Module '$item' is not installed \n"}
}
$output .= " \n\n";

foreach $item(@ext_mod) {
if (-e "$info{'APACHE_LIB'}/$item") {$output .= "Module '$item' installed \n"}
else {$output .= "Module '$item' is not installed \n"}
}
$output .= " \n\n";
}

eval {
 $info{'GET_USER'} = getpwent();
 $info{'GET_GROUP'} = getgrent();
 $info{'GET_HOST'} = gethostent();
 $info{'GET_NET'} = getnetent();
 $info{'GET_PROTO'} = getprotoent();
 $info{'GET_SERV'} = getservent();

$output .= "Special info \n";
$output .= "user = <%GET_USER%> \n";
$output .= "group = <%GET_GROUP%> \n";
$output .= "host = <%GET_HOST%> \n";
$output .= "network = <%GET_NET%> \n";
$output .= "protocol = <%GET_PROTO%> \n";
$output .= "service = <%GET_SERV%> \n";
$output .= " \n\n";
};

$output .= "Web server Env \n";
@keys = keys %ENV;
@values = values %ENV;
foreach $key (sort(@keys)) {
$output .= "$key = $ENV{$key} \n";
}

$output .= "</td></tr></table>\n";
$output .= "</body></html>\n";

$output =~ s/<%\s*(.*?)\s*%>/if ($info{$1}) {$info{$1}} else {"undefined<\/i>"}/oesg;

print "$output";

########################
## Find Programs
########################
sub find_prog {

if (-e "/usr/local/bin/tar") {$info{'TAR'} = "/usr/local/bin/tar"}
elsif (-e "/usr/bin/tar") {$info{'TAR'} = "/usr/bin/tar"}
elsif (-e "/usr/local/tar") {$info{'TAR'} = "/usr/local/tar"}

if (-e "/usr/local/bin/gzip") {$info{'GZIP'} = "/usr/local/bin/gzip"}
elsif (-e "/usr/bin/gzip") {$info{'GZIP'} = "/usr/bin/gzip"}
elsif (-e "/usr/local/gzip") {$info{'GZIP'} = "/usr/local/gzip"}

if (-e "/usr/local/bin/compress") {$info{'COMPRESS'} = "/usr/local/bin/compress"}
elsif (-e "/usr/bin/compress") {$info{'COMPRESS'} = "/usr/bin/compress"}
elsif (-e "/usr/local/compress") {$info{'COMPRESS'} = "/usr/local/compress"}

if (-e "/usr/local/bin/whois") {$info{'WHOIS'} = "/usr/local/bin/whois"}
elsif (-e "/usr/bin/whois") {$info{'WHOIS'} = "/usr/bin/whois"}
elsif (-e "/usr/local/whois") {$info{'WHOIS'} = "/usr/local/whois"}

if (-e "/usr/local/bin/convert") {$info{'CONVERT'} = "/usr/local/bin/convert"}
elsif (-e "/usr/bin/convert") {$info{'CONVERT'} = "/usr/bin/convert"}
elsif (-e "/usr/local/convert") {$info{'CONVERT'} = "/usr/local/convert"}

########################
## Find Mail
########################
if (-e "/var/qmail/bin/qmail-inject") {$info{'MAIL_PROGRAM'} = "/var/qmail/bin/qmail-inject"}
elsif (-e "/usr/sbin/sendmail") {$info{'MAIL_PROGRAM'} = "/usr/sbin/sendmail"}
elsif (-e "/usr/lib/sendmail") {$info{'MAIL_PROGRAM'} = "/usr/lib/sendmail"}
elsif (-e "/usr/bin/sendmail") {$info{'MAIL_PROGRAM'} = "/usr/bin/sendmail"}

########################
## Find Apache
########################
if (-e "/opt/lib/apache/mod_env.so") {$info{'APACHE_LIB'} = "/opt/lib/apache"}
elsif (-e "/System/Library/Apache/Modules/mod_env.so") {$info{'APACHE_LIB'} = "/System/Library/Apache/Modules"}# Mac
elsif (-e "/usr/local/apache/modules/mod_env.so") {$info{'APACHE_LIB'} = "/usr/local/apache/modules"}# MachTen/WebTen
elsif (-e "/usr/lib/apache/modules/mod_env.so") {$info{'APACHE_LIB'} = "/usr/lib/apache/modules"}# OpenBSD
elsif (-e "/usr/lib/apache/mod_env.so") {$info{'APACHE_LIB'} = "/usr/lib/apache"}
#elsif (-e "c:/apache/modules") {$info{'APACHE_LIB'} = "c:/apache/modules"}# OpenBSD
}

##############
## Server Info
##############
sub server {
($serv_info) = @_;

open SERVER, "</proc/$serv_info";
$server_info = join(" ", <SERVER>);
close SERVER;
return $server_info;
}