use strict; # first. use NetIQ::Nqext; my $sev_fail = 10; my $metastat = "/usr/sbin/metastat"; my $resmsg = ""; -e $metastat or cleanup; # Assuming 0 also indicates failure: NetIQ::Nqext::ExecCmd("metastat|grep State:|grep -v Okay") or cleanup; my $results = NetIQ::Nqext::ExecCmd("metastat"); # Where does $do_event come from and why isn't it just a simple boolean? if ($do_event eq "y") { NetIQ::Nqext::CreateEvent( $severity, "Disksuite Disk(s) Need Attention", $Akpid, # capital A? $resmsg, 0, # description of the parameter (one word will suffice) $results, "", # description 0, # description 0 # description ); } #### use strict; # first. use NetIQ::Nqext; my $sev_fail = 10; my $metastat = "/usr/sbin/metastat"; my $resmsg = ""; { -e $metastat or last; # Assuming 0 also indicates failure: NetIQ::Nqext::ExecCmd("metastat|grep State:|grep -v Okay") or last; my $results = NetIQ::Nqext::ExecCmd("metastat"); if ($do_event eq "y") { NetIQ::Nqext::CreateEvent( ... ); } }