#!/usr/bin/perl
###########################################
use strict;
use LWP::Simple;
use Log::Log4perl qw(:easy);
use Nagios::Clientstatus;

my $version = "0.01";
my $ncli    = Nagios::Clientstatus->new(
    help_subref    => 
      sub { print "usage: $0 url\n" },
    version        => $version,
    mandatory_args => [ "url" ],
);

my $url = $ncli->get_given_arg("url");

my $data = get $url;

unless($data) {
    print "Failed to get $url\n";
    exit $ncli->exitvalue("unknown");
}

my %values = split ' ', $data;

my $status = 
  $values{idle}   < 50 ? "critical" :
  $values{idle}   < 70 ? "warning"  :
  $values{iowait} > 20 ? "critical" :
  $values{iowait} > 10 ? "warning"  :
                         "ok";

print "IOSTAT ", uc($status), " - $data\n";

exit $ncli->exitvalue($status);