uptime_bsd

#!/usr/bin/env perl
# -*- perl -*-
# Plugin to monitor the system uptime
#
#%# family=auto
#%# capabilities=autoconf

use strict;
use warnings;

my %IN;

my $sysctl = defined($ENV{sysctl}) ? $ENV{sysctl} : '/sbin/sysctl';
my $ostype = `uname -s`;
chomp ($ostype);

if (defined($ARGV[0]) and ($ARGV[0] eq 'autoconf')) {
        if ( -x $sysctl ) {
                print "yes\n";
        } else {
                print "no (sysctl binary not found)\n";
        };
        exit;
};

if (defined($ARGV[0]) and ($ARGV[0] eq 'config')) {
print <<EOT ;
graph_title Uptime
graph_args --base 1000 -l 0
graph_vlabel days
graph_category system
compile.label Kernel age
compile.type GAUGE
compile.min 0
compile.max 1000
compile.draw AREA
uptime.label Uptime
uptime.type GAUGE
uptime.min 0
uptime.max 1000
uptime.draw AREA
EOT
exit;
}

use Date::Parse;

my $kern=`sysctl -n kern.version`;
$kern=~ /:\s+(.*\S)\s+\w+\@/;
#print "Compile: $1\n";
$kern= $1 ? str2time($1) : undef;

my $boot=`sysctl -n kern.boottime`; # OpenBSD will return seconds from the epoch
if ($ostype ne "OpenBSD") {
        $boot=~ / sec = (\d+)/;
        #print "Boot: $1\n";
        $boot=$1;
}

my $now=time;

print "compile.value ",($now-$kern)/60/60/24,"\n" if $kern;
print "uptime.value ",($now-$boot)/60/60/24,"\n";