use NetIQ::Nqext;
use strict;

our $Sev_fail = 10;

my ($results);
my $resmsg = "";

our $metastat = "/usr/sbin/metastat";

if (!(-e $metastat)){
	goto KS_CLEANUP;
}

$results = NetIQ::Nqext::ExecCmd("metastat|grep State:|grep -v Okay");
if ($results eq "") {
  goto KS_CLEANUP;
}

$results = NetIQ::Nqext::ExecCmd("metastat");

if ($do_event eq "y") {
  NetIQ::Nqext::CreateEvent($severity, "Disksuite Disk(s) Need Attention",  
         $Akpid, $resmsg, 0, $results , "", 0, 0);
}

KS_CLEANUP: