From 80254362a000ca9f6cbd7125c8f4d98a2ab8125a Mon Sep 17 00:00:00 2001
From: phamt <phamt@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 28 Feb 2013 16:07:26 +0000
Subject: [PATCH] Added function to print to syslog.

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.8@15299 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/zvmUtils.pm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/perl-xCAT/xCAT/zvmUtils.pm b/perl-xCAT/xCAT/zvmUtils.pm
index e07c7d5b6..1fcec869f 100644
--- a/perl-xCAT/xCAT/zvmUtils.pm
+++ b/perl-xCAT/xCAT/zvmUtils.pm
@@ -294,6 +294,29 @@ sub printLn {
 
 #-------------------------------------------------------
 
+=head3   printSyslog
+
+    Description : Print a string to syslog
+    Arguments   : String
+    Returns     : Nothing
+    Example     : xCAT::zvmUtils->printSyslog($str);
+    
+=cut
+
+#-------------------------------------------------------
+sub printSyslog {
+
+    # Get inputs
+    my ( $class, $str ) = @_;
+
+    # Print string
+    xCAT::MsgUtils->message( "S", $str );
+
+    return;
+}
+
+#-------------------------------------------------------
+
 =head3   isZvmNode
 
     Description : Determines if a given node is in the 'zvm' table