package esmith;

use strict;

open(UPTIME, "/proc/uptime") or die "Can't open /proc/uptime";
my ($uptime) = split(/\s/, <UPTIME>);
close UPTIME;

#------------------------------------------------------------
# Work out the current release
#------------------------------------------------------------
my $release = "(unknown version)";

if ( open(RPM, "/bin/rpm -q e-smith-release|") )
\{
    $release = <RPM>;
    close RPM;

    chomp($release);
    $release =~ s/e-smith-release-//;
\}

my $cmd = "/usr/bin/wget --output-document=- --tries=1"
{
    $OUT = '';
    if ($SquidParent && $SquidParent ne '')
    {
	my $port = $SquidParentPort || "8080";

	$OUT .= " . \" --proxy=on -e ";
	$OUT .= "http_proxy=$SquidParent:";
	$OUT .= "$port\"\n";
    }
} . " \"http://servertest.e-smith.com/report.phtml?"
 . "state=serverStatusAddCommit&"
 . "esmithVersion=$release&"
 . "name={ "$SystemName.$DomainName" }&"
 . "uptime=$uptime\""
 . " >/dev/null 2>&1";

my $status = system ($cmd);

my $log = ( $status == 0 ) ? "OK" : "Failed - status $status";

system ( '/usr/bin/logger', '-it', 'statusreport', $log );

exit 0;
