From 9db152a96d6c9e8dd2a8e24068bf875b5e61b082 Mon Sep 17 00:00:00 2001
From: sjing <sjing@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 10 May 2011 08:11:16 +0000
Subject: [PATCH] support <xcatmaster> keyword in site/networks table.

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

diff --git a/perl-xCAT/xCAT/InstUtils.pm b/perl-xCAT/xCAT/InstUtils.pm
index 3063e1069..61b22fddb 100644
--- a/perl-xCAT/xCAT/InstUtils.pm
+++ b/perl-xCAT/xCAT/InstUtils.pm
@@ -1329,5 +1329,23 @@ sub dolitesetup
 	return 0;
 }
 
+#----------------------------------------------------------------------------
+
+=head3  convert_xcatmaster
+
+    Convert the keyword <xcatmaster> of nameservers attr in site/networks table to IP address.
+    (Either the management node or a service node)
+
+=cut
+
+#-----------------------------------------------------------------------------
+
+sub convert_xcatmaster
+{
+    my $shorthost = xCAT::InstUtils->myxCATname();
+    my $selfip = xCAT::NetworkUtils->getipaddr($shorthost);
+
+    return $selfip;
+}
 
 1;