#!/usr/bin/perl
use strict;
my $cgi=0;
if ($#ARGV == 0) {
if ($ARGV[0] eq "--cgi") {
$cgi=1;
} else {
print STDERR "usage: $0 [--cgi]\n";
exit(1);
}
}
my $r=`/usr/bin/last -f /var/log/firstbootwtmp | /bin/grep reboot | /usr/bin/head -1`;
my $u=`/usr/bin/uptime`;
my $un=`uname -a`;
my $apm=`apm`;
if ($cgi) {
my $proc=`cat /proc/cpuinfo`;
my $disk=`df -k`;
my $numproc=`echo /proc/[0-9]* | wc -w`;
print "Content-Type: text/html\n\n";
print "
Scuzzie Statistics
Scuzzie Statistics
Last rebooted:
$r
Uptime stats: (may be different to above, since it may have been suspended for a while)
$u
See this script for a graph of uptimes.
Number of current processes running
$numproc
Kernel stats:
$un
Power stats:
$apm
CPU stats:
$proc
Disk usage:
$disk
";
} else {
print "$r";
print "$u";
print "$un";
print "$apm";
}