From aff90b34acb0ddd4ad42c1f0648334905baa61af Mon Sep 17 00:00:00 2001 From: lissav Date: Thu, 11 Sep 2014 13:39:55 -0400 Subject: [PATCH] Support for auditlog without syslog --- perl-xCAT/xCAT/MsgUtils.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/perl-xCAT/xCAT/MsgUtils.pm b/perl-xCAT/xCAT/MsgUtils.pm index 822606c2f..71b8ea4cd 100644 --- a/perl-xCAT/xCAT/MsgUtils.pm +++ b/perl-xCAT/xCAT/MsgUtils.pm @@ -297,7 +297,9 @@ sub message { # if SA ( syslog and auditlog) or A ( only auditlog)then need to pull first entry from $rsp # for syslog, to preserve old interface $newrsp = $rsp; + if ($sev eq 'SA'){ # syslog and auditlog $rsp = $newrsp->{syslogdata}->[0]; + } } my $stdouterrf = \*STDOUT; my $stdouterrd = '';