| \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`;
+
+ my $ex = `which perl`;
+ $info{'TAR'} = `which tar` || $info{'TAR'};
+ $info{'GZIP'} = `which gzip` || $info{'GZIP'};
+ $info{'COMPRESS'} = `which compress` || $info{'COMPRESS'};
+ $info{'WHOIS'} = `which whois` || $info{'WHOIS'};
+ $info{'CONVERT'} = `which convert` || $info{'CONVERT'};
+ $info{'MAIL_PROGRAM'} = `which sendmail` || $info{'MAIL_PROGRAM'};
+ $info{'MAIL_PROGRAM'} = "Found no mail program" if (!$info{'MAIL_PROGRAM'});
+
+ $info{'UPTIME'} = `uptime`;
+ $info{'QUOTA'} = `quota`;
+ $info{'QUOTA'} =~ s/\n/ /isg if ($info{'QUOTA'}); + + 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{'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"; + +$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 .= "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"; + +$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"; + +if ("$^O" ne "MSWin32") { + + $output .= "Server version \n"; + $output .= "<%SERVER_VER%> \n"; + $output .= " \n\n"; + + if ($info{'QUOTA'}) { + $output .= "Disk Quota \n"; + $output .= "<%QUOTA%>\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 LWP::Parallel}; +if ($@) {$output .= "The library LWP::Parallel is not installed \n"} +else {$output .= "Library LWP::Parallel v$LWP::Parallel::VERSION installed \n"} + +eval {require SOAP::Lite}; +if ($@) {$output .= "The library SOAP::Lite is not installed \n"} +else {$output .= "Library SOAP::Lite v$SOAP::Lite::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 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"} +else {$output .= "Library Crypt::SSLeay v$Crypt::SSLeay::VERSION installed \n"} + +eval {require Net::SSLeay}; +if ($@) {$output .= "The library Net::SSLeay is not installed \n\n"} +else {$output .= "Library Net::SSLeay.pm v$Net::SSLeay::VERSION installed \n\n"} + + + +if ($info{'APACHE_LIB'}) { + my @standard_mod = ('mod_rewrite.so', 'mod_cgi.so', 'mod_perl.so', 'mod_env.so', 'mod_include.so', 'mod_alias.so', 'mod_python.so'); + my @auth_mod = ('mod_auth_digest.so', 'mod_auth_mysql.so'); + my @ext_mod = ('mod_expires.so', 'mod_headers.so', 'libphp5.so', 'mod_proxy.so', 'mod_speling.so', 'mod_status.so', 'mod_usertrack.so', 'mod_vhost_alias.so'); + + $output .= "Apache modules installed \n"; + + foreach my $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 my $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 my $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"; + +my @keys = keys %ENV; +my @values = values %ENV; +foreach my $key (sort(@keys)) { + $output .= "$key = $ENV{$key} \n"; +} + +$output .= " |
| \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`;
+
+ my $ex = `which perl`;
+ $info{'TAR'} = `which tar` || $info{'TAR'};
+ $info{'GZIP'} = `which gzip` || $info{'GZIP'};
+ $info{'COMPRESS'} = `which compress` || $info{'COMPRESS'};
+ $info{'WHOIS'} = `which whois` || $info{'WHOIS'};
+ $info{'CONVERT'} = `which convert` || $info{'CONVERT'};
+ $info{'MAIL_PROGRAM'} = `which sendmail` || $info{'MAIL_PROGRAM'};
+ $info{'MAIL_PROGRAM'} = "Found no mail program" if (!$info{'MAIL_PROGRAM'});
+
+ $info{'UPTIME'} = `uptime`;
+ $info{'QUOTA'} = `quota`;
+ $info{'QUOTA'} =~ s/\n/ /isg if ($info{'QUOTA'}); + + 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{'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"; + +$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 .= "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"; + +$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"; + +if ("$^O" ne "MSWin32") { + + $output .= "Server version \n"; + $output .= "<%SERVER_VER%> \n"; + $output .= " \n\n"; + + if ($info{'QUOTA'}) { + $output .= "Disk Quota \n"; + $output .= "<%QUOTA%>\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 LWP::Parallel}; +if ($@) {$output .= "The library LWP::Parallel is not installed \n"} +else {$output .= "Library LWP::Parallel v$LWP::Parallel::VERSION installed \n"} + +eval {require SOAP::Lite}; +if ($@) {$output .= "The library SOAP::Lite is not installed \n"} +else {$output .= "Library SOAP::Lite v$SOAP::Lite::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 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"} +else {$output .= "Library Crypt::SSLeay v$Crypt::SSLeay::VERSION installed \n"} + +eval {require Net::SSLeay}; +if ($@) {$output .= "The library Net::SSLeay is not installed \n\n"} +else {$output .= "Library Net::SSLeay.pm v$Net::SSLeay::VERSION installed \n\n"} + + + +if ($info{'APACHE_LIB'}) { + my @standard_mod = ('mod_rewrite.so', 'mod_cgi.so', 'mod_perl.so', 'mod_env.so', 'mod_include.so', 'mod_alias.so', 'mod_python.so'); + my @auth_mod = ('mod_auth_digest.so', 'mod_auth_mysql.so'); + my @ext_mod = ('mod_expires.so', 'mod_headers.so', 'libphp5.so', 'mod_proxy.so', 'mod_speling.so', 'mod_status.so', 'mod_usertrack.so', 'mod_vhost_alias.so'); + + $output .= "Apache modules installed \n"; + + foreach my $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 my $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 my $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"; + +my @keys = keys %ENV; +my @values = values %ENV; +foreach my $key (sort(@keys)) { + $output .= "$key = $ENV{$key} \n"; +} + +$output .= " |