#!/usr/bin/perl
#############################
# check_myups
# Mike Schilli, 2007
#############################
use strict;
use Log::Log4perl qw(:easy);
use Nagios::Clientstatus;

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

my $data = `upsc elcheapo\@localhost ups.status`;

chomp $data;
my $status = "ok";

if ($data eq "OB") {
 $status = "critical";
}

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

exit $ncli->exitvalue(
 $status);