From fef18ac04ea028f5e70916db38919e6571e7929c Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 17 Mar 2010 16:41:42 +0000
Subject: [PATCH] fix MsgUtils SA option for xcatd -f interface

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5510 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/MsgUtils.pm | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/perl-xCAT/xCAT/MsgUtils.pm b/perl-xCAT/xCAT/MsgUtils.pm
index 1aa8c63c5..22ab77633 100644
--- a/perl-xCAT/xCAT/MsgUtils.pm
+++ b/perl-xCAT/xCAT/MsgUtils.pm
@@ -278,7 +278,16 @@ sub message
 
     # should be I, D, E, S, SA ,LS, W , L,N
     #  or S(I, D, E, S, W, L,N)
-
+    #
+    # if new SA option need to split syslog messages from auditlog entry
+    #
+    my $newrsp;
+    if ($sev eq 'SA')
+    {    # if SA then need to pull first entry from $rsp
+            # for syslog, to preserve old interface
+        $newrsp = $rsp;
+        $rsp    = $newrsp->{syslogdata}->[0];
+    }
     my $stdouterrf = \*STDOUT;
     my $stdouterrd = '';
     if ($sev =~ /[E]/)
@@ -442,13 +451,6 @@ sub message
     }
 
     # is syslog requested
-    my $newrsp;
-    if ($sev eq 'SA')
-    {    # if SA then need to pull first entry from $rsp
-            # for syslog, to preserve old interface
-        $newrsp = $rsp;
-        $rsp    = $newrsp->{syslogdata}->[0];
-    }
 
     if ($sev =~ /S/)
     {