From 685cbaa28922f26b8501d1716bc0413bb6ff42ef Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 22 Sep 2011 19:14:24 +0000
Subject: [PATCH] Add xcatd trace routine

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@10614 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/sbin/xcatdebug | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 xCAT-server/sbin/xcatdebug

diff --git a/xCAT-server/sbin/xcatdebug b/xCAT-server/sbin/xcatdebug
new file mode 100755
index 000000000..55b431f85
--- /dev/null
+++ b/xCAT-server/sbin/xcatdebug
@@ -0,0 +1,23 @@
+#!/bin/sh
+# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
+
+#-------------------------------------------------------------------------------
+#=head1  xcatdebug 
+#      To run:   xcatdebug 0   where 0 is the number of the tracelevel (0,1)
+#=head2  xcatdebug provides a debug trace of the xcatd daemon.
+#        Perl Debug::Trace must be installed from the xcat deps package 
+#        Shutdown xcatd
+#        Link  /opt/xcat/share/xcat/tools/tracelevel to the traceleve* file you
+#        wish to use
+#        run xcatdebug > /mydir/myoutput file  or just to STDOUT 
+#        To stop ctl-C, you may have to kill processes after
+#        ps -ef |grep xcatd,  kill the listener process, it should stop the
+#        other xcatd processes
+#         7405808  8454216   0 10:04:37  pts/1  0:03 xcatd: SSL listener
+#        You may also have to kill the xcatdebug process, check for it. 
+#     
+#=cut
+#-------------------------------------------------------------------------------
+export PERL5DEBUGTRACE=":warn:indent(2):nomaxdepth:quotekeys"
+print "running:perl -MDebug::Trace=`cat /opt/xcat/share/xcat/tools/tracelevel$1` /opt/xcat/sbin/xcatd -f"
+perl -MDebug::Trace=`cat /opt/xcat/share/xcat/tools/tracelevel$1` /opt/xcat/sbin/xcatd -f