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

@@ -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;