#!/usr/bin/perl
##############################################################################
# By BumbleBeeWare.com 2008
# get hardware and software details of a webserver for diagnostics or planning
# serverinfo.cgi
# 
##############################################################################
# 
##############################################################################

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

$response = `hostname`;

print "<br>Server Hostname<br>";
print "<pre>$response</pre>";
print "<br><pre>-----------------------------------------</pre><br>";

$response = `uname -a`;

print "<br>Server O/S Details<br>";
print "<pre>$response</pre>";
print "<br><pre>-----------------------------------------</pre><br>";

$response = `uptime`;

print "<br>Server Uptime & Load Average<br>";
print "<pre>$response</pre>";
print "<br><pre>-----------------------------------------</pre><br>";

$response = `free -m`;

print "<br>Available Memory and Swap Space<br>";
print "<pre>$response</pre>";
print "<br><pre>-----------------------------------------</pre><br>";

$response = `cat /proc/cpuinfo`;

print "<br>CPU Information<br>";
print "<pre>$response</pre>";
print "<br><pre>-----------------------------------------</pre><br>";

$response = `df`;

print "<br>Drive Space and Mount Points<br>";
print "<pre>$response</pre>";
print "<br><pre>-----------------------------------------</pre><br>";

$response = `lspci`;

print "<br>PCI Devices Installed<br>";
print "<pre>$response</pre>";
print "<br><pre>-----------------------------------------</pre><br>";


$response = `route`;

print "<br>Routing Tables Eth Cards & IPs<br>";
print "<pre>$response</pre>";
print "<br><pre>-----------------------------------------</pre><br>";


$response = `w`;

print "<br>Users Currently Running Processes<br>";
print "<pre>$response</pre>";
print "<br><pre>-----------------------------------------</pre><br>";

exit;