}
# arcconf puts crap into a $PWD/UcliEvt.log file.
-my $dir = tempdir( "check-aacraid-XXXXXXX", CLEANUP => 1 );
+my $dir = tempdir( "/tmp/check-aacraid-XXXXXXX", CLEANUP => 1 );
chdir ($dir) or die ("Cannot chdir $dir: $!\n");
my $ctrl = 1;
my $status = $1;
if ($status eq 'Not Installed') {
next;
- } elsif ($status ne 'Optimal') {
+ } elsif ($status ne 'Optimal' && $status ne 'ZMM Optimal') {
record('WARNING');
};
push @{$status{$status}}, 'Battery';
$ctrl++;
};
+if ( -e 'UcliEvt.log' ) {
+ unlink('UcliEvt.log') or die ("Cannot unlink UcliEvt.log: $!\n");
+}
+
+# Need to chdir out of tempdir in order to rm it in new perl
+chdir ('/') or die ("Cannot chdir /: $!\n");
+
print "$EXITCODE: ", join(" --- ", @resultstr), "\n";
exit $CODE{$EXITCODE};