For IBM servers, report planar revision, fru number, and mac addresses (if a rackmount server)

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.7@14179 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd

README

@@ -7,8 +7,3 @@ xCAT documentation is available at: http://xcat.sourceforge.net/
 xCAT is made available as open source software under the EPL license:
 http://www.opensource.org/licenses/eclipse-1.0.php
 
-
-
-
-
-

Version

@@ -1 +1 @@
-2.8pcm
+2.7.6

build-debianrepo

@@ -1,241 +0,0 @@
-#!/bin/sh
-# Update GSA Ubuntu Repositories or create a local repository
-#
-# Author: Leonardo Tonetto (tonetto@linux.vnet.ibm.com)
-# Revisor: Arif Ali (aali@ocf.co.uk)
-#
-# After running this script, add the following line to
-# /etc/apt/sources.list for local repository
-# deb file://<core_repo_path>/xcat-core/ maverick main
-# deb file://<dep_repo_path>/xcat-dep/ maverick main
-# 
-
-# For the purpose of getting the distribution name
-
-# Supported distributions
-dists="squeeze"
-
-a_flag=            # automatic flag - only update if repo was updated
-c_flag=            # xcat-core (trunk-delvel) path
-d_flag=            # xcat-dep (trunk) path
-local_flag=        # build the repository localy
-
-while getopts 'c:d:u:p:l:a' OPTION
-do
-    case $OPTION in
-	c)    c_flag=1
-	        xcat_core_path="$OPTARG"
-	        ;;
-	d)    d_flag=1
-	        xcat_dep_path="$OPTARG"
-	        ;;
-	l)    local_flag=1
-	        local_repo_path="$OPTARG"
-	        ;;
-	a)    a_flag=1
-	        ;;
-
-	?) printf "Usage: %s -c <core_trunk_path> [-d <dep_trunk_path>] -l <local-repo_path> [-a]\n" $(basename $0) >&2
-	    echo "-a        Automatic: update only if there's any update on repo"
-	    exit 2
-	    ;;
-    esac
-done
-shift $(($OPTIND - 1))
-
-if [ -z "$c_flag" -a -z "$d_flag" ]
-then
-    printf "Usage: %s -c <core_trunk_path> [-d <dep_trunk_path>] { -l <local-repo_path> | [-u <gsa_id> -p <gsa_passwd>] } [-a]\n" $(basename $0) >&2
-    echo "-a        Automatic: update only if there's any update on repo"
-    exit 2
-fi
-if [ ! -d $xcat_core_path ]
-then
-    printf "%s: No such directory\n" "$xcat_core_path" >&2
-    exit 2
-fi
-
-if [ "$d_flag" ]
-then
-    if [ ! -d $xcat_dep_path ]
-    then
-	printf "%s: No such directory\n" "$xcat_dep_path" >&2
-	exit 2
-    fi
-fi
-
-if [ "$local_flag" ]
-then
-    repo_xcat_core_path=$local_repo_path"/xcat-core"
-    repo_xcat_dep_path=$local_repo_path"/xcat-dep"
-else
-    printf "Usage: %s -c <core_trunk_path> [-d <dep_trunk_path>] -l <local-repo_path> [-a]\n" $(basename $0) >&2
-    echo "-a        Automatic: update only if there's any update on repo"
-    exit 2
-fi
-
-if [ "$a_flag" ]
-then
-    touch svcupdate.trace
-    SVCUP='svcupdate.trace'
-    svn update $xcat_core_path 1> $SVCUP 2>&1
-    if ! grep 'Tree is up to date' $SVCUP
-    then
-	update_core=1
-    else
-	update_core=
-    fi
-    rm -f $SVCUP
-else
-    update_core=1
-fi
-if [ "$c_flag" -a "$update_core" ]
-then
-    echo "###############################"
-    echo "# Building xcat-core packages #"
-    echo "###############################"
-
-    CMD_PATH=`pwd`
-    cd $xcat_core_path
-    ./build-debs-all "snap" "Nightly_Builds"
-
-    echo "#################################"
-    echo "# Creating xcat-core repository #"
-    echo "#################################"
-
-    if [ -d $repo_xcat_core_path ]; then
-    	rm -rf $repo_xcat_core_path
-    fi
-    mkdir -p $repo_xcat_core_path/conf
-
-    find . -iname '*.deb' -exec mv {} $repo_xcat_core_path \;
-
-    rm -rf debs/
-    cd $CMD_PATH
-
-    rm -rf $repo_xcat_core_path/conf/distributions
-
-    for dist in $dists; do
-       cat << __EOF__ >> $repo_xcat_core_path/conf/distributions
-Origin: xCAT internal repository
-Label: xcat-core bazaar repository
-Codename: $dist
-Architectures: amd64 
-Components: main
-Description: Repository automatically genereted conf 
-
-__EOF__
-     done
-
-    cat << __EOF__ > $repo_xcat_core_path/conf/options
-verbose
-basedir .
-__EOF__
-
-    for dist in $dists; do
-      for file in `ls $repo_xcat_core_path/*.deb`; do
-	reprepro -b $repo_xcat_core_path includedeb $dist $file;
-      done
-    done
-
-    mv $xcat_core_path/latest_version $repo_xcat_core_path/xcat-core_latest-build
-
-    cat << '__EOF__' > $repo_xcat_core_path/mklocalrepo.sh
-codename=`lsb_release -a 2>null | grep Codename | awk '{print $2}'`
-cd `dirname $0`
-echo deb file://"`pwd`" $codename main > /etc/apt/sources.list.d/xcat-core.list
-__EOF__
-
-    chmod 775 $repo_xcat_core_path/mklocalrepo.sh
-    rm -rf $repo_xcat_core_path/*.deb
-
-    if [ -z "$local_flag" ]
-    then
-	echo "###############################"
-	echo "# Updating GSA xcat-core repo #"
-	echo "###############################"
-	lftp -e "mirror -R --delete-first $repo_xcat_core_path /projects/i/ipl-xcat/ubuntu/; exit;" -u $gsa_id,$gsa_passwd -p 22 sftp://ausgsa.ibm.com
-    fi   ### if [ -z "$local_flag" ]
-fi    ### if [ "$a_flag" ]
-
-if [ "$a_flag" -a "$d_flag" ]
-then
-    touch svcupdate.trace
-    SVCUP='svcupdate.trace'
-    svn update $xcat_dep_path 1> $SVCUP 2>&1
-    if ! grep 'Tree is up to date' $SVCUP
-    then
-	update_dep=1
-    else
-	update_dep=
-    fi
-    rm -f $SVCUP
-else
-    update_dep=1
-fi
-if [ "$d_flag" -a "$update_dep" ]
-then
-    echo "##############################"
-    echo "# Building xcat-dep packages #"
-    echo "##############################"
-
-    CMD_PATH=`pwd`
-    cd $xcat_dep_path
-    ./build-debs-all "snap" "Nightly_Builds"
-
-    echo "################################"
-    echo "# Creating xcat-dep repository #"
-    echo "################################"
-    rm -rf $repo_xcat_dep_path
-    mkdir -p $repo_xcat_dep_path/conf
-    find $xcat_dep_path -iname '*.deb' -exec cp {} $repo_xcat_dep_path \;
-
-    rm -rf $repo_xcat_core_path/conf/distributions
-
-    for dist in $dists; do
-    cat << __EOF__ >> $repo_xcat_dep_path/conf/distributions
-Origin: xCAT internal repository
-Label: xcat-dep bazaar repository
-Codename: $dist
-Architectures: i386 amd64 
-Components: main
-Description: Repository automatically genereted conf 
-
-__EOF__
-done
-
-    cat << __EOF__ > $repo_xcat_dep_path/conf/options
-verbose
-basedir .
-__EOF__
-
-    for dist in $dists; do
-      for file in `ls $repo_xcat_dep_path/*.deb`; do
-	reprepro -b $repo_xcat_dep_path includedeb $dist $file;
-      done
-    done
-
-    cat << '__EOF__' > $repo_xcat_dep_path/mklocalrepo.sh
-codename=`lsb_release -a 2>null | grep Codename | awk '{print $2}'`
-cd `dirname $0`
-echo deb file://"`pwd`" $codename main > /etc/apt/sources.list.d/xcat-dep.list
-__EOF__
-
-    chmod 775 $repo_xcat_dep_path/mklocalrepo.sh
-    rm -rf $repo_xcat_dep_path/*.deb
-
-    if [ -z "$local_flag" ]
-    then
-	echo "##############################"
-	echo "# Updating GSA xcat-dep repo #"
-	echo "##############################"
-	lftp -e "mirror -R --delete-first $repo_xcat_dep_path /projects/i/ipl-xcat/ubuntu/; exit;" -u $gsa_id,$gsa_passwd -p 22 sftp://ausgsa.ibm.com
-    fi   ### if [ -z "$local_flag" ]
-fi   ### if [ "$d_flag" -a "$a_flag"]
-
-if [ -z "$local_flag" ]                 # delete the temp repo after upload is done
-then
-    rm -rf ./gsa-repo_temp
-fi
-
-exit 0

build-debs-all

@@ -6,7 +6,6 @@
 #
 # Author: Leonardo Tonetto <tonetto@linux.vnet.ibm.com>
 # Revisor: Adalberto Medeiros <adalbas@linux.vnet.ibm.com>
-# Revisor2: Arif Ali <aali@ocf.co.uk>
 #
 # Input:
 #
@@ -30,7 +29,7 @@ fi
 XCAT_VERSION=`cat Version`
 TRUNK_REVISION=`svnversion | cut -d ":" -f1`
 CUR_DATE=`date +%Y%m%d`
-VERSION="${XCAT_VERSION}-${PKG_LOCATION}${CUR_DATE}"
+VERSION="$XCAT_VERSION$PKG_LOCATION-rev$TRUNK_REVISION-$CUR_DATE"
 
 function makedeb {
 	SRC_ROOT=$1
@@ -48,7 +47,7 @@ function makedeb {
 	do
         	DIR=`echo ${DEBIAN_DIR} | sed -e 's/[/]debian$//'`
         	cd ${DIR}
-		dch -v $VERSION -b -c debian/changelog "$BUILD_STRING"
+		dch -v $VERSION -c debian/changelog "$BUILD_STRING"
         	dpkg-buildpackage
 		cd -
         	RC=$?
@@ -61,19 +60,21 @@ function makedeb {
 	#	
 	# Clean up
 	#
-	# Eliminate unnecessary directories and debian/files made by dpkg-buildpackage
+	# Eliminate unnecessary directories and debian/files made by dpgk-buildpakcage
 
 	find $SRC_ROOT -maxdepth 3 -type d -name "xcat-*" | grep debian | xargs rm -rf	
 	find $SRC_ROOT -maxdepth 3 -type f -name "files" | grep debian | xargs rm -f
 }
 
 # build all debian packages
-packages="xCAT-client xCAT-nbroot xCAT-nbroot2 perl-xCAT xCAT-server xCAT-UI xCAT xCATsn xCAT-test xCAT-IBMhpc xCAT-rmc"
-
-for file in `echo $packages`
-do
-    makedeb $file $PKG_LOCATION "$BUILD_STRING" $VERSION
-done
+makedeb xCAT-client $PKG_LOCATION "$BUILD_STRING" $VERSION
+makedeb xCAT-nbroot $PKG_LOCATION "$BUILD_STRING" $VERSION
+makedeb perl-xCAT $PKG_LOCATION "$BUILD_STRING" $VERSION
+makedeb xCAT-server $PKG_LOCATION "$BUILD_STRING" $VERSION
+makedeb xCAT-UI $PKG_LOCATION "$BUILD_STRING" $VERSION
+makedeb xCAT $PKG_LOCATION "$BUILD_STRING" $VERSION
+makedeb xCATsn $PKG_LOCATION "$BUILD_STRING" $VERSION
+makedeb xCAT-test $PKG_LOCATION "$BUILD_STRING" $VERSION
 
 if [ -d debs ]; then
 	rm -rf debs

build-ubunturepo

@@ -2,20 +2,12 @@
 # Update GSA Ubuntu Repositories or create a local repository
 #
 # Author: Leonardo Tonetto (tonetto@linux.vnet.ibm.com)
-# Revisor: Arif Ali (aali@ocf.co.uk)
 #
 # After running this script, add the following line to
 # /etc/apt/sources.list for local repository
 # deb file://<core_repo_path>/xcat-core/ maverick main
-# deb file://<dep_repo_path>/xcat-dep/ maverick main
 # 
 
-# For the purpose of getting the distribution name
-. /etc/lsb-release
-
-# Supported distributions
-dists="maverick natty oneiric precise "
-
 a_flag=            # automatic flag - only update if repo was updated
 c_flag=            # xcat-core (trunk-delvel) path
 d_flag=            # xcat-dep (trunk) path
@@ -52,7 +44,7 @@ do
 done
 shift $(($OPTIND - 1))
 
-if [ -z "$c_flag" -a -z "$d_flag" ]
+if [ -z "$c_flag" ]
 then
     printf "Usage: %s -c <core_trunk_path> [-d <dep_trunk_path>] { -l <local-repo_path> | [-u <gsa_id> -p <gsa_passwd>] } [-a]\n" $(basename $0) >&2
     echo "-a        Automatic: update only if there's any update on repo"
@@ -112,7 +104,7 @@ then
 else
     update_core=1
 fi
-if [ "$c_flag" -a "$update_core" ]
+if [ "$update_core" ]
 then
     echo "###############################"
     echo "# Building xcat-core packages #"
@@ -127,51 +119,35 @@ then
     echo "#################################"
 
     if [ -d $repo_xcat_core_path ]; then
-    	rm -rf $repo_xcat_core_path
+    	rm -rdf $repo_xcat_core_path
     fi
     mkdir -p $repo_xcat_core_path/conf
 
     find . -iname '*.deb' -exec mv {} $repo_xcat_core_path \;
 
-    rm -rf debs/
+    rm -rdf debs/
     cd $CMD_PATH
 
-    rm -rf $repo_xcat_core_path/conf/distributions
-
-    for dist in $dists; do
-       cat << __EOF__ >> $repo_xcat_core_path/conf/distributions
+    cat << __EOF__ > $repo_xcat_core_path/conf/distributions
 Origin: xCAT internal repository
 Label: xcat-core bazaar repository
-Codename: $dist
-Architectures: amd64 i386 
+Codename: maverick
+Architectures: i386 amd64 
 Components: main
 Description: Repository automatically genereted conf 
-
 __EOF__
-     done
 
     cat << __EOF__ > $repo_xcat_core_path/conf/options
 verbose
 basedir .
 __EOF__
 
-    for dist in $dists; do
-      for file in `ls $repo_xcat_core_path/*.deb`; do
-	reprepro -b $repo_xcat_core_path includedeb $dist $file;
-      done
+    for file in `ls $repo_xcat_core_path/*.deb`; do
+	reprepro -b $repo_xcat_core_path includedeb maverick $file;
     done
 
     mv $xcat_core_path/latest_version $repo_xcat_core_path/xcat-core_latest-build
 
-    cat << '__EOF__' > $repo_xcat_core_path/mklocalrepo.sh
-. /etc/lsb-release
-cd `dirname $0`
-echo deb file://"`pwd`" $DISTRIB_CODENAME main > /etc/apt/sources.list.d/xcat-core.list
-__EOF__
-
-    chmod 775 $repo_xcat_core_path/mklocalrepo.sh
-    rm -rf $repo_xcat_core_path/*.deb
-
     if [ -z "$local_flag" ]
     then
 	echo "###############################"
@@ -198,55 +174,30 @@ else
 fi
 if [ "$d_flag" -a "$update_dep" ]
 then
-    echo "##############################"
-    echo "# Building xcat-dep packages #"
-    echo "##############################"
-
-    CMD_PATH=`pwd`
-    cd $xcat_dep_path
-    ./build-debs-all "snap" "Nightly_Builds"
-
     echo "################################"
     echo "# Creating xcat-dep repository #"
     echo "################################"
-    rm -rf $repo_xcat_dep_path
+    rm -rdf $repo_xcat_dep_path
     mkdir -p $repo_xcat_dep_path/conf
     find $xcat_dep_path -iname '*.deb' -exec cp {} $repo_xcat_dep_path \;
-
-    rm -rf $repo_xcat_core_path/conf/distributions
-
-    for dist in $dists; do
-    cat << __EOF__ >> $repo_xcat_dep_path/conf/distributions
+    cat << __EOF__ > $repo_xcat_dep_path/conf/distributions
 Origin: xCAT internal repository
 Label: xcat-dep bazaar repository
-Codename: $dist
+Codename: maverick
 Architectures: i386 amd64 
 Components: main
 Description: Repository automatically genereted conf 
-
 __EOF__
-done
 
     cat << __EOF__ > $repo_xcat_dep_path/conf/options
 verbose
 basedir .
 __EOF__
 
-    for dist in $dists; do
-      for file in `ls $repo_xcat_dep_path/*.deb`; do
-	reprepro -b $repo_xcat_dep_path includedeb $dist $file;
-      done
+    for file in `ls $repo_xcat_dep_path/*.deb`; do
+	reprepro -b $repo_xcat_dep_path includedeb maverick $file;
     done
 
-    cat << '__EOF__' > $repo_xcat_dep_path/mklocalrepo.sh
-. /etc/lsb-release
-cd `dirname $0`
-echo deb file://"`pwd`" $DISTRIB_CODENAME main > /etc/apt/sources.list.d/xcat-dep.list
-__EOF__
-
-    chmod 775 $repo_xcat_dep_path/mklocalrepo.sh
-    rm -rf $repo_xcat_dep_path/*.deb
-
     if [ -z "$local_flag" ]
     then
 	echo "##############################"
@@ -258,7 +209,7 @@ fi   ### if [ "$d_flag" -a "$a_flag"]
 
 if [ -z "$local_flag" ]                 # delete the temp repo after upload is done
 then
-    rm -rf ./gsa-repo_temp
+    rm -rdf ./gsa-repo_temp
 fi
 
 exit 0

buildcore.sh

@@ -19,20 +19,14 @@
 #    directories that are needed.
 
 # Usage:  buildcore.sh [attr=value attr=value ...]
-#       Before running buildcore.sh, you must change the local git repo to the branch you want built, using: git checkout <branch>
-#		PROMOTE=1 - if the attribute "PROMOTE" is specified, means an official dot release.  This does not
-#					actually build xcat, just uploads the most recent snap build to https://sourceforge.net/projects/xcat/files/xcat/ .
-#					If not specified, a snap build is assumed, which uploads to https://sourceforge.net/projects/xcat/files/yum/
-#					or https://sourceforge.net/projects/xcat/files/aix/.
-#		PREGA=1 - use this option with PROMOTE=1 on a branch that already has a released dot release, but this build is
-#					a GA candidate build, not to be released yet.  This will result in the tarball being uploaded to
-#					https://sourceforge.net/projects/xcat/files/yum/ or https://sourceforge.net/projects/xcat/files/aix/
-#					(but the tarball file name will be like a released tarball, not a snap build).  When you are ready to
-#					release this build, use PROMOTE=1 without PREGA
+#		PROMOTE=1 - if the attribute "PROMOTE" is specified, means an official dot release.
+#					Otherwise, and snap build is assumed.
+#		PREGA=1 - means this is a branch that has not been released yet, so during the promote, copy the
+#					xcat-core tarball to the SF web site instead of the FRS area.
 #		BUILDALL=1 - build all rpms, whether they changed or not.  Should be used for snap builds that are in prep for a release.
 # 		UP=0 or UP=1 - override the default upload behavior 
 # 		SVNUP=<filename> - control which rpms get built by specifying a coresvnup file
-# 		GITUP=<filename> - control which rpms get built by specifying a coregitup file
+#       FRSYUM=0 - put the yum repo and snap builds in the old project web area instead of the FRS area.
 #		EMBED=<embedded-environment> - the environment for which a minimal version of xcat should be built, e.g. zvm or flex
 #		VERBOSE=1 - to see lots of verbose output
 
@@ -40,17 +34,6 @@
 UPLOADUSER=bp-sawyers
 FRS=/home/frs/project/x/xc/xcat
 
-# These are the rpms that should be built for each kind of xcat build
-ALLBUILD="perl-xCAT xCAT-client xCAT-server xCAT-IBMhpc xCAT-rmc xCAT-UI xCAT-test xCAT-buildkit xCAT xCATsn xCAT-genesis-scripts"
-ZVMBUILD="perl-xCAT xCAT-server xCAT-UI"
-ZVMLINK="xCAT-client xCAT xCATsn"
-PCMBUILD="xCAT"
-PCMLINK="perl-xCAT xCAT-client xCAT-server xCAT-buildkit xCAT-genesis-scripts-x86_64"
-# Note: for FSM, the FlexCAT rpm is built separately from gsa/git
-FSMBUILD="perl-xCAT xCAT-client xCAT-server"
-FSMLINK=""
-# If you add more embed cases, also change the if [ -n "$EMBED" ]... below
-
 # Process cmd line variable assignments, assigning each attr=val pair to a variable of same name
 for i in $*; do
 	# upper case the variable name
@@ -85,53 +68,40 @@ if [ "$OSNAME" != "AIX" ]; then
 	export HOME=/root		# This is so rpm and gpg will know home, even in sudo
 fi
 
-# for the git case, query the current branch and set REL (changing master to devel if necessary)
-function setbranch {
-	#git checkout $BRANCH
-	#REL=`git rev-parse --abbrev-ref HEAD`
-	REL=`git name-rev --name-only HEAD`
-	if [ "$REL" = "master" ]; then
-		REL="devel"
-	fi
-}
-
-if [ "$REL" = "xcat-core" ]; then			# using git
-	GIT=1
-	setbranch			# this changes the REL variable
+# this is needed only when we are transitioning the yum over to frs
+if [ "$FRSYUM" != 0 ]; then
+	YUMDIR=$FRS
+	YUMREPOURL="https://sourceforge.net/projects/xcat/files/yum"
+else
+	YUMDIR=htdocs
+	YUMREPOURL="http://xcat.sourceforge.net/yum"
 fi
 
-YUMDIR=$FRS
-YUMREPOURL="https://sourceforge.net/projects/xcat/files/yum"
-
 # Set variables based on which type of build we are doing
-if [ -n "$EMBED" ]; then
-	EMBEDDIR="/$EMBED"
-	if [ "$EMBED" = "zvm" ]; then
-		EMBEDBUILD=$ZVMBUILD
-		EMBEDLINK=$ZVMLINK
-	elif [ "$EMBED" = "pcm" ]; then
-		EMBEDBUILD=$PCMBUILD
-		EMBEDLINK=$PCMLINK
-	elif [ "$EMBED" = "fsm" ]; then
-		EMBEDBUILD=$FSMBUILD
-		EMBEDLINK=$FSMLINK
+if [ -n "$EMBED" ]; then EMBEDDIR="/$EMBED"
+else EMBEDDIR=""; fi
+XCATCORE="xcat-core"		# core-snap is a sym link to xcat-core
+echo "svn --quiet up Version"
+svn --quiet up Version
+VER=`cat Version`
+SHORTVER=`cat Version|cut -d. -f 1,2`
+SHORTSHORTVER=`cat Version|cut -d. -f 1`
+if [ "$PROMOTE" = 1 ]; then
+	CORE="xcat-core"
+	if [ "$OSNAME" = "AIX" ]; then
+		TARNAME=core-aix-$VER.tar.gz
 	else
-		echo "Error: EMBED setting $EMBED not recognized."
-		exit 2
+		TARNAME=xcat-core-$VER.tar.bz2
 	fi
 else
-	EMBEDDIR=""
-	EMBEDBUILD=$ALLBUILD
-	EMBEDLINK=""
-fi
-
-XCATCORE="xcat-core"		# core-snap is a sym link to xcat-core
-
-if [ "$GIT" = "1" ]; then			# using git - need to include REL in the path where we put the built rpms
-	DESTDIR=../../$REL$EMBEDDIR/$XCATCORE
-else
-	DESTDIR=../..$EMBEDDIR/$XCATCORE
+	CORE="core-snap"
+	if [ "$OSNAME" = "AIX" ]; then
+		TARNAME=core-aix-snap.tar.gz
+	else
+		TARNAME=core-rpms-snap.tar.bz2
+	fi
 fi
+DESTDIR=../..$EMBEDDIR/$XCATCORE
 SRCD=core-snap-srpms
 
 # currently aix builds ppc rpms, but someday it should build noarch
@@ -141,21 +111,8 @@ else
 	NOARCH=noarch
 fi
 
-function setversionvars {
-	VER=`cat Version`
-	SHORTVER=`cat Version|cut -d. -f 1,2`
-	SHORTSHORTVER=`cat Version|cut -d. -f 1`
-}
-
 
 if [ "$PROMOTE" != 1 ]; then      # very long if statement to not do builds if we are promoting
-# we are doing a snap build
-CORE="core-snap"
-if [ "$OSNAME" = "AIX" ]; then
-	TARNAME=core-aix-snap.tar.gz
-else
-	TARNAME=core-rpms-snap.tar.bz2
-fi
 mkdir -p $DESTDIR
 SRCDIR=$DESTDIR/../$SRCD
 mkdir -p $SRCDIR
@@ -176,34 +133,18 @@ else
 	#echo "source=$source"
 fi
 
-# If they have not given us a premade update file, do an svn update or git pull and capture the results
+# If they have not given us a premade update file, do an svn update and capture the results
+if [ -z "$SVNUP" ]; then
+	SVNUP=../coresvnup
+	echo "svn up > $SVNUP"
+	svn up > $SVNUP
+fi
 SOMETHINGCHANGED=0
-if [ "$GIT" = "1" ]; then			# using git
-	if [ -z "$GITUP" ]; then
-		GITUP=../coregitup
-		echo "git pull > $GITUP"
-		git pull > $GITUP
-	fi
-	if ! $GREP 'Already up-to-date' $GITUP; then
-		SOMETHINGCHANGED=1
-	fi
-else		# using svn
-	GIT=0
-	if [ -z "$SVNUP" ]; then
-		SVNUP=../coresvnup
-		echo "svn up > $SVNUP"
-		svn up > $SVNUP
-	fi
-	if ! $GREP 'At revision' $SVNUP; then
-		SOMETHINGCHANGED=1
-	fi
-	# copy the SVNUP variable to GITUP so the rest of the script doesnt have to worry whether we did svn or git
-	GITUP=$SVNUP
+if ! $GREP 'At revision' $SVNUP; then
+	SOMETHINGCHANGED=1
 fi
 
-setversionvars
-
-# Function for making the noarch rpms
+# Process for making most of the rpms
 function maker {
 	rpmname="$1"
 	./makerpm $rpmname "$EMBED"
@@ -218,11 +159,9 @@ function maker {
 }
 
 # If anything has changed, we should always rebuild perl-xCAT
-if [ $SOMETHINGCHANGED == 1 -o "$BUILDALL" == 1 ]; then		# Use to be:  $GREP perl-xCAT $GITUP; then
-	if [[ " $EMBEDBUILD " = *\ perl-xCAT\ * ]]; then
-		UPLOAD=1
-		maker perl-xCAT
-	fi
+if [ $SOMETHINGCHANGED == 1 -o "$BUILDALL" == 1 ]; then		# Use to be:  $GREP perl-xCAT $SVNUP; then
+	UPLOAD=1
+	maker perl-xCAT
 fi
 if [ "$OSNAME" = "AIX" ]; then
 	# For the 1st one we overwrite, not append
@@ -230,12 +169,10 @@ if [ "$OSNAME" = "AIX" ]; then
 fi
 
 # Build the rest of the noarch rpms
-for rpmname in xCAT-client xCAT-server xCAT-IBMhpc xCAT-rmc xCAT-UI xCAT-test xCAT-buildkit; do
-	#if [ "$EMBED" = "zvm" -a "$rpmname" != "xCAT-server" -a "$rpmname" != "xCAT-UI" ]; then continue; fi		# for zvm embedded env only need to build server and UI
-	if [[ " $EMBEDBUILD " != *\ $rpmname\ * ]]; then continue; fi
-	if [ "$OSNAME" = "AIX" -a "$rpmname" = "xCAT-buildkit" ]; then continue; fi		# do not build xCAT-buildkit on aix
-	if $GREP $rpmname $GITUP || [ "$BUILDALL" == 1 ]; then
+for rpmname in xCAT-client xCAT-server xCAT-IBMhpc xCAT-rmc xCAT-UI xCAT-test; do
+	if $GREP $rpmname $SVNUP || [ "$BUILDALL" == 1 ]; then
 		UPLOAD=1
+		if [ "$EMBED" = "zvm" -a "$rpmname" != "xCAT-server" -a "$rpmname" != "xCAT-UI" ]; then continue; fi		# for embedded envs only need to build server special
 		maker $rpmname
 	fi
 	if [ "$OSNAME" = "AIX" ]; then
@@ -245,38 +182,35 @@ for rpmname in xCAT-client xCAT-server xCAT-IBMhpc xCAT-rmc xCAT-UI xCAT-test xC
 	fi
 done
 
-# Build xCAT-genesis-scripts for xcat-core.  xCAT-genesis-base gets built by hand and put in xcat-dep.
-# The mknb cmd combines them at install time.
-if [ "$OSNAME" != "AIX" ]; then
-	if [[ " $EMBEDBUILD " = *\ xCAT-genesis-scripts\ * ]]; then
-		if $GREP xCAT-genesis-scripts $GITUP || [ "$BUILDALL" == 1 ]; then
-			UPLOAD=1
-			ORIGFAILEDRPMS="$FAILEDRPMS"
-			./makerpm xCAT-genesis-scripts x86_64 "$EMBED"
-			if [ $? -ne 0 ]; then FAILEDRPMS="$FAILEDRPMS xCAT-genesis-scripts-x86_64"; fi
-			if [ "$FAILEDRPMS" = "$ORIGFAILEDRPMS" ]; then	# all succeeded
-				rm -f $DESTDIR/xCAT-genesis-scripts*rpm
-				rm -f $SRCDIR/xCAT-genesis-scripts*rpm
-				mv $source/RPMS/noarch/xCAT-genesis-scripts-*rpm $DESTDIR
-				mv $source/SRPMS/xCAT-genesis-scripts-*rpm $SRCDIR
-			fi
+if [ "$OSNAME" != "AIX" -a "$EMBED" != "zvm" ]; then
+	if grep -v nbroot2 $SVNUP|$GREP xCAT-nbroot || [ "$BUILDALL" == 1 ]; then
+		UPLOAD=1
+		ORIGFAILEDRPMS="$FAILEDRPMS"
+		for arch in x86_64 x86 ppc64; do
+			./makerpm xCAT-nbroot-core $arch
+			if [ $? -ne 0 ]; then FAILEDRPMS="$FAILEDRPMS xCAT-nbroot-core-$arch"; fi
+		done
+		if [ "$FAILEDRPMS" = "$ORIGFAILEDRPMS" ]; then	# all succeeded
+			rm -f $DESTDIR/xCAT-nbroot-core*rpm
+			rm -f $SRCDIR/xCAT-nbroot-core*rpm
+			mv $source/RPMS/noarch/xCAT-nbroot-core-*rpm $DESTDIR
+			mv $source/SRPMS/xCAT-nbroot-core-*rpm $SRCDIR
 		fi
 	fi
 fi
 
 # Build the xCAT and xCATsn rpms for all platforms
 for rpmname in xCAT xCATsn; do
-	#if [ "$EMBED" = "zvm" ]; then break; fi
-	if [[ " $EMBEDBUILD " != *\ $rpmname\ * ]]; then continue; fi
-	if [ $SOMETHINGCHANGED == 1 -o "$BUILDALL" == 1 ]; then		# used to be:  if $GREP -E "^[UAD] +$rpmname/" $GITUP; then
+	if [ "$EMBED" = "zvm" ]; then break; fi
+	if [ $SOMETHINGCHANGED == 1 -o "$BUILDALL" == 1 ]; then		# used to be:  if $GREP -E "^[UAD] +$rpmname/" $SVNUP; then
 		UPLOAD=1
 		ORIGFAILEDRPMS="$FAILEDRPMS"
 		if [ "$OSNAME" = "AIX" ]; then
-			./makerpm $rpmname "$EMBED"
+			./makerpm $rpmname
 			if [ $? -ne 0 ]; then FAILEDRPMS="$FAILEDRPMS $rpmname"; fi
 		else
-			for arch in x86_64 ppc64 s390x; do
-				./makerpm $rpmname $arch "$EMBED"
+			for arch in x86_64 i386 ppc64 s390x; do
+				./makerpm $rpmname $arch
 				if [ $? -ne 0 ]; then FAILEDRPMS="$FAILEDRPMS $rpmname-$arch"; fi
 			done
 		fi
@@ -288,30 +222,24 @@ for rpmname in xCAT xCATsn; do
 		fi
 	fi
 done
-# no longer put in xCAT-rmc
+
 if [ "$OSNAME" = "AIX" ]; then
 	echo "rpm -Uvh xCAT-$SHORTSHORTVER*rpm" >> $DESTDIR/instxcat
+	echo "rpm -Uvh xCAT-rmc-$SHORTSHORTVER*rpm" >> $DESTDIR/instxcat
 fi
 
 # Make sym links in the embed subdirs for the rpms we do not have to build special
-if [ -n "$EMBED" -a -n "$EMBEDLINK" ]; then
-	cd $DESTDIR
+cd $DESTDIR
+if [ "$EMBED" = "zvm" ]; then
 	maindir="../../$XCATCORE"
-	for rpmname in $EMBEDLINK; do
-		if [ "$rpmname" = "xCAT" -o "$rpmname" = "xCATsn" ]; then
-			if [ "$EMBED" = "zvm" ]; then
-				echo "Creating link for $rpmname-$SHORTSHORTVER"'*.s390x.rpm'
-				rm -f $rpmname-$SHORTSHORTVER*rpm
-				ln -s $maindir/$rpmname-$SHORTSHORTVER*.s390x.rpm .
-			fi
-		else
-			echo "Creating link for $rpmname-$SHORTSHORTVER"'*rpm'
-			rm -f $rpmname-$SHORTSHORTVER*rpm
-			ln -s $maindir/$rpmname-$SHORTSHORTVER*rpm .
-		fi
-	done
-	cd - >/dev/null
+	rm -f xCAT-client-$SHORTSHORTVER*rpm
+	ln -s $maindir/xCAT-client-$SHORTSHORTVER*rpm .
+	rm -f xCAT-$SHORTSHORTVER*rpm
+	ln -s $maindir/xCAT-$SHORTSHORTVER*.s390x.rpm .
+	rm -f xCATsn-$SHORTSHORTVER*rpm
+	ln -s $maindir/xCATsn-$SHORTSHORTVER*.s390x.rpm .
 fi
+cd - >/dev/null
 
 
 # Decide if anything was built or not
@@ -348,8 +276,8 @@ if [ "$OSNAME" != "AIX" ]; then
 	echo "Signing RPMs..."
 	build-utils/rpmsign.exp `find $DESTDIR -type f -name '*.rpm'` | grep -v -E '(was already signed|rpm --quiet --resign|WARNING: standard input reopened)'
 	build-utils/rpmsign.exp $SRCDIR/*rpm | grep -v -E '(was already signed|rpm --quiet --resign|WARNING: standard input reopened)'
-	createrepo --checksum sha $DESTDIR            # specifying checksum so the repo will work on rhel5
-	createrepo --checksum sha $SRCDIR
+	createrepo $DESTDIR
+	createrepo $SRCDIR
 	rm -f $SRCDIR/repodata/repomd.xml.asc
 	rm -f $DESTDIR/repodata/repomd.xml.asc
 	gpg -a --detach-sign $DESTDIR/repodata/repomd.xml
@@ -378,17 +306,7 @@ chmod -R g+w $DESTDIR
 chgrp -R xcat $SRCDIR
 chmod -R g+w $SRCDIR
 
-else		# end of very long if-not-promote
-	# we are only promoting (not building)
-	setversionvars
-	setbranch
-	CORE="xcat-core"
-	if [ "$OSNAME" = "AIX" ]; then
-		TARNAME=core-aix-$VER.tar.gz
-	else
-		TARNAME=xcat-core-$VER.tar.bz2
-	fi
-fi
+fi		# end of very long if-not-promote
 
 cd $DESTDIR
 
@@ -489,7 +407,6 @@ if [ "$OSNAME" != "AIX" -a "$REL" = "devel" -a "$PROMOTE" != 1 -a -z "$EMBED" ];
 	rpm2cpio ../$XCATCORE/xCAT-client-*.$NOARCH.rpm | cpio -id '*.html'
 	rpm2cpio ../$XCATCORE/perl-xCAT-*.$NOARCH.rpm | cpio -id '*.html'
 	rpm2cpio ../$XCATCORE/xCAT-test-*.$NOARCH.rpm | cpio -id '*.html'
-	rpm2cpio ../$XCATCORE/xCAT-buildkit-*.$NOARCH.rpm | cpio -id '*.html'
 	i=0
 	while [ $((i+=1)) -le 5 ] && ! rsync $verboseflag -r opt/xcat/share/doc/man1 opt/xcat/share/doc/man3 opt/xcat/share/doc/man5 opt/xcat/share/doc/man7 opt/xcat/share/doc/man8 $UPLOADUSER,xcat@web.sourceforge.net:htdocs/
 	do : ; done

builddep.sh

@@ -126,7 +126,7 @@ if [ "$OSNAME" != "AIX" ]; then
 fi
 
 if [ "$OSNAME" == "AIX" ]; then
-	# Build the instoss file ------------------------------------------
+	# Build the instoss file
 
 	cat >instoss << 'EOF'
 #!/bin/ksh
@@ -146,25 +146,22 @@ else
 fi
 cd $OSVER
 # Have to install rpms 1 at a time, since some may be already installed.
-# The only interdependency between the dep rpms so far is that net-snmp requires bash, and
-# pyodbc requires unixODBC.  (The bash dependency is taken care of automatically because it
-# comes earlier in the alphabet.)
+# The only interdependency between the dep rpms so far is that net-snmp requires bash
+#  pyodbc is dependent on unixODBC
 rpm -Uvh unixODBC*
-for i in `ls *.rpm|grep -v -E '^tcl-|^tk-|^expect-|^unixODBC-|^xCAT-UI-deps|^perl-DBD-DB2Lite'`; do
+for i in `ls *.rpm|grep -v -E '^tcl-|^tk-|^expect-|^unixODBC-|^xCAT-UI-deps'`; do
 	if [ "$i" == "perl-Net-DNS-0.66-1.aix5.3.ppc.rpm" ]; then
 		opts="--nodeps"
 	else
 		opts=""
 	fi
-	
-	# just in case we need it sometime, this next if stmt would mean: if it does not start with perl-DBD-DB2
+	# this next if stmt means: if i does not start with perl-DBD-DB2
 	#if [ "${i#perl-DBD-DB2}" == "$i" ]; then
-	
-	echo rpm -Uvh $opts $i
-	rpm -Uvh $opts $i
+		echo rpm -Uvh $opts $i
+		rpm -Uvh $opts $i
+	#fi
 done
 # don't try to install tcl, tk, or expect if they are already installed!
-# this section about expect/tcl/tk can be removed once 2.8 releases, because 2.8 no longer requires expect
 lslpp -l | grep expect.base > /dev/null 2>&1
 if [ $? -gt 0 ]; then
 	if [ "$OSVER" == "5.3" ]; then
@@ -177,7 +174,7 @@ if [ $? -gt 0 ]; then
 	fi
 fi
 EOF
-# end of instoss file content ---------------------------------------------
+# end of instoss file content
 
 
 	chmod +x instoss
@@ -216,8 +213,7 @@ else
 	echo "Creating $DFNAME ..."
 	tar $verbosetar -jcf $DFNAME xcat-dep
 fi
-
-#cd xcat-dep  <-- now we want to stay above xcat-dep, so we can rsync the whole dir
+cd xcat-dep
 
 if [ "$UP" == 0 ]; then
  exit 0;
@@ -239,12 +235,12 @@ if [ "$FRSYUM" != 0 ]; then
 else
 	links="-l"
 fi
-echo "Uploading RPMs from xcat-dep to $YUMDIR/$YUM/ ..."
-while [ $((i+=1)) -le 5 ] && ! rsync $links -ruv --delete xcat-dep $UPLOADUSER,xcat@web.sourceforge.net:$YUMDIR/$YUM/
+echo "Uploading RPMs to $YUMDIR/$YUM/xcat-dep/ ..."
+while [ $((i+=1)) -le 5 ] && ! rsync $links -ruv --delete * $UPLOADUSER,xcat@web.sourceforge.net:$YUMDIR/$YUM/xcat-dep/
 do : ; done
 
 # Upload the tarball to the SF FRS Area
 i=0
 echo "Uploading $DFNAME to $FRS/xcat-dep/$FRSDIR/ ..."
-while [ $((i+=1)) -le 5 ] && ! rsync -v $DFNAME $UPLOADUSER,xcat@web.sourceforge.net:$FRS/xcat-dep/$FRSDIR/
+while [ $((i+=1)) -le 5 ] && ! rsync -v ../$DFNAME $UPLOADUSER,xcat@web.sourceforge.net:$FRS/xcat-dep/$FRSDIR/
 do : ; done

makegenesisbuilderrpm

@@ -13,11 +13,11 @@ then
 	exit 1
 fi
 echo "The location for rpm building is ${RPMROOT}"
-cd `dirname $0`/xCAT-genesis-builder
+cd `dirname $0`/xCAT-nbroot2
 tar --exclude .svn -cjvf $RPMROOT/SOURCES/xCAT-genesis-builder.tar.bz2 .
 #mv -f *.gz $RPMROOT/SOURCES
 cp LICENSE.html $RPMROOT/BUILD
 cp xCAT-genesis-builder.spec $RPMROOT/SOURCES
 cd -
 rm -f $RPMROOT/SRPMS/xCAT-genesis-builder-$VER*rpm $RPMROOT/RPMS/*/xCAT-genesis-builder-$VER*rpm
-rpmbuild -ba xCAT-genesis-builder/xCAT-genesis-builder.spec
+rpmbuild -ba xCAT-nbroot2/xCAT-genesis-builder.spec

makerpm

@@ -32,9 +32,9 @@ function makenoarch {
 
 
 
-# Make one of the following rpms: xCAT, xCATsn, xCAT-buildkit
+# Make one of the following rpms: xCAT, xCATsn
 function makexcat {
-	if [ "$OSNAME" != "AIX" -a "$1" != "xCAT-buildkit" -a -z "$2" ]; then
+	if [ "$OSNAME" != "AIX" -a -z "$2" ]; then
 		echo 'Usage: makerpm <RPMname> <arch> [<embedded-system>]'
 		exit 1
 	fi
@@ -68,34 +68,24 @@ function makexcat {
 		RC=$?
 	else	# linux
 		ARCH="$2"
-		TARGET="--target $ARCH"
+		cd `dirname $0`/$RPMNAME
 
 		if [ "$RPMNAME" = "xCAT" ]; then
-			cd `dirname $0`/$RPMNAME
-			tar --exclude .svn --exclude upflag -czf $RPMROOT/SOURCES/postscripts.tar.gz  postscripts LICENSE.html
+			tar --exclude .svn -czf $RPMROOT/SOURCES/postscripts.tar.gz  postscripts LICENSE.html
 			tar --exclude .svn -czf $RPMROOT/SOURCES/prescripts.tar.gz  prescripts
 			tar --exclude .svn -czf $RPMROOT/SOURCES/templates.tar.gz templates
 			cp xcat.conf $RPMROOT/SOURCES
 			cp xCATMN $RPMROOT/SOURCES
-			cd - >/dev/null
-		elif [ "$RPMNAME" = "xCATsn" ]; then
-			cd `dirname $0`/$RPMNAME
+		else	# xCATsn
 			tar --exclude .svn -czf $RPMROOT/SOURCES/license.tar.gz LICENSE.html
 			cp xcat.conf $RPMROOT/SOURCES
 			cp xCATSN $RPMROOT/SOURCES
-			cd - >/dev/null
-		elif [ "$RPMNAME" = "xCAT-buildkit" ]; then
-			ARCH="noarch"
-			TARGET=""
-			tar --exclude .svn --exclude xCAT-buildkit.spec -czf $RPMROOT/SOURCES/$RPMNAME-$VER.tar.gz $RPMNAME
-		else	# do not recognize rpm
-			echo "Unrecognized rpm: $RPMNAME"
-			exit 2
 		fi
 
+		cd - >/dev/null
 		rm -f $RPMROOT/SRPMS/$RPMNAME-$VER*rpm $RPMROOT/RPMS/$ARCH/$RPMNAME-$VER*rpm
 		echo "Building $RPMROOT/RPMS/$ARCH/$RPMNAME-$VER-snap*.$ARCH.rpm $EMBEDTXT..."
-		rpmbuild $QUIET -ba $RPMNAME/$RPMNAME.spec $TARGET
+		rpmbuild $QUIET -ba $RPMNAME/$RPMNAME.spec --target $ARCH
 		RC=$?
 	fi
 }
@@ -125,9 +115,9 @@ function makenbroot {
 
 
 
-# Make the xCAT-genesis rpm
+# Make the xCAT-nbroot-core rpm
 function makegenesis {
-	DIR="xCAT-genesis-builder"
+	DIR="xCAT-nbroot2"
 	RPMNAME="$1"
 	cd `dirname $0`/$DIR
 	tar --exclude .svn -cjf $RPMROOT/SOURCES/$RPMNAME.tar.bz2 .
@@ -138,25 +128,6 @@ function makegenesis {
 	echo "Building $RPMROOT/RPMS/noarch/$RPMNAME-$VER-snap*.noarch.rpm $EMBEDTXT..."
 	rpmbuild $QUIET -ba $DIR/$RPMNAME.spec
 }
-function makegenesisscripts {
-	DIR="xCAT-genesis-scripts"
-	if [ -z "$2" ]; then
-		echo 'Usage: makerpm xCAT-genesis-scripts <arch> [<embedded-system>]'
-		exit 1
-	fi
-
-	RPMNAME="$1"
-	ARCH="$2"
-	TARGET="--target $ARCH"
-	cd `dirname $0`/
-	tar --exclude .svn -cjf $RPMROOT/SOURCES/$RPMNAME.tar.bz2 $DIR
-	cp $DIR/LICENSE.html $RPMROOT/BUILD
-	cp $DIR/$RPMNAME.spec $RPMROOT/SOURCES
-	cd - >/dev/null
-	rm -f $RPMROOT/SRPMS/$RPMNAME-$ARCH-$VER*rpm $RPMROOT/RPMS/noarch/$RPMNAME-$ARCH-$VER*rpm
-	echo "Building $RPMROOT/RPMS/noarch/$RPMNAME-$ARCH-$VER-snap*.noarch.rpm $EMBEDTXT..."
-	rpmbuild $QUIET -ba $DIR/$RPMNAME.spec $TARGET
-}
 
 
 # Export the name of the embedded system we are building for
@@ -201,18 +172,15 @@ else	# linux
 fi
 
 
-if [ "$1" = "xCAT" -o "$1" = "xCATsn" -o "$1" = "xCAT-buildkit" ]; then
+if [ "$1" = "xCAT" -o "$1" = "xCATsn" ]; then
 	exportEmbed $3
 	makexcat $1 $2
 elif [ "$1" = "xCAT-nbroot" -o "$1" = "xCAT-nbroot-core" ]; then
 	exportEmbed $3
 	makenbroot xCAT-nbroot-core $2
 elif [ "$1" = "xCAT-genesis-builder" ]; then
-	exportEmbed $2
-	makegenesis $1
-elif [ "$1" = "xCAT-genesis-scripts" ]; then
 	exportEmbed $3
-	makegenesisscripts $1 $2
+	makegenesis $1 $2
 else	# must be one of the noarch rpms
 	exportEmbed $2
 	makenoarch $1

perl-xCAT/debian/control

@@ -2,7 +2,7 @@ Source: perl-xcat
 Section: libs
 Priority: extra
 Maintainer: Arif Ali <aali@ocf.co.uk>
-Build-Depends: debhelper (>= 5), libsoap-lite-perl, libdbi-perl
+Build-Depends: debhelper (>= 5), libsoap-lite-perl
 Standards-Version: 3.7.2
 
 Package: perl-xcat

perl-xCAT/debian/perl-xcat.install

@@ -1,7 +1,7 @@
-xCAT/*    /opt/xcat/lib/perl/xCAT/
+xCAT/*    usr/lib/perl5/xCAT
 share/man/man5/*	opt/xcat/share/man/man5
 share/doc/man5/*	opt/xcat/share/doc/man5
 share/man/man7/*	opt/xcat/share/man/man7
 share/doc/man7/*	opt/xcat/share/doc/man7
 LICENSE.html		opt/xcat/share/doc/packages/perl-xCAT
-README			opt/xcat/
+README			opt/xcat/

perl-xCAT/debian/rules

@@ -14,7 +14,7 @@ export DH_COMPAT=5
 
 build:
 	dh_testdir
-	./modifyUtils `cat ../Version` `svn info | grep Revision | cut -d" " -f 2`
+	./modifyUtils `cat ../Version`
 	./db2man
 
 clean:
@@ -26,7 +26,7 @@ install:
 	dh_testdir
 	dh_testroot
 	dh_installdirs
-	dh_install -X".svn"
+	dh_install
 
 
 # Build architecture-independent files here.
@@ -40,7 +40,7 @@ binary-arch: build install
 	dh_installchangelogs 
 	dh_installdocs
 #	dh_installexamples
-	dh_install -X".svn"
+	dh_install
 	chmod 644 `pwd`/debian/perl-xcat/opt/xcat/lib/perl/xCAT/*
 	chmod 755 `pwd`/debian/perl-xcat/opt/xcat/lib/perl/xCAT/data
 	chmod 644 `pwd`/debian/perl-xcat/opt/xcat/share/doc/packages/perl-xCAT/*

perl-xCAT/modifyUtils

@@ -1,26 +1,34 @@
 #!/bin/sh
 # Put the version, svn revision #, and build date into the Version function in Version.pm
 
-if [ -z "$1" ]
+if [ -z "$2" ]
 	then
-	echo "modifyUtils:  Error:  must specify the xCAT version as an argument" >&2
+	echo "modifyUtils:  Error:  must specify the xCAT version and svn revision number as arguments" >&2
 	exit
 fi
 
 VER=$1
+SVNREF="svn r$2, "
+
+#SVNINFO=`svn info 2>/dev/null|grep Revision`
+#/bin/echo -e $SVNINFO
+#if [ $? -ne 0 -a -f .svninfo ]; then
+#    SVNINFO=`cat .svninfo 2>/dev/null|grep Revision`
+#fi
+#if [ $? -eq 0 ]
+#	then
+#		SVNREF="svn r"`echo $SVNINFO|awk '{print $2}'`", "
+#	else
+#		SVNREF=""
+#	fi
 
 BUILDDATE=`date`
-#echo ". '(built $BUILDDATE)'"
+#echo ". '(${SVNREF}built $BUILDDATE)'"
 
 if [ "$(uname)" = "AIX" ]
 then
-	sed -e s/"#XCATVERSIONSUBHERE"/". '$VER'"/ -e s/"#XCATSVNBUILDSUBHERE"/". ' (built $BUILDDATE)'"/ xCAT/Version.pm >xCAT/Version.pm.new
+	sed -e s/"#XCATVERSIONSUBHERE"/". '$VER'"/ -e s/"#XCATSVNBUILDSUBHERE"/". ' (${SVNREF}built $BUILDDATE)'"/ xCAT/Version.pm >xCAT/Version.pm.new
 	mv xCAT/Version.pm.new xCAT/Version.pm
 else
-        if [ -f "/etc/debian_version" ];then
-            FILENAME="debian/perl-xcat/opt/xcat/lib/perl/xCAT/Version.pm"
-        else
-            FILENAME="xCAT/Version.pm"
-        fi
-	sed -i -e s/"#XCATVERSIONSUBHERE"/". '$VER'"/ -e s/"#XCATSVNBUILDSUBHERE"/". ' (built $BUILDDATE)'"/ $FILENAME
+	sed -i -e s/"#XCATVERSIONSUBHERE"/". '$VER'"/ -e s/"#XCATSVNBUILDSUBHERE"/". ' (${SVNREF}built $BUILDDATE)'"/ xCAT/Version.pm
 fi

perl-xCAT/perl-xCAT.spec

@@ -24,7 +24,7 @@ Provides perl xCAT libraries for core functionality.  Required for all xCAT inst
 Includes xCAT::Table, xCAT::NodeRange, among others.
 
 %define zvm %(if [ "$zvm" = "1" ];then echo 1; else echo 0; fi)
-%define fsm %(if [ "$fsm" = "1" ];then echo 1; else echo 0; fi)
+%define svninfo %(svn info | grep Revision | awk '{print $2}')
 
 %prep
 %setup -q -n perl-xCAT
@@ -33,15 +33,12 @@ Includes xCAT::Table, xCAT::NodeRange, among others.
 # All of the tarball source has been unpacked there and is in the same file structure
 # as it is in svn.
 
-%if %fsm
-%else
 # Modify the Version() function in xCAT/Utils.pm to automatically have the correct version
-./modifyUtils %{version}
+./modifyUtils %{version} %{svninfo}
 
 # Build the pod version of the man pages for each DB table.  It puts them in the man5 and man7 subdirs.
 # Then convert the pods to man pages and html pages.
 ./db2man
-%endif
 
 %install
 # The install phase puts all of the files in the paths they should be in when the rpm is
@@ -78,18 +75,6 @@ rm $RPM_BUILD_ROOT/%{prefix}/lib/perl/xCAT/PPC*.pm
 cp xCAT/PPCdb.pm $RPM_BUILD_ROOT/%{prefix}/lib/perl/xCAT/
 chmod 644 $RPM_BUILD_ROOT/%{prefix}/lib/perl/xCAT/PPCdb.pm
 %endif
-# Don't ship these on FSM, to reduce dependencies
-%if %fsm
-rm $RPM_BUILD_ROOT/%{prefix}/lib/perl/xCAT/hpoa.pm
-rm $RPM_BUILD_ROOT/%{prefix}/lib/perl/xCAT/vboxService.pm
-rm $RPM_BUILD_ROOT/%{prefix}/lib/perl/xCAT/FSP*.pm
-rm $RPM_BUILD_ROOT/%{prefix}/lib/perl/xCAT/RemoteShellExp.pm
-rm $RPM_BUILD_ROOT/%{prefix}/lib/perl/xCAT/LparNetbootExp.pm
-rm $RPM_BUILD_ROOT/%{prefix}/lib/perl/xCAT/PPC*.pm
-# have to put PPCdb.pm back because it is needed by Postage.pm
-cp xCAT/PPCdb.pm $RPM_BUILD_ROOT/%{prefix}/lib/perl/xCAT/
-chmod 644 $RPM_BUILD_ROOT/%{prefix}/lib/perl/xCAT/PPCdb.pm
-%endif
 
 cp LICENSE.html $RPM_BUILD_ROOT/%{prefix}/share/doc/packages/perl-xCAT
 chmod 644 $RPM_BUILD_ROOT/%{prefix}/share/doc/packages/perl-xCAT/*
@@ -97,8 +82,6 @@ chmod 644 $RPM_BUILD_ROOT/%{prefix}/share/doc/packages/perl-xCAT/*
 cp README $RPM_BUILD_ROOT/%{prefix}
 chmod 644 $RPM_BUILD_ROOT/%{prefix}/README
 
-%if %fsm
-%else
 # These were built dynamically in the build phase
 cp share/man/man5/* $RPM_BUILD_ROOT/%{prefix}/share/man/man5
 chmod 644 $RPM_BUILD_ROOT/%{prefix}/share/man/man5/*
@@ -108,7 +91,6 @@ cp share/man/man7/* $RPM_BUILD_ROOT/%{prefix}/share/man/man7
 chmod 644 $RPM_BUILD_ROOT/%{prefix}/share/man/man7/*
 cp share/doc/man7/* $RPM_BUILD_ROOT/%{prefix}/share/doc/man7
 chmod 644 $RPM_BUILD_ROOT/%{prefix}/share/doc/man7/*
-%endif
 
 %clean
 # This step does not happen until *after* the %files packaging below
@@ -140,8 +122,18 @@ fi
 if [ "$1" -gt 1 ]; then #Ugrade only, restart daemon and migrate settings
    if [ -x /etc/init.d/xcatd ] && [ -f "/proc/cmdline" ]; then
       . /etc/profile.d/xcat.sh
+      /etc/init.d/xcatd reload
    fi
 fi
+%else 
+if [ "$1" -gt 1 ]; then #Ugrade only, restart daemon and migrate settings
+  if [ -n "$INUCLIENTS" ] && [ $INUCLIENTS -eq 1 ]; then
+    #Do nothing in not running system
+    echo "Do not restartxcatd in not running system"
+  else
+    XCATROOT=$RPM_INSTALL_PREFIX0 $RPM_INSTALL_PREFIX0/sbin/restartxcatd -r
+  fi 
+fi
 %endif
 exit 0
 

perl-xCAT/xCAT/CFMUtils.pm

@@ -1,826 +0,0 @@
-# IBM(c) 2012 EPL license http://www.eclipse.org/legal/epl-v10.html
-
-package xCAT::CFMUtils;
-
-BEGIN
-{
-  $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
-}
-use lib "$::XCATROOT/lib/perl";
-
-use strict;
-use warnings;
-use File::Path;
-use File::Copy;
-use File::Find;
-use Getopt::Long;
-use Data::Dumper;
-use File::Basename;
-use xCAT::Table;
-use xCAT::Utils;
-use xCAT::MsgUtils;
-1;
-
-#-----------------------------------------------------------------------------
-
-=head3 initCFMdir
-    Initialize CFM directories and files. The default layout under cfmdir is:
-    . 
-    |-- etc
-    | |-- group.merge -> /etc/group.merge
-    | |-- hosts -> /etc/hosts
-    | |-- passwd.merge -> /etc/passwd.merge
-    | |-- shadow.merge -> /etc/shadow.merge
-    |-- group.OS -> /etc/group.OS
-    |-- passwd.OS -> /etc/passwd.OS
-    |-- shadow.OS -> /etc/shadow.OS
-    Note: the *.OS files are the backups for the original /etc/passwd, shadow, group files
-
-    Arguments:
-      $cfmdir
-    Returns:
-      0 - initialize successfully
-      1 - initialize failed
-    Globals:
-      none 
-    Error:
-      none
-    Example:
-      xCAT::CFMUtils->initCFMdir($cfmdir);
-
-=cut
-
-#-----------------------------------------------------------------------------
-sub initCFMdir
-{
-    my ($class, $cfmdir) = @_;
-
-    # below system files will be synced to all compute nodes
-    my @sysfiles = ("/etc/hosts");
-
-    # the /etc/passwd, shadow, group files will be merged 
-    my @userfiles = ("/etc/passwd", "/etc/shadow", "/etc/group");
-
-    # create the cfmdir
-    if (! -d $cfmdir)
-    {
-        mkpath $cfmdir;
-    }
-
-    # backup the OS files and create links under cfmdir
-    foreach my $file (@userfiles)
-    {
-        my $backup = $file.".OS";
-        if (! -e $backup)
-        {
-            copy($file, $backup);
-        }
-
-        if (! -e "$cfmdir/".basename($backup))
-        {
-            symlink($backup, "$cfmdir/".basename($backup));
-        }
-    }
-
-    # Initialize CFM directory and related files
-    if (! -d "$cfmdir/etc")
-    {
-        mkpath "$cfmdir/etc";
-    }
-
-    # link the system files
-    foreach my $file (@sysfiles)
-    {
-        symlink($file, "$cfmdir/$file");
-    }
-    # touch and link the merge files for /etc/passwd, shadow, group
-    foreach my $file (@userfiles)
-    {
-        my $merge = $file.".merge";
-        if (! -e "$merge")
-        {
-            xCAT::Utils->runcmd("touch $merge", -1);
-        }
-
-        if (! -e "$cfmdir/$merge")
-        {
-            symlink($merge, "$cfmdir/$merge");
-        }
-    }
-}
-
-#-----------------------------------------------------------------------------
-
-=head3 updateUserInfo
-    Update the /etc/passwd, shadow, group merge files under specified CFM directory
-
-    Arguments:
-      $cfmdir - CFM directory for osimage      
-    Returns:
-      0 - update successfully
-      1 - update failed
-    Globals:
-      $::CALLBACK
-    Error:
-      none
-    Example:
-      my $ret = xCAT::CFMUtils->updateUserInfo($cfmdir);
-
-=cut
-
-#-----------------------------------------------------------------------------
-sub updateUserInfo {
-    my ($class, $cfmdir) = @_;
-
-    my @userfiles = ("/etc/passwd", "/etc/shadow", "/etc/group");
-
-    my @osfiles = glob("$cfmdir/*.OS");
-    if (!@osfiles)
-    {
-        if ($::VERBOSE)
-        {
-            my $rsp = {};
-            $rsp->{data}->[0] = "Skiping the update of the /etc/passwd, shadow, group merge files under the CFM directory.";
-            xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
-        }
-	return 0;
-    }
-
-    foreach my $file (@userfiles)
-    {
-        my @oldrecords = ();
-        my @newrecords = ();
-        my $backup = basename($file).".OS";
-
-        # get the records from /etc/passwd, shadow, group file and backup files(.OS files)
-        # and all the files from /install/osimages/$imgname/cfmdir directory  
-        foreach my $userinfo ($file, "$cfmdir/$backup") 
-        {
-            my $fp;
-            open($fp, $userinfo);
-            my @records = ();
-            while (<$fp>)
-            {
-                my $line = xCAT::CFMUtils->trim($_);
-                if (($line =~ /^#/) || ($line =~ /^\s*$/ ))
-                { #comment line or blank line
-                    next;
-                } else
-                {    
-                    push @records, $line;
-                }   
-            }
-            close($fp);
-
-            # check the records from /etc/passwd, shadow, group file or backup
-            if ($userinfo =~ /^\/etc/ )
-            {
-                @newrecords = @records;
-            } else {
-                @oldrecords = @records;
-            }
-        }
-
-        # update the merge file
-        my $mergefile = $cfmdir."/".$file.".merge";
-        my @diff = xCAT::CFMUtils->arrayops("D", \@newrecords, \@oldrecords);
-        # output the diff to merge files
-        my $fp;
-        open($fp, '>', $mergefile);
-        if (@diff)
-        {
-            for my $record (@diff)
-            {
-               print $fp "$record\n";
-            }
-        }
-        close ($fp);
-        
-    }
-
-    return 0;
-}
-
-
-#-----------------------------------------------------------------------------
-=head3 setCFMSynclistFile
-    Set osimage synclists attribute for CFM function, the CMF synclist file is:
-    /install/osimages/<imagename>/synclist.cfm
-
-    Arguments:
-      $imagename - the specified osimage name
-    Returns:
-      It returns the cfmdir path if it is defined for an osimage object
-    Globals:
-      $::CALLBACK
-    Error:
-      none
-    Example:
-      my $cfmdir = xCAT::CFMUtils->setCFMSynclistFile($imagename);
-      if ($cfmdir) { # update the CFM synclist file }
-=cut
-#-----------------------------------------------------------------------------
-sub setCFMSynclistFile {
-    my ($class, $img) = @_;
-
-    my $cfmdir;
-    my $synclists;
-    my $cfmsynclist = "/install/osimages/$img/synclist.cfm";
-
-    # get the cfmdir and synclists attributes
-    my $osimage_t = xCAT::Table->new('osimage');
-    my $records = $osimage_t->getAttribs({imagename=>$img}, 'cfmdir', 'synclists');
-    if ($records)
-    {
-        if ($records->{'cfmdir'}) {$cfmdir = $records->{'cfmdir'}}
-        if ($records->{'synclists'}) {$synclists = $records->{'synclists'}}
-    } else {
-        if ($::VERBOSE)
-        {
-            my $rsp = {};
-            $rsp->{data}->[0] = "There are no records for cfmdir and synclists attribute in the osimage:$img. There is nothing to process.";
-            xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
-        }
-        return;
-    }
-
-    # no cfmdir defined, return directly
-    if (!$cfmdir)
-    {
-        return;
-    }
-
-    my $found = 0;
-    my $index = 0; 
-    if ($synclists)
-    {
-        # the synclists is a comma separated list
-        my @lists = split(/,/, $synclists);
-        foreach my $synclist (@lists)
-        {
-            # find the synclist configuration for CFM
-            if ($synclist eq $cfmsynclist) 
-            {
-                $found = 1;
-                last;
-            }
-            $index += 1;
-        }
-        if ($found == 0)
-        {
-            # the CFM synclist is not defined, append it to $synclists
-            $synclists = "$synclists,$cfmsynclist"; 
-            # set the synclists attribute 
-            $osimage_t->setAttribs({imagename=>$img}, {'synclists' => $synclists});
-        }
-    } else {
-        # no synclists defined, set it to CFM synclist file
-        if ($cfmdir) { $synclists = $cfmsynclist; }
-        $osimage_t->setAttribs({imagename=>$img}, {'synclists' => $synclists});
-    }
-
-    return $cfmdir;   
-}
-
-
-#-----------------------------------------------------------------------------
-
-=head3 updateCFMSynclistFile
-    Update the synclist file(/install/osimages/<imagename>/synclist.cfm) for CFM function. 
-    It will recursively scan the files under cfmdir directory and then add them to CFM synclist file.
-    Note:
-    The files with suffix ".append" will be appended to the dest file(records in "APPEND:" section).
-    The files with suffix ".merge" will be merged to the dest file(records in "MERGE:" section).
-
-    In addition, it will reserve the user specified records in the synclist file. The example synclist file:
-	<cfmdir>/etc/hosts -> /etc/hosts
-	/root/install.log -> /tmp/install.log
-	...
-
-	APPEND:
-	<cfmdir>/etc/hosts.append -> /etc/hosts
-	/root/install.log.syslog -> /tmp/install.log
-	...
-	EXECUTE:
-	...
-	EXECUTEALWAYS:
-	...
-	MERGE:
-	<cfmdir>/etc/group.merge -> /etc/group
-	<cfmdir>/etc/shadow.merge -> /etc/shadow
-	<cfmdir>/etc/passwd.merge -> /etc/passwd
-
-    Arguments:
-      \@imagenames - reference to the osimage names array
-    Returns:
-      0 - update successfully
-      1 - update failed
-    Globals:
-      $::CALLBACK
-    Error:
-      none
-    Example:
-      my $ret = CAT::CFMUtils->updateCFMSynclistFile(\@imagenames);
-
-=cut
-
-#-----------------------------------------------------------------------------
-sub updateCFMSynclistFile {
-    my ($class, $imgs) = @_;
-
-    my @osimgs = @$imgs;
-    if (!@osimgs)
-    {
-        my $rsp = {};
-        $rsp->{error}->[0] = "No osimage names specified to process.";
-        xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
-        return 1;
-    }
-
-    foreach my $osimg (@osimgs)
-    {
-        my $cfmdir;
-        $cfmdir = xCAT::CFMUtils->setCFMSynclistFile($osimg);
-        if ($cfmdir)   # check for /install/osiamges/$osimg/cfmdir
-        {
-            my $cfmsynclist = "/install/osimages/$osimg/synclist.cfm";
-            if (! -d $cfmdir)
-            {
-                # skip this one go on to the next image, nothing to do for 
-                # CFMUtils in this image
-                next;
-            }
-            # create the parent directory of CFM synclist file
-            if (! -d dirname($cfmsynclist))
-            {
-                mkpath dirname($cfmsynclist);
-            }
-
-            # update /etc/passwd, shadow, group merge files
-            my $ret = xCAT::CFMUtils->updateUserInfo($cfmdir);
-            if ($ret !=0 )
-            {
-                my $rsp = {};
-                $rsp->{error}->[0] = 
-                "Update /etc/passwd, shadow, group merge files failed.";
-                xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
-                return 1;
-            }
-
-            # recursively list the files under cfm directory 
-            my @files = ();
-            find ( sub { push @files, $File::Find::name if (! -d) }, $cfmdir);
-            if (!@files) # not files under cfm directory, skip to next loop 
-            {
-                next;
-            }
-
-            my $fp;
-            open($fp, '>', $cfmsynclist);
-            my @mergefiles = ();
-            my @appendfiles = ();
-            foreach my $file (@files)
-            {
-                my $name = basename($file);
-                #TODO: find a better way to get the suffix 
-                my $suffix = ($name =~ m/([^.]+)$/)[0];
-                my $dest = substr($file, length($cfmdir));
-                if ($suffix eq "OS") # skip the backup files
-                {
-                    next;
-                } elsif ($suffix eq "merge") # merge file
-                {
-                    push(@mergefiles, $file);
-                } elsif ($suffix eq "append") { # append file
-                    push(@appendfiles, $file); 
-                } else { # output the syncing files maintained by CFM
-                    print $fp "$file -> $dest\n";
-                }
-            }
-
-            # output the APPEND records maintained by CFM
-            if (@appendfiles) {
-                print $fp "APPEND:\n";
-            }
-            foreach my $file (@appendfiles)
-            { 
-                my $dest = substr($file, length($cfmdir), length($file) - length(".append") - length($cfmdir));
-                print $fp "$file -> $dest\n";
-            }
-
-            # output the MERGE records maintained by CFM
-            if (@mergefiles) {
-                print $fp "MERGE:\n";
-            }
-            foreach my $file (@mergefiles)
-            {
-                my @userfiles = ("/etc/passwd", "/etc/shadow", "/etc/group");
-                my $dest = substr($file, length($cfmdir), length($file) - length(".merge") - length($cfmdir));
-                # only /etc/passwd, /etc/shadow, /etc/groups merging is supported
-                if (grep(/$dest/, @userfiles)) {		
-                    print $fp "$file -> $dest\n";
-                }
-            }
-            
-            # close the file 
-            close($fp);   
-        }
-    }
- 
-    return 0;
-}
-
-#-----------------------------------------------------------------------------
-=head3 setCFMPkglistFile
-    Set the pkglist attribute of linuximage object for CFM function
-
-    Arguments:
-      $imagename - the specified linuximage name
-    Returns:
-      0 - update successfully
-      1 - update failed
-    Globals:
-      $::CALLBACK
-    Error:
-      none
-    Example:
-      my $ret = xCAT::CFMUtils->setCFMPkglistFile($imagename);
-=cut
-#-----------------------------------------------------------------------------
-sub setCFMPkglistFile {
-    my ($class, $img) = @_;
-
-    my $pkglists = "";
-    my $cfmpkglist = "/install/osimages/$img/pkglist.cfm";
-
-    # get the pkglist files
-    my $linuximage_t = xCAT::Table->new('linuximage');
-    my $records = $linuximage_t->getAttribs({imagename => $img}, 'pkglist');
-    if ($records)
-    {
-        if ($records->{'pkglist'}) { $pkglists = $records->{'pkglist'}; }
-    } else 
-    {
-        if ($::VERBOSE)
-        {
-            my $rsp = {};
-            $rsp->{data}->[0] = "There are no records for pkglist attribute in the linuximage:$img. There is nothing to process.";
-            xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
-        }
-    }
-
-    my $found = 0;
-    if ($pkglists)
-    {
-        foreach my $pkglist (split(/,/, $pkglists))
-        {
-            if ($pkglist eq $cfmpkglist) # the pkglist file for CFM is found, exit the loop 
-            {
-                $found = 1;
-                last;
-            }
-        }
-        # the pkglist file for CFM is not found, append it to $pkglits 
-        if (!$found) 
-        {
-            $pkglists = "$pkglists,$cfmpkglist"; 
-            # set the pkglist attribute for linuximage
-            $linuximage_t->setAttribs({imagename => $img}, {'pkglist' => $pkglists});
-        } 
-    } else 
-    {
-        # the pkglist file for linuximage is not defined, set it to $cfmpkglist
-        $pkglists = $cfmpkglist;
-        $linuximage_t->setAttribs({imagename => $img}, {'pkglist' => $pkglists});
-    }
-
-    return 0;   
-}
-
-#-----------------------------------------------------------------------------
-
-=head3 updateCFMPkglistFile
-    Update the ospkglist file
-
-    Arguments:
-      $imagename - the specified linuximage name
-      @curospkgs - the currently selected OS packages list
-    Returns:
-      0 - update successfully
-      1 - update failed
-    Globals:
-      none
-    Error:
-      none
-    Example:
-      my $ret = CAT::CFMUtils->updateCFMPkglistFile($imagename, @cur_selected_pkgs);
-
-=cut
-
-#-----------------------------------------------------------------------------
-sub updateCFMPkglistFile {
-    my ($class, $img, $ospkgs) = @_;
-     
-    my @cur_selected = @$ospkgs;
-    my $cfmpkglist = "/install/osimages/$img/pkglist.cfm";
-
-    my $ret = xCAT::CFMUtils->setCFMPkglistFile($img);
-    if ($ret)
-    {
-        my $rsp = {};
-        $rsp->{error}->[0] = "Set pkglist attribute for CFM failed.";
-        xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
-        return 1;
-    }
-
-    # check the parent directory of cfmpkglist file
-    if (! -d dirname($cfmpkglist))
-    {
-        mkpath dirname($cfmpkglist);
-    }
-
-    # get previous selected and removed OS packages list from pkglist file
-    my ($pre_selected_ref, $pre_removed_ref) = xCAT::CFMUtils->getPreOSpkgsList($cfmpkglist);
-    my @pre_selected = @$pre_selected_ref;
-    my @pre_removed = @$pre_removed_ref;
-
-    # get the #INCLUDE file from cfmpkglist file
-    my @incfiles = xCAT::CFMUtils->getIncludefiles($cfmpkglist);
-    # get the packages list in the #INCLUDE files
-    my @basepkgs = ();
-    foreach my $inc (@incfiles)
-    {
-        my ($selected_ref, $removed_ref) = xCAT::CFMUtils->getPreOSpkgsList($inc);
-        my @selected = @$selected_ref;
-        @basepkgs = xCAT::CFMUtils->arrayops("U", \@basepkgs, \@selected);
-    }
-
-    # get diff between previous and current selected OS packages lists    
-    my @diff = xCAT::CFMUtils->getPkgsDiff(\@pre_selected, \@cur_selected);
- 
-    # merge the diff to previous removed OS packages list
-    my @all_removed = xCAT::CFMUtils->arrayops("U", \@pre_removed, \@diff);
-
-    # get the rollbacked OS packages list, the packages are existing in both removed and selected lists
-    # if so, we should remove the rollbacked OS packages from removed list
-    my @rollback = xCAT::CFMUtils->arrayops("I", \@all_removed, \@cur_selected);
-    my @cur_removed = xCAT::CFMUtils->arrayops("D", \@all_removed, \@rollback);
-
-    # remove the BASE packages from selected pakages
-    @basepkgs = xCAT::CFMUtils->arrayops("I", \@basepkgs, \@cur_selected);
-    @cur_selected = xCAT::CFMUtils->arrayops("D", \@cur_selected, \@basepkgs);
-
-    # update the pkglist file
-    my $fp;
-    open($fp, '>', $cfmpkglist);
-    foreach my $inc (@incfiles)
-    {
-        print $fp "#INCLUDE:$inc#\n";
-    }
-    # the pacakges be installed
-    if (@cur_selected)
-    {
-        foreach my $pkg (@cur_selected)
-        {
-            print $fp "$pkg\n";
-        }
-    }
-    # the packages be removed
-    if (@cur_removed)
-    {
-        foreach my $pkg (@cur_removed)
-        {
-            print $fp "-$pkg\n";
-        }
-    }
-    # close the file
-    close($fp);
-
-    return 0;
-}
-
-#-----------------------------------------------------------------------------
-
-=head3 getPreOSpkgsList
-    Get previously selected and removed OS packages lists from pkglist file
-
-    Arguments:
-      $ospkglist - the path for ospkglist file
-    Returns:
-      refs for selected and removed OS packages arrays
-    Globals:
-      none
-    Error:
-      none
-    Example:
-      my ($pre_selected_ref, $pre_removed_ref) = xCAT::CFMUtils->getPreOSpkgsList($ospkglist);
-      my @pre_selected = @$pre_selected_ref;
-      my @pre_removed = @$pre_removed_ref;
-
-=cut
-
-#-----------------------------------------------------------------------------
-sub getPreOSpkgsList {
-    my ($class, $pkglist) = @_;
-    my @selected = ();
-    my @removed = ();
-    my @pkglistfiles = ();
-
-    # get the #INCLUDE file from cfmpkglist file
-    my @incfiles = xCAT::CFMUtils->getIncludefiles($pkglist);
-    foreach my $inc (@incfiles)
-    {
-        push @pkglistfiles, $inc;
-    }
-    # assume the #INCLUDE file includes the BASE packages
-    push @pkglistfiles, $pkglist;
-
-    foreach my $file (@pkglistfiles)
-    {
-        my $pkglistfp;
-        open($pkglistfp, xCAT::CFMUtils->trim($file));
-        while (<$pkglistfp>)
-        {
-            my $line = xCAT::CFMUtils->trim($_);
-            if (($line =~ /^#/) || ($line =~ /^\s*$/ ) || ($line =~ /^@/))
-            { #comment line or blank line
-                next;
-            } else
-            {
-                if ($line =~ /^-/)
-                { # the package be removed
-                    push @removed, substr($line, 1);
-                } else
-                { # the package be installed
-                    push @selected, $line;
-                } 
-            }
-        }    
-        close($pkglistfp);
-    }
-
-    # delete the removed packages from selected list
-    my @intersection = xCAT::CFMUtils->arrayops("I", \@removed, \@selected);
-    @selected = xCAT::CFMUtils->arrayops("D", \@selected, \@intersection);
-
-    return (\@selected, \@removed);
-}
-
-#-----------------------------------------------------------------------------
-
-=head3 getPkgsDiff
-    Get the differences between previous and current packages list
-
-    Arguments:
-      @pre - previous selected packages list
-      @cur - current selected packages list
-    Returns:
-      @diff - the differencen list
-    Globals:
-      none
-    Error:
-      none
-    Example:
-      my @diff = xCAT::CFMUtils->getPkgsDiff(\@pre_selected, \@cur_selected);
-
-=cut
-
-#-----------------------------------------------------------------------------
-sub getPkgsDiff {
-    my ($class, $pre, $cur) = @_;
-
-    # get the intersection firstly
-    my @tmp = xCAT::CFMUtils->arrayops("I", \@$pre, \@$cur);
-
-    # get the difference
-    my @diff = xCAT::CFMUtils->arrayops("D", \@$pre, \@tmp);
-    #print Dumper(@diff);
-
-    return @diff;
-}
-
-#-----------------------------------------------------------------------------
-
-=head3 getIncludefiles 
-    Get the #INCLUDE files from the given file 
-
-    Arguments:
-      $file - the given file
-    Returns:
-      @files - the #INCLUDE files list
-    Globals:
-      none
-    Error:
-      none
-    Example:
-      my @diff = xCAT::CFMUtils->getIncludefiles($file);
-
-=cut
-
-#-----------------------------------------------------------------------------
-sub getIncludefiles {
-    my ($class, $file) = @_;
-    my @files = ();
-
-    my $fp;
-    open($fp, $file);
-    while (<$fp>)
-    {
-        my $line = xCAT::CFMUtils->trim($_);
-        if ($line =~ /^\s*$/)
-        { # blank line
-            next;
-        }
-        # find the #INCLUDE line
-        if ($line =~ /^\s*#INCLUDE:[^#^\n]+#/)
-        {
-            #print "The line is: [$line]\n";
-            my $incfile = substr($line, length("#INCLUDE:"), length($line)-length("#INCLUDE:")-1);
-            push @files, $incfile;
-        }
-    }
-    close($fp);
-
-    return @files;
-}
-
-#-----------------------------------------------------------------------------
-
-=head3 trim
-    Strip left and right whitspaces for a string 
-
-    Arguments:
-      $string
-    Returns:
-      @string
-    Globals:
-      none
-    Error:
-      none
-    Example:
-      my @new_string = xCAT::CFMUtils->trim($string);
-
-=cut
-
-#-----------------------------------------------------------------------------
-sub trim {
-    my ($class, $string) = @_;
-
-    # trim the left whitespaces
-    $string =~ s/^\s*//;
-
-    # trim the right whitespaces
-    $string =~ s/\s*$//;
-
-    return $string;
-}
-
-# Function: compute Union, Intersection or Difference of unique lists
-# Usage: arrayops ("U"/"I"/"D", @a, @b)
-# Return: @union/@intersection/@difference
-#-----------------------------------------------------------------------------
-
-=head3 arrayops
-    Compute Union/Intersection/Difference for 2 unique lists
-
-    Arguments:
-      $flag - "U"/"I"/"D"
-      \@array1 - reference to an arrary
-      \@array2 - reference to an arrary
-    Returns:
-      @union/@intersection/@difference
-    Globals:
-      none
-    Error:
-      none
-    Example:
-      my @array = xCAT::CFMUtils->arrayops(\@array1, \@array2);
-
-=cut
-
-#-----------------------------------------------------------------------------
-sub arrayops {
-    my ($class, $ops, $array1, $array2) = @_;
-
-    my @union = ();
-    my @intersection = ();
-    my @difference = ();
-    my %count = ();
-    foreach my $element (@$array1, @$array2) 
-    { 
-        $count{$element}++ 
-    }
-
-    foreach my $element (keys %count) {
-        push @union, $element;
-        push @{ $count{$element} > 1 ? \@intersection : \@difference }, $element;
-    }
-
-    if ($ops eq "U") { return @union; }
-   
-    if ($ops eq "I") { return @intersection; }
-
-    if ($ops eq "D") { return @difference; }
-
-    #return (\@union, \@intersection, \@difference);
-}

perl-xCAT/xCAT/Client.pm

@@ -9,7 +9,10 @@ BEGIN
 # if AIX - make sure we include perl 5.8.2 in INC path.
 #       Needed to find perl dependencies shipped in deps tarball.
 if ($^O =~ /^aix/i) {
-	unshift(@INC, qw(/usr/opt/perl5/lib/5.8.2/aix-thread-multi /usr/opt/perl5/lib/5.8.2 /usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi /usr/opt/perl5/lib/site_perl/5.8.2));
+        use lib "/usr/opt/perl5/lib/5.8.2/aix-thread-multi";
+        use lib "/usr/opt/perl5/lib/5.8.2";
+        use lib "/usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi";
+        use lib "/usr/opt/perl5/lib/site_perl/5.8.2";
 }
 
 my $inet6support;
@@ -24,15 +27,6 @@ if ($inet6support) {
 if ($inet6support) {
    $inet6support = eval { require IO::Socket::SSL; IO::Socket::SSL->import('inet6'); 1;};
 }
-
-if ($^O =~ /^linux/i) {
-    # Is IPv6 enabled on the MN or xcat client node at all?
-    my $ipv6enabled = `ip addr | grep inet6`;
-    if (!$ipv6enabled) {
-        $inet6support = 0;
-    }
-}
-
 unless ($inet6support) {
   eval { require Socket };
   eval { require IO::Socket::INET };
@@ -125,7 +119,7 @@ sub submit_request {
   unless ($cafile) { $cafile  = $homedir."/.xcat/ca.pem"; }
   $xCAT::Client::EXITCODE = 0;    # clear out exit code before invoking the plugin
 if (ref($request) eq 'HASH') { # the request is an array, not pure XML
- $request->{clienttype}->[0] = "cli";   # setup clienttype for auditlog
+   $request->{clienttype}->[0] = "cli";   # setup clienttype for auditlog
 }
 # If XCATBYPASS is set, invoke the plugin process_request method directly
 # without going through the socket connection to the xcatd daemon
@@ -135,7 +129,6 @@ if (ref($request) eq 'HASH') { # the request is an array, not pure XML
        if (!(defined($request->{username}))) {
          $request->{username}->[0] = getpwuid($>);
        }
-
        # only allow root to run
        unless ($request->{username}->[0] =~ /root/) {
          print ("WARNING: Only allow root to run XCATBYPASS mode, your current user ID is $request->{username}->[0].\n");
@@ -153,16 +146,14 @@ if (ref($request) eq 'HASH') { # the request is an array, not pure XML
        }
     } else {
        # figure out default plugins dir
-       #my $sitetab=xCAT::Table->new('site');
-       #unless ($sitetab) {
-       #  print ("ERROR: Unable to open basic site table for configuration\n");
-       #}
+       my $sitetab=xCAT::Table->new('site');
+       unless ($sitetab) {
+         print ("ERROR: Unable to open basic site table for configuration\n");
+       }
        $plugins_dir=$::XCATROOT.'/lib/perl/xCAT_plugin';
        scan_plugins();
     }
 
-    populate_site_hash();
-
   #  don't do XML transformation -- assume request is well-formed
   #  my $xmlreq=XMLout($request,RootName=>xcatrequest,NoAttr=>1,KeyAttr=>[]);
   #  $request = XMLin($xmlreq,SuppressEmpty=>undef,ForceArray=>1) ;
@@ -181,7 +172,7 @@ if (ref($request) eq 'HASH') { # the request is an array, not pure XML
   }
   my $pclient;
   if ($inet6support) {
-     $pclient = IO::Socket::INET6->new(
+  	$pclient = IO::Socket::INET6->new(
     PeerAddr => $xcathost,
     Timeout => 15,
     );
@@ -207,13 +198,23 @@ if (ref($request) eq 'HASH') { # the request is an array, not pure XML
     SSL_cert_file => $certfile,
     SSL_ca_file => $cafile,
     SSL_use_cert => 1,
-    Timeout => 0,
-   );
+     Timeout => 0,
+     );
   } else {
-    $client =  IO::Socket::SSL->start_SSL($pclient,
-		 Timeout => 0,
-		);
+  	 $client =  IO::Socket::SSL->start_SSL($pclient,
+	                 Timeout => 0,
+	                );
   }
+  unless ($client) {
+     print "Unable to open socket connection to xcatd daemon on $xcathost.\n";
+     print "Verify that the xcatd daemon is running and that your SSL setup is correct.\n";
+     if ($@ =~ /SSL Timeout/) {
+        die "Connection failure: SSL Timeout or incorrect certificates in ~/.xcat";
+     } else {
+        die "Connection failure: $@"
+     }
+  }
+
   my $msg;
   if (ref($request) eq 'HASH') { # the request is an array, not pure XML
     $msg=XMLout($request,RootName=>'xcatrequest',NoAttr=>1,KeyAttr=>[]);
@@ -372,6 +373,7 @@ sub plugin_command {
   my $callback = shift;
   my %handler_hash;
   my $usesiteglobal = 0;
+
   # We require these only in bypass mode to reduce start up time for the normal case
   #use lib "$::XCATROOT/lib/perl";
   #use xCAT::NodeRange;
@@ -405,6 +407,11 @@ sub plugin_command {
     unless (@nodes) {
        $req->{emptynoderange} = [1];
     }
+
+    if(@nodes == 0 ) {
+        print "No nodes or noderanges specified\n";
+        return 1;
+     }
   }
   if (@nodes) { $req->{node} = \@nodes; }
   my %unhandled_nodes;
@@ -422,14 +429,13 @@ sub plugin_command {
       if ($hdlspec =~ /^site:/) { #A site entry specifies a plugin
           my $sitekey = $hdlspec;
           $sitekey =~ s/^site://;
-          #$sitetab = xCAT::Table->new('site');
-          #my $sent = $sitetab->getAttribs({key=>$sitekey},['value']);
-          #if ($sent and $sent->{value}) { #A site style plugin specification is just like
-          if ($::XCATSITEVALS{$sitekey}) { #A site style plugin specification is just like
+          $sitetab = xCAT::Table->new('site');
+          my $sent = $sitetab->getAttribs({key=>$sitekey},['value']);
+          if ($sent and $sent->{value}) { #A site style plugin specification is just like
                                           #a static global, it grabs all nodes rather than some
             $useglobals = -1; #If they tried to specify anything, don't use the default global handlers at all
             unless (@nodes) {
-              $handler_hash{$::XCATSITEVALS{$sitekey}} = 1;
+              $handler_hash{$sent->{value}} = 1;
               $usesiteglobal = 1;
             }
             foreach (@nodes) { #Specified a specific plugin, not a table lookup
@@ -532,8 +538,7 @@ sub plugin_command {
           }
       } #Otherwise, global handler is implicitly disabled
   } else {
-     print "Error request: $req->{command}->[0]  has no known plugin for it.\n"; 
-    return 1;  
+    return 1;  #TODO: error back that request has no known plugin for it
   }
   if ($useunhandled) {
    my $queuelist;
@@ -718,7 +723,7 @@ sub dispatch_request {
     if (ref $_->{'_xcatdest'} and (ref $_->{'_xcatdest'}) eq 'ARRAY') {
         _->{'_xcatdest'} =  $_->{'_xcatdest'}->[0];
     }
-    if ($onlyone and not ($_->{'_xcatdest'} and xCAT::NetworkUtils->thishostisnot($_->{'_xcatdest'}))) {
+    if ($onlyone and not ($_->{'_xcatdest'} and xCAT::Utils->thishostisnot($_->{'_xcatdest'}))) {
        $SIG{CHLD}='DEFAULT';
        ${"xCAT_plugin::".$modname."::"}{process_request}->($_,$dispatch_cb,\&do_request);
         return;
@@ -759,7 +764,7 @@ sub dispatch_request {
      my $request_satisfied=0;
      foreach $xcatdest (@xcatdests) {
         my $dlock;
-        if ($xcatdest and xCAT::NetworkUtils->thishostisnot($xcatdest)) {
+        if ($xcatdest and xCAT::Utils->thishostisnot($xcatdest)) {
 #----- added to Client.pm -----#
        $dispatch_cb->({warning=>['XCATBYPASS is set, skipping hierarchy call to '.$_->{'_xcatdest'}.'']});
 #----- end added to Client.pm -----#
@@ -890,28 +895,11 @@ sub build_response {
 
 }    # end of submit_request()
 
-####################################
-# populates all the site attributes into %::XCATSITEVALS
-# This is used with XCATBYPASS=1
-###################################
-sub populate_site_hash {
-    %::XCATSITEVALS=();
-    my $sitetab = xCAT::Table->new('site',-create=>0);
-    unless ($sitetab) { 
-       print ("ERROR: Unable to open basic site table for configuration\n");
-       return; 
-    }
-    my @records = $sitetab->getAllAttribs(qw/key value/);
-    foreach (@records) {
-        $::XCATSITEVALS{$_->{key}}=$_->{value};
-    }
-}
-
 
 
 ##########################################
-# handle_response is a default callback that can be passed into submit_request()
-# It is invoked repeatedly by submit_request() to print out the data returned by
+# handle_response is a default callback that can be passed into submit_response()
+# It is invoked repeatedly by submit_response() to print out the data returned by
 # the plugin.
 #
 # The normal flow is:
@@ -991,7 +979,7 @@ sub populate_site_hash {
 ##########################################
 sub handle_response {
   my $rsp = shift;
-  if ($ENV{'XCATSHOWXML'}) {
+   if ($ENV{'XCATSHOWXML'}) {
     my  $xmlrec=XMLout($rsp,RootName=>'xcatresponse',NoAttr=>1,KeyAttr=>[]);
     print "$xmlrec\n";
    return;

perl-xCAT/xCAT/DBobjUtils.pm

@@ -16,7 +16,6 @@ require xCAT::Table;
 require xCAT::Utils;
 require xCAT::MsgUtils;
 require xCAT::NetworkUtils;
-require xCAT::ServiceNodeUtils;
 use strict;
 
 #  IPv6 not yet implemented - need Socket6
@@ -396,44 +395,6 @@ sub getobjdefs
                     xCAT::MsgUtils->message("E", $rsp, $::callback);	
                 }
             }
-        } elsif (($objtype eq 'auditlog') || ($objtype eq 'eventlog')) {
-            # Special case for auditlog/eventlog
-            # All the auditlog/eventlog attributes are in auditlog/eventlog table,
-            # Do not need to read the table multiple times for each attribute.
-            # The auditlog/eventlog is likely be very big over time,
-            # performance is a big concern with the general logic
-            my @TableRowArray = xCAT::DBobjUtils->getDBtable($objtype);
-            foreach my $objname (sort @{$type_obj{$objtype}}) {
-                if (@TableRowArray)
-                {
-                    my $foundinfo = 0;
-                    foreach my $entry (@TableRowArray)
-                    {
-                        if ($entry->{recid} eq $objname)
-                        {
-                            foreach my $k (keys %{$entry})
-                            {
-                                # recid is the object name, do not need to be in the attributes list
-                                if ($k eq 'recid') { next; }
-                                if (defined($entry->{$k}) ) {
-                                    $foundinfo++;
-                                    if ($verbose == 1) {
-                                        $objhash{$objname}{$k} = "$entry->{$k}\t(Table:$objtype - Key:$k)";
-                                    } else {
-                                        $objhash{$objname}{$k} = $entry->{$k};
-                                    }
-                                }
-                            }
-                            if ($foundinfo)
-                            {
-                                $objhash{$objname}{'objtype'} = $objtype;
-                            }
-                            # There should not be multiple entries with the same recid
-                            last;
-                        } # end if($entry->
-                    } # end foreach my $entry
-               } # end if(@TableTowArray
-           } # end foreach my $objname
         } else {
             # get the object type decription from Schema.pm
             my $datatype = $xCAT::Schema::defspec{$objtype};
@@ -1162,7 +1123,7 @@ sub setobjdefs
 			        xCAT::MsgUtils->message("W", $rsp, $::callback);
                              } else {
                                 my $rsp;
-			        $rsp->{data}->[0] = "$em is not in the attribute of \'$attr_name\' for the \'$objname\' definition.";
+			        $rsp->{data}->[0] = "$em is not in the atrribute of \'$attr_name\' for the \'$objname\' definition.";
 			        xCAT::MsgUtils->message("W", $rsp, $::callback);
                              }
                         }
@@ -1995,11 +1956,15 @@ sub getNetwkInfo
                                     if (xCAT::Utils->isMN() && !$nethash{$node}{'gateway'})
                                     {
                                         # does not have ip address in this subnet,
-                                        # use the node attribute 'xcatmaster' or site.master
-                                        my @nodes = ("$node");
-                                        my $sn = xCAT::ServiceNodeUtils->get_ServiceNode(\@nodes,"xcat","Node");
-                                        my $snkey = (keys %{$sn})[0];
-                                        $nethash{$node}{'gateway'} = xCAT::NetworkUtils->getipaddr($snkey);
+                                        # use the node attribute 'xcatmaster'
+                                        my $noderestab = xCAT::Table->new('noderes');
+                                        my $et = $noderestab->getNodeAttribs($node, ['xcatmaster']);
+                                        if ($et and defined($et->{'xcatmaster'}))
+                                        {
+                                            my $value = $et->{'xcatmaster'};
+                                            $nethash{$node}{'gateway'} = xCAT::NetworkUtils->getipaddr($value);
+                                        }
+                                        $noderestab->close();
                                     }
                                 
                                 }

perl-xCAT/xCAT/DSHCore.pm

@@ -159,100 +159,6 @@ no strict;
 use strict;
 }
 
-
-#---------------------------------------------------------------------------
-
-=head3
-        fork_output_for_commands
-
-        Forks a process for the given command array and returns the process
-        ID for the forked process and references to all I/O pipes for STDOUT
-        and STDERR. In the child process, it will invoke the xCAT::DSHCore->fork_no_output()
-        for the first command which is a no-output command and waitpid(). And then execute 
-        the left commands in the child process.
-
-        Arguments:
-        	$fork_id - unique identifer to use for tracking the forked process
-        	@command - command and parameter array to execute in the forkec process
-
-        Returns:
-        	$pid - process identifer for the forked process
-                
-        Globals:
-        	None
-    
-        Error:
-        	None
-    
-        Example:
-        	$pid = xCAT::DSHCore->fork_output_for_commands('hostname1PID', @command_array);
-
-        Comments:
-
-=cut
-
-#---------------------------------------------------------------------------
-
-
-sub fork_output_for_commands
-{
-    my ($class, $fork_id, @commands) = @_;
-no strict;
-    my $pid;
-    my %pipes = ();
-
-    my $rout_fh = "rout_$fork_id";
-    my $rerr_fh = "rerr_$fork_id";
-    my $wout_fh = "wout_$fork_id";
-    my $werr_fh = "werr_$fork_id";
-
-    (pipe($rout_fh, $wout_fh) == -1) && return (-1, undef);
-    (pipe($rerr_fh, $werr_fh) == -1) && return (-2, undef);
-
-    if ($pid = fork)
-    {
-        close($wout_fh);
-        close($werr_fh);
-    }
-
-    elsif (defined $pid)
-    {
-        close($rout_fh);
-        close($rerr_fh);
-
-        !(open(STDOUT, ">&$wout_fh")) && return (-5, undef);
-        !(open(STDERR, ">&$werr_fh")) && return (-6, undef);
-
-        select(STDOUT);
-        $| = 1;
-        select(STDERR);
-        $| = 1;
-        if ( @commands > 1 )  {
-            my $command0 = shift(@commands);       
-            my @exe_command0_process = xCAT::DSHCore->fork_no_output($fork_id, @$command0); 
-            waitpid($exe_command0_process[0], undef);
-        }
-       
-        my $t_command = shift(@commands);
-        my @command = @$t_command; 
-        if (!(exec {$command[0]} @command))
-        {
-            return (-4, undef);
-        }
-
-    }
-    else
-    {
-        return (-3, undef);
-    }
-
-    return ($pid, *$rout_fh, *$rerr_fh, *$wout_fh, *$werr_fh);
-use strict;
-}
-
-
-
-
 #---------------------------------------------------------------------------
 
 =head3
@@ -490,7 +396,7 @@ sub pipe_handler
                       || print STDOUT
                       "dsh>  Error_file_closed $$target_properties{hostname} $output_file\n";
                     my $rsp={};
-                    $rsp->{error}->[0] =
+                    $rsp->{data}->[0] =
                       "Error_file_closed $$target_properties{hostname $output_file}.\n";
                     xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
                     ($output_file == $$target_properties{'output-fh'})
@@ -669,6 +575,55 @@ sub pipe_handler_buffer
     return $eof_reached;
 }
 
+#---------------------------------------------------------------------------
+
+=head3
+        fping_hostnames
+
+        Executes fping on a given list of hostnames and returns a list of those
+        hostnames that did not respond
+
+        Arguments:
+        	@hostnames - list of hostnames to execute for fping
+
+        Returns:
+        	@no_response - list of hostnames that did not respond
+        	undef if fping is not installed
+                
+        Globals:
+        	None
+    
+        Error:
+        	None
+    
+        Example:
+        	@bad_hosts = xCAT::DSHCore->fping_hostnames(@host_list);
+
+        Comments:
+
+=cut
+
+#---------------------------------------------------------------------------
+
+sub fping_hostnames
+{
+    my ($class, @hostnames) = @_;
+
+    my $fping = (-x '/usr/sbin/fping') || undef;
+    !$fping && return undef;
+
+    my @output = `/usr/sbin/fping -B 1.0 -r 1 -t 50 -i 10 -p 50 @hostnames`;
+
+    my @no_response = ();
+    foreach my $line (@output)
+    {
+        my ($hostname, $token, $status) = split ' ', $line;
+        !(($token eq 'is') && ($status eq 'alive'))
+          && (push @no_response, $hostname);
+    }
+
+    return @no_response;
+}
 
 #---------------------------------------------------------------------------
 
@@ -758,8 +713,8 @@ sub pping_hostnames
       xCAT::Utils->runcmd("$::XCATROOT/bin/pping $hostname_list", -1);
       if ($::RUNCMD_RC !=0) {
         my $rsp={};
-        $rsp->{error}->[0] = "Error from pping";
-        xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
+        $rsp->{data}->[0] = "Error from pping";
+        xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
       }
      $::RUNCMD_RC =0; # reset
     my @no_response = ();

perl-xCAT/xCAT/ExtTab.pm

@@ -35,7 +35,7 @@ foreach (@extSchema) {
     if ($@) { 
 	$warning ="Warning: The user defined database table schema file $file cannot be located or has compiling errors.\n";
         print $warning;
-        `logger -p local4.warning -t xCAT $warning`; 
+        `logger -t xCAT $warning`; 
 	next;
     }   
     if (${"xCAT_schema::" . "$modname" . "::"}{tabspec}) {
@@ -44,7 +44,7 @@ foreach (@extSchema) {
             if (exists($ext_tabspec{$tabname})) {
 		$warning = "Warning: File $file: the table name $tabname is used by other applications. Please rename the table.\n";
                 print $warning;
-               `logger -p local4.warning -t xCAT $warning`; 
+               `logger -t xCAT $warning`; 
 	    } else {
 		$ext_tabspec{$tabname}=$tabspec{$tabname};
 	    }
@@ -52,7 +52,7 @@ foreach (@extSchema) {
     } else {
 	$warning ="\n  Warning: Cannot find \%tabspec variable in the user defined database table schema file $file\n";
          print $warning;
-         `logger -p local4.warning -t xCAT $warning`; 
+         `logger -t xCAT $warning`; 
     }
    
     #get the defspec from each file and merge them into %ext_defspec
@@ -74,7 +74,7 @@ foreach (@extSchema) {
 			if (exists($tmp_hash{$attrname})) {
 			    $warning= "  Warning: Conflict when adding user defined defspec from file $file. Attribute name $attrname is already defined in object $objname.  \n";
                             print $warning;
-                           `logger  -p local4.warning  -t xCAT $warning`; 
+                           `logger -t xCAT $warning`; 
 			} else {
 			    #print "\ngot here objname=$objname, attrname=" . $h->{attr_name} . "\n";
 			    push(@{$ext_defspec{$objname}->{'attrs'}}, $h); 

perl-xCAT/xCAT/FSPUtils.pm

@@ -10,7 +10,10 @@ BEGIN
 # if AIX - make sure we include perl 5.8.2 in INC path.
 #       Needed to find perl dependencies shipped in deps tarball.
 if ($^O =~ /^aix/i) {
-	unshift(@INC, qw(/usr/opt/perl5/lib/5.8.2/aix-thread-multi /usr/opt/perl5/lib/5.8.2 /usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi /usr/opt/perl5/lib/site_perl/5.8.2));
+        use lib "/usr/opt/perl5/lib/5.8.2/aix-thread-multi";
+        use lib "/usr/opt/perl5/lib/5.8.2";
+        use lib "/usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi";
+        use lib "/usr/opt/perl5/lib/site_perl/5.8.2";
 }
 
 use lib "$::XCATROOT/lib/perl";
@@ -23,10 +26,9 @@ require xCAT::InstUtils;
 require xCAT::NetworkUtils;
 require xCAT::Schema;
 require xCAT::Utils;
-require xCAT::TableUtils;
 #use  Data::Dumper;
 require xCAT::NodeRange;
-use xCAT::MsgUtils qw(verbose_message);
+
 
         
  #-------------------------------------------------------------------------------
@@ -131,7 +133,7 @@ sub getIPaddress
     my $type       = shift;
     my $nodetocheck = shift;
     my $port        = shift;
-    if (xCAT::NetworkUtils::isIpaddr($nodetocheck)) {
+    if (xCAT::Utils::isIpaddr($nodetocheck)) {
         return $nodetocheck;
     }
     my $side = "[A|B]";
@@ -189,7 +191,7 @@ sub getIPaddress
             if ($tmp_s and $tmp_s =~ /^$side-$port$/i) {
                 $tmp_s =~ s/a/A/;
                 $tmp_s =~ s/b/B/;
-                if (xCAT::NetworkUtils::isIpaddr($tmp_n)) {
+                if (xCAT::Utils::isIpaddr($tmp_n)) {
                     $node_side_pairs{$tmp_s} = $tmp_n;           
                     $children_num++;
                 } else {
@@ -283,7 +285,6 @@ sub fsp_api_action {
     }
     $id = $$attrs[0];
     $fsp_name = $$attrs[3]; 
-    xCAT::MsgUtils->verbose_message($request, "fsp_api_action START node:$node_name,type:$$attrs[4].");
     if($$attrs[4] =~ /^fsp$/ || $$attrs[4] =~ /^lpar$/ || $$attrs[4] =~ /^cec$/) {
         $type = 0;
 	    $fsp_bpa_type="fsp";
@@ -306,7 +307,7 @@ sub fsp_api_action {
     } else {
         $fsp_ip = getIPaddress($request, $$attrs[4], $fsp_name );
     }
-    xCAT::MsgUtils->verbose_message($request, "fsp_api_action getIPaddress:$fsp_ip.");
+
     if(!defined($fsp_ip)) {
         $res = "Failed to get IP address for $fsp_name or the related FSPs/BPAs.";
         return ([$node_name, $res, -1]);	
@@ -347,7 +348,7 @@ sub fsp_api_action {
     }
 
     my $cmd;
-    my $install_dir = xCAT::TableUtils->getInstallDir();
+    my $install_dir = xCAT::Utils->getInstallDir();
     if( $action =~ /^(code_update|get_compatible_version_from_rpm)$/) { 
         $cmd = "$fsp_api -a $action -T $tooltype -t $type:$fsp_ip:$id:$node_name:$parameter -d $install_dir/packages_fw/";
     } elsif($action =~ /^code_updateD$/) {
@@ -370,7 +371,7 @@ sub fsp_api_action {
             $cmd = "$fsp_api -a $action -T $tooltype -t $type:$fsp_ip:$id:$node_name:";
         }
     }
-    xCAT::MsgUtils->verbose_message($request, "fsp_api_action cmd:$cmd.");
+
     #print "cmd: $cmd\n"; 
     $SIG{CHLD} = 'DEFAULT'; 
     # secure passwords in verbose mode
@@ -392,7 +393,6 @@ sub fsp_api_action {
     if(defined($res)) {
         $res =~ s/$node_name: //g;
     }
-    xCAT::MsgUtils->verbose_message($request, "fsp_api_action return:$Rc.");
     return( [$node_name,$res, $Rc] ); 
 }
 
@@ -444,7 +444,6 @@ sub fsp_state_action {
     $fsp_name = $node_name; 
 
      
-    xCAT::MsgUtils->verbose_message($request, "fsp_state_action START node:$node_name,type:$$attrs[4].");
     if( $$attrs[4] =~ /^(fsp|lpar|cec|blade)$/) {
         $type = 0;
     } else { 
@@ -460,13 +459,11 @@ sub fsp_state_action {
         return ([-1, $res[0]]);	
     }
 	
-    xCAT::MsgUtils->verbose_message($request, "fsp_state_action getIPaddress:$fsp_ip.");
     #print "fsp name: $fsp_name\n";
     #print "fsp ip: $fsp_ip\n";
     my $cmd;
     #$cmd = "$fsp_api -a $action -u $user -p $password -T $tooltype -t $type:$fsp_ip:$id:$node_name:";
     $cmd = "$fsp_api -a $action -T $tooltype -t $type:$fsp_ip:$id:$node_name:";
-    xCAT::MsgUtils->verbose_message($request, "fsp_state_action cmd:$cmd.");
     #print "cmd: $cmd\n"; 
     $SIG{CHLD} = 'DEFAULT'; 
     @res = xCAT::Utils->runcmd($cmd, -1);
@@ -480,7 +477,6 @@ sub fsp_state_action {
     if( @res ) {
         $res[0] =~ s/$node_name: //g;
     }
-    xCAT::MsgUtils->verbose_message($request, "fsp_state_action return:$Rc.");
     return( [$Rc,@res] ); 
 }
 

perl-xCAT/xCAT/FSPboot.pm

@@ -215,7 +215,7 @@ sub rnetboot {
     my $options = $request->{opt};
     my $hwtype  = @$exp[2];
     my $result;
-    my $name    = $request->{node};
+    my $name;
     my $callback = $request->{callback};
     #####################################
     # Get node data 
@@ -238,13 +238,6 @@ sub rnetboot {
         C => $o->{client},
         m => $o->{mac}
     );
-    #####################################
-    # Parse node range
-    #####################################
-    if ($name =~ /ARRAY/) {
-        $name = join(',', @$name);
-    }
-
     #####################################
     # Strip colons from mac address 
     #####################################

perl-xCAT/xCAT/FSPbootseq.pm

@@ -7,7 +7,6 @@ use Getopt::Long;
 use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
 use xCAT::NetworkUtils;
 use xCAT::FSPUtils;
-use xCAT::MsgUtils qw(verbose_message);
 #use Data::Dumper;
 
 ##########################################################################
@@ -47,7 +46,7 @@ sub parse_args {
     $Getopt::Long::ignorecase = 0;
     Getopt::Long::Configure( "bundling" );
 
-    if ( !GetOptions( \%opt,qw(h|help V|verbose v|version ))) { 
+    if ( !GetOptions( \%opt,qw(h|help V|Verbose v|version ))) { 
         return( usage() );
     }
     ####################################
@@ -136,13 +135,12 @@ sub rbootseq {
     #print "d"; 
     #print Dumper($d);
   
-    xCAT::MsgUtils->verbose_message($request, "rbootseq START for node:$node_name, type=$$d[4].");        
+         
     if (!($$d[4] =~ /^(lpar|blade)$/)) { 
         push @output, [$node_name, "\'boot\' command not supported for CEC or BPA", -1 ];
         return (\@output);
     }
     # add checking the power state of the cec 
-    xCAT::MsgUtils->verbose_message($request, "rbootseq check machine state for node:$node_name.");        
     my $power_state = xCAT::FSPUtils::fsp_api_action ($request, $node_name, $d, "cec_state", $tooltype);
     if ( @$power_state[2] != 0  ) {
         push @output, [$node_name, @$power_state[1], -1 ];
@@ -207,17 +205,14 @@ sub rbootseq {
 	        push @output, [$node_name, "The mac address in mac table could NOT be used for rbootseq with -net. HFI mac , or other wrong format?", -1 ];	
                 return( \@output );
          }	    
-         xCAT::MsgUtils->verbose_message($request, "rbootseq <$node_name> net=$parameter");        
        }
 
        if( $opt->{hfi}) {
        
            $parameter = "/hfi-iohub/hfi-ethernet:$o->{server},,$o->{client},$o->{gateway},$bootp_retries,$tftp_retries,$o->{netmask},$blksize";	      
        
-           xCAT::MsgUtils->verbose_message($request, "rbootseq <$node_name> hfi=$parameter");        
        }
 
-       xCAT::MsgUtils->verbose_message($request, "rbootseq set_lpar_bootstring for node:$node_name.");        
        my $res = xCAT::FSPUtils::fsp_api_action ($request, $node_name, $d, "set_lpar_bootstring", $tooltype, $parameter);
        #print "In boot, state\n";
        #print Dumper($res);
@@ -227,7 +222,6 @@ sub rbootseq {
        ##################################
        # Output error
        ##################################
-       xCAT::MsgUtils->verbose_message($request, "rbootseq return:$Rc.");        
        if ( $Rc != SUCCESS ) {
 	       push @output, [$node_name,$data,$Rc];
 	} else { 

perl-xCAT/xCAT/FSPcfg.pm

@@ -6,11 +6,10 @@ use Getopt::Long;
 use xCAT::Usage;
 use xCAT::Utils;
 use xCAT::FSPUtils;
-use xCAT::TableUtils;
 use xCAT::PPCcfg;
 #use Data::Dumper;
 #use xCAT::PPCcli;
-use xCAT::MsgUtils qw(verbose_message);
+
 
 ##########################################
 # Globals
@@ -174,7 +173,7 @@ sub parse_args {
     Getopt::Long::Configure( "bundling" );
     $request->{method} = undef;
 
-    if ( !GetOptions( \%opt, qw(V|verbose resetnet))) {
+    if ( !GetOptions( \%opt, qw(V|Verbose resetnet))) {
         return( usage() );
     }
     ####################################
@@ -225,7 +224,7 @@ sub parse_args {
         my $ppc_cmds_string = &array_to_string(\@ppc_cmds);
         return (usage("Invalid command array: $fsp_cmds_string can not execute with $ppc_cmds_string."));
     } elsif(scalar(@ppc_cmds)) {
-        my @enableASMI = xCAT::TableUtils->get_site_attribute("enableASMI");
+        my @enableASMI = xCAT::Utils->get_site_attribute("enableASMI");
         if (defined($enableASMI[0])) {
             $enableASMI[0] =~ tr/a-z/A-Z/;    # convert to upper
             if (($enableASMI[0] eq "1") || ($enableASMI[0] eq "YES")) {
@@ -467,7 +466,6 @@ sub do_query {
     while (my ($mtms, $h) = each(%$hash)) {
         while (my($name, $d) = each(%$h)) {
             my $action = $fspapi_action{$cmd}{query}{@$d[4]};
-            xCAT::MsgUtils->verbose_message($request, "rspconfig :$action for node:$name."); 
             my $values = xCAT::FSPUtils::fsp_api_action($request, $name, $d, $action);
             &do_process_query_res($name, $cmd, \@result, $values);
             #my $res = &do_process_query_res($name, $cmd, \@result, $values);
@@ -514,7 +512,6 @@ sub do_set {
     while (my ($mtms, $h) = each(%$hash)) {
         while (my($name, $d) = each(%$h)) {
             my $action = $fspapi_action{$cmd}{set}{@$d[4]};
-            xCAT::MsgUtils->verbose_message($request, "rspconfig :$action for node:$name, param:$value."); 
             my $para = &do_set_get_para($name, $cmd, $value);
             my $values = xCAT::FSPUtils::fsp_api_action($request, $name, $d, $action, 0, $para);
 #           print Dumper($values);
@@ -598,7 +595,6 @@ sub passwd {
            			while ( my ($node,$d) = each(%$h) ) {
                			my $type = @$d[4];
 				my $fsp_api    = ($::XCATROOT) ? "$::XCATROOT/sbin/fsp-api" : "/opt/xcat/sbin/fsp-api";
-                                xCAT::MsgUtils->verbose_message($request, "rspconfig :modify password of $usr for node:$node.");
 				my $cmd = xCAT::FSPcfg::fsp_api_passwd ($request, $node, $d, $usr, $passwd, $newpasswd);
                 		my $Rc = @$cmd[2];
 				my $data = @$cmd[1];
@@ -611,7 +607,6 @@ sub passwd {
                 		# Write the new password to table
                 		##################################
                 		if ( $Rc == 0 ) {
-                                    xCAT::MsgUtils->verbose_message($request, "rspconfig :update xCATdb for node:$node,ID:$usr.");
                 		    xCAT::PPCdb::update_credentials( $node, $type, $usr, $newpasswd );
                 		}
             			}
@@ -682,7 +677,6 @@ sub frame {
                     # Get frame number
                     #################################
 		    #$data = xCAT::PPCcli::lssyscfg( $exp, @$d[4], @$d[2], 'frame_num' );
-                    xCAT::MsgUtils->verbose_message($request, "rspconfig :get_frame_number for node:$node.");
 		    $data = xCAT::FSPUtils::fsp_api_action( $request, $node, $d, "get_frame_number");
                     $Rc = pop(@$data);
 
@@ -714,7 +708,6 @@ sub frame {
                         return( [[$node,"Cannot find frame num in database", -1]] );
                     }
 		    #$data = xCAT::PPCcli::chsyscfg( $exp, "bpa", $d, "frame_num=".$ent->{id} );
-                    xCAT::MsgUtils->verbose_message($request, "rspconfig :set_frame_number for node:$node,id:$ent->{id}.");
 		    $data = xCAT::FSPUtils::fsp_api_action( $request, $node, $d, "set_frame_number", 0, $ent->{id});
                     $Rc = pop(@$data);
 
@@ -734,7 +727,6 @@ sub frame {
                     # Read the frame number from opt
                     #################################
 		    #$data = xCAT::PPCcli::chsyscfg( $exp, "bpa", $d, "frame_num=$value" );
-                    xCAT::MsgUtils->verbose_message($request, "rspconfig :set_frame_number for node:$node,id:$value.");
                     $data = xCAT::FSPUtils::fsp_api_action( $request, $node, $d, "set_frame_number", 0, $value);
 		    $Rc = pop(@$data);
 
@@ -783,7 +775,6 @@ sub cec_off_policy {
                     #################################
                     # Get platform IPL parameters 
                     #################################
-                    xCAT::MsgUtils->verbose_message($request, "rspconfig :get_phyp_cfg_power_off_policy for node:$node.");
 		    $data = xCAT::FSPUtils::fsp_api_action( $request, $node, $d, "get_phyp_cfg_power_off_policy");
                     $Rc = pop(@$data);
 
@@ -803,7 +794,6 @@ sub cec_off_policy {
                     #################################
                     # Set cec off policy 
                     #################################
-                    xCAT::MsgUtils->verbose_message($request, "rspconfig :set power_off_policy for node:$node,policy:$value.");
 		    if( $value eq "poweroff") {
 		        $value = "cec_off_policy_poweroff";
 		    } else {
@@ -872,8 +862,8 @@ sub fsp_api_passwd {
     ############################
     # Get IP address
     ############################
-    #$fsp_ip = xCAT::NetworkUtils::get_hdwr_ip($fsp_name);
-    #$fsp_ip = xCAT::NetworkUtils::getNodeIPaddress($fsp_name);
+    #$fsp_ip = xCAT::Utils::get_hdwr_ip($fsp_name);
+    #$fsp_ip = xCAT::Utils::getNodeIPaddress($fsp_name);
     #$fsp_ip = xCAT::Utils::getIPaddress($fsp_name);
     $fsp_ip = xCAT::FSPUtils::getIPaddress($request, $$attrs[4], $fsp_name );
     if(!defined($fsp_ip) or ($fsp_ip == -3)) {

perl-xCAT/xCAT/FSPconn.pm

@@ -8,7 +8,6 @@ use xCAT::Usage;
 #use Data::Dumper;
 use xCAT::FSPUtils;
 use xCAT::PPCconn;
-use xCAT::MsgUtils qw(verbose_message);
 
 ##############################################
 # Globals
@@ -572,7 +571,7 @@ sub mkhwconn
     my $Rc      = undef;
     my $tooltype= $opt->{T};
     
-    xCAT::MsgUtils->verbose_message($request, "mkhwconn START."); 
+    
     for my $cec_bpa ( keys %$hash)
     {
         my $node_hash = $hash->{$cec_bpa};
@@ -597,7 +596,6 @@ sub mkhwconn
 
             #}
 
-            xCAT::MsgUtils->verbose_message($request, "mkhwconn :add_connection for node:$node_name."); 
             my $res = xCAT::FSPUtils::fsp_api_action($request, $node_name, $d, "add_connection", $tooltype, $opt->{port} );
             $Rc = @$res[2];
 	    if( @$res[1] ne "") {
@@ -606,7 +604,6 @@ sub mkhwconn
 
         }
     }
-    xCAT::MsgUtils->verbose_message($request, "mkhwconn END."); 
     return \@value;
 }
 ##########################################################################

perl-xCAT/xCAT/FSPflash.pm

@@ -44,11 +44,11 @@ sub dpush {
 # Parse the command line for options and operands 
 ##########################################################################
 sub parse_args {
-    my $req = shift; 
-    $req->{mgt} = __PACKAGE__;
+    my $req = shift;
+	$req->{mgt} = __PACKAGE__;
     my $opt = xCAT::PPCrflash::parse_args($req);
-    delete($req->{mgt});
-    return $opt;
+	delete($req->{mgt});
+	return $opt;
 }
 
 ##########################################################################
@@ -340,8 +340,8 @@ sub rflash {
                #if($activate =~ /^concurrent$/) {
                my $res = "\'$activate\' option not supported in FSPflash. Please use disruptive or deferred mode";
                push @value, [$name, $res, -1];
-	       next;
-          }
+	           next;
+           }
 	   
 	   my $msg;	
 	   if(!defined($housekeeping)) {	   

perl-xCAT/xCAT/FSPinv.pm

@@ -66,7 +66,7 @@ sub parse_args {
     $Getopt::Long::ignorecase = 0;
     Getopt::Long::Configure( "bundling" );
 
-    if ( !GetOptions( \%opt, qw(V|verbose x) )) { 
+    if ( !GetOptions( \%opt, qw(V|Verbose x) )) { 
         return( usage() );
     }
     ####################################
@@ -287,21 +287,15 @@ sub deconfig {
         my $Location_code;
         my $RID;
         my $TYPE;
-        my $dres;
-        if (ref($node->{GARDRECORD}) eq "ARRAY") {
-            $dres = $node->{GARDRECORD};
-        } elsif (ref($node->{GARDRECORD}) eq "HASH") {
-            push @$dres, $node->{GARDRECORD};
-        } else {
+        if(ref($node->{GARDRECORD}) ne "ARRAY") {
            push @result,[$name,"NO Deconfigured resources", 0];
            return( \@result );
         }
         push @result,[$name,"Deconfigured resources", 0];
         push @result,[$name,"Location_code                RID   Call_Out_Method    Call_Out_Hardware_State   TYPE", 0];
         push @result,[$name,"$node->{Location_code}         $node->{RID}", 0];
+        foreach my $unit(@{$node->{GARDRECORD}}) {
 
-        #foreach my $unit(@{$node->{GARDRECORD}}) {
-        foreach my $unit(@$dres) {
 		while (my ($key, $unit3) = each(%$unit) ) {
 
                    if($key eq "GARDUNIT") {

perl-xCAT/xCAT/FSPmac.pm

@@ -6,7 +6,7 @@ use strict;
 use Getopt::Long;
 use xCAT::PPCmac;
 use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
-use xCAT::MsgUtils qw(verbose_message);
+
 use xCAT::LparNetbootExp;
 ##########################################################################
 # Parse the command line for options and operands 
@@ -184,7 +184,6 @@ sub do_getmacs {
     #        last;
     #    }
     #}
-    xCAT::MsgUtils->verbose_message($request, "getmacs :lparnetbootexp for node:$node.");
     my $Rc = xCAT::LparNetbootExp->lparnetbootexp(\%optarg, $request);
     ######################################
     # Split results into array
@@ -443,7 +442,6 @@ sub getmacs {
         #########################################
         # Connect to fsp to achieve MAC address
         #########################################
-        xCAT::MsgUtils->verbose_message($request, "getmacs START.");
         my $d = $par;
 
         #########################################
@@ -503,7 +501,6 @@ sub getmacs {
             #########################################
             # Manually collect MAC addresses.
             #########################################
-            xCAT::MsgUtils->verbose_message($request, "getmacs :do_getmacs for node:$node.");
             $result = do_getmacs( $request, $d, $exp, $name, $node );
         #}
         #$sitetab->close;
@@ -578,7 +575,6 @@ sub getmacs {
             writemac( $node, $value );
         }
 	#return( [[$node,$data,$Rc]] );
-        xCAT::MsgUtils->verbose_message($request, "getmacs END.");
 	return $res;
     }
 }

perl-xCAT/xCAT/FSPvitals.pm

@@ -429,7 +429,7 @@ sub lcds {
          }
     }
             
-    if( $type =~ /lpar|blade/ ) {
+    if( $type =~ /lpar/ ) {
         $action = "query_lcds";
     } else {
         $action = "cec_query_lcds";

perl-xCAT/xCAT/FSPvm.pm

@@ -16,7 +16,7 @@ use xCAT::Usage;
 use xCAT::NodeRange;
 use xCAT::FSPUtils;
 #use Data::Dumper;
-use xCAT::MsgUtils qw(verbose_message);
+
 ##############################################
 # Globals
 ##############################################
@@ -644,7 +644,6 @@ sub do_op_extra_cmds {
     while (my ($mtms, $h) = each(%$hash)) {
         while (my($name, $d) = each(%$h)) {
             my $tmp_value = ($param eq '*') ? $name : $param;
-            xCAT::MsgUtils->verbose_message($request, "$request->{command} $action for node:$name, parm:$tmp_value."); 
             my $value = xCAT::FSPUtils::fsp_api_action($request, $name, $d, $action, 0, $tmp_value);
             if (@$value[1] && ((@$value[1] =~ /Error/i) && (@$value[2] ne '0'))) {
                 return ([[$name, @$value[1], '1']]) ;
@@ -699,7 +698,7 @@ sub modify_by_prof {
     my %io = ();   
     my %lpar_state = ();
     my @result;   
-    xCAT::MsgUtils->verbose_message($request, "$request->{command} START."); 
+
     if (defined( $request->{stdin} )) {
          my $p =  $request->{stdin};
          my @io = split(/\n/, $p) ;
@@ -722,7 +721,6 @@ sub modify_by_prof {
         }
         $td->[4] = "cec";
         #get the current I/O slot information
-        xCAT::MsgUtils->verbose_message($request, "$request->{command} :get_io_slot_info for node:$cec_name."); 
         my $action = "get_io_slot_info";
         my $values =  xCAT::FSPUtils::fsp_api_action ($request, $cec_name, $td, $action);
         my $Rc = $$values[2];
@@ -739,7 +737,6 @@ sub modify_by_prof {
         } 
         
         #get all the nodes state in the same cec
-        xCAT::MsgUtils->verbose_message($request, "$request->{command} :get all the nodes state for CEC:$cec_name."); 
         $action = "all_lpars_state";
         undef($values);
         my $values =  xCAT::FSPUtils::fsp_state_action ($request, $cec_name, $td, $action); 
@@ -774,7 +771,6 @@ sub modify_by_prof {
                     return ( \@result ); 
                 }                   
      
-                xCAT::MsgUtils->verbose_message($request, "$request->{command} :set_io_slot_owner io_slot_info:$f,owner:$lpar."); 
                 my $values =  xCAT::FSPUtils::fsp_api_action ($request, $lpar, $d, $action, $tooltype, $drc_index);
                 #my $Rc = shift(@$values);
                 my $Rc = pop(@$values);
@@ -786,7 +782,6 @@ sub modify_by_prof {
                   
         }
     }
-    xCAT::MsgUtils->verbose_message($request, "$request->{command} END."); 
     return( \@result );
 }
 
@@ -801,7 +796,6 @@ sub enumerate {
     my $type;
     my @td;
 
-    xCAT::MsgUtils->verbose_message($request, "lsvm :enumerate START for mtms:$mtms.");
     while (my ($name,$d) = each(%$h) ) {
         $cec = @$d[3];
         $type = @$d[4];
@@ -809,7 +803,6 @@ sub enumerate {
     }
    
     $td[4]="cec"; 
-    xCAT::MsgUtils->verbose_message($request, "lsvm :enumerate get_io_slot_info for node:$cec.");
     my $action = "get_io_slot_info";
     my $values =  xCAT::FSPUtils::fsp_api_action ($request, $cec, \@td, $action);
     #my $Rc = shift(@$values);
@@ -826,7 +819,6 @@ sub enumerate {
     #}
  
     if( $type =~ /^(fsp|cec)$/ )  {
-        xCAT::MsgUtils->verbose_message($request, "lsvm :enumerate query_octant_cfg for node:$cec.");
 	$action = "query_octant_cfg";
 	my $values =  xCAT::FSPUtils::fsp_api_action ($request, $cec, \@td, $action);
 	my $Rc = pop(@$values);
@@ -847,7 +839,6 @@ sub enumerate {
         $outhash{ $cec } = $res;	
     } 
     
-    xCAT::MsgUtils->verbose_message($request, "lsvm :enumerate END for mtms:$mtms.");
     return( [0,\%outhash] );
 }
 
@@ -996,7 +987,6 @@ sub list {
     my %lpar_huges = ();
     my $l_string = "\n";
     #print Dumper($hash);    
-    xCAT::MsgUtils->verbose_message($request, "lsvm START");
     while (my ($mtms,$h) = each(%$hash) ) {
 	    my $info = enumerate($request, $h, $mtms );
     	my $Rc = shift(@$info);
@@ -1019,7 +1009,7 @@ sub list {
            #     push @result, [$node_name, "Node not found",1];
            # 	next;
            # }
-            xCAT::MsgUtils->verbose_message($request, "lsvm :parse io info for node:$node_name.");           
+           
             if( defined($msg)) { 
                  push @result,[$node_name, $msg, 0];
             } else {
@@ -1094,7 +1084,6 @@ sub list {
             
             # get the octant configuration value    
             if ($type=~/^(fsp|cec)$/) {
-                xCAT::MsgUtils->verbose_message($request, "lsvm :parse octant info for $type:$node_name.");           
                 my $value = $data->{$cec};
 		        if ($request->{opt}->{l}) {
 		            my $cec_bsr = get_cec_cec_bsr($node_name, $bsr_infos);
@@ -1112,7 +1101,6 @@ sub list {
 		    $l_string = "\n";
 	    } # end of while
     }# end of while
-    xCAT::MsgUtils->verbose_message($request, "lsvm END.");
     return( \@result );
 }
 
@@ -1206,7 +1194,6 @@ sub create {
     my %node_id = (); 
     my @nodes = @{$opt->{target}};	
    
-    xCAT::MsgUtils->verbose_message($request, "$request->{command} START."); 
     #print Dumper($request); 
     #####################################
     # Get source node information
@@ -1226,7 +1213,6 @@ sub create {
             }
         }
         
-        xCAT::MsgUtils->verbose_message($request, "$request->{command} :query_octant_cfg for CEC:$cec_name."); 
         my $values =  xCAT::FSPUtils::fsp_api_action ($request, $cec_name, $d, "query_octant_cfg");   
         my $Rc = shift(@$values);
         if ( $Rc != 0 ) {
@@ -1303,7 +1289,6 @@ sub create {
 
 
 	
-        xCAT::MsgUtils->verbose_message($request, "$request->{command} :set_octant_cfg for CEC:$cec_name,param:$parameters."); 
 	#$values = xCAT::FSPUtils::fsp_api_create_parttion( $starting_lpar_id, $octant_cfg, $node_number, $d, "set_octant_cfg");
         $values =  xCAT::FSPUtils::fsp_api_action ($request,$cec_name, $d, "set_octant_cfg", 0, $parameters);   
         my $Rc = $$values[2];
@@ -1321,7 +1306,6 @@ sub create {
         	
     }
     
-    xCAT::MsgUtils->verbose_message($request, "$request->{command} END."); 
     return( \@result );
 }
 

perl-xCAT/xCAT/GlobalDef.pm

@@ -33,12 +33,6 @@ $::NODETYPE_PPC="ppc";
 $::NODETYPE_ZVM="zvm";
 $::NODETYPE_MP="mp";
 
-#valid values for nodelist.updatestatus
-$::STATUS_SYNCING="syncing";
-$::STATUS_OUT_OF_SYNC="out-of-sync";
-$::STATUS_SYNCED="synced";
-
-
 # valid values for nodelist.status columns or other status 
 $::STATUS_ACTIVE="alive";
 $::STATUS_INACTIVE="unreachable";
@@ -54,28 +48,6 @@ $::STATUS_STANDING_BY="standingby";
 $::STATUS_SHELL="shell";
 $::STATUS_DEFINED="defined";
 $::STATUS_UNKNOWN="unknown";
-$::STATUS_FAILED="failed";
-%::VALID_STATUS_VALUES = (
-	$::STATUS_ACTIVE=>1,
-	$::STATUS_INACTIVE=>1,
-	$::STATUS_INSTALLING=>1,
-	$::STATUS_INSTALLED=>1,
-	$::STATUS_BOOTING=>1,
-	$::STATUS_NETBOOTING=>1,
-	$::STATUS_BOOTED=>1,
-	$::STATUS_POWERING_OFF=>1,
-	$::STATUS_DISCOVERING=>1,
-	$::STATUS_CONFIGURING=>1,
-	$::STATUS_STANDING_BY=>1,
-	$::STATUS_SHELL=>1,
-	$::STATUS_DEFINED=>1,
-	$::STATUS_UNKNOWN=>1,
-        $::STATUS_FAILED=>1,
-
-	$::STATUS_SYNCING=>1,
-	$::STATUS_OUT_OF_SYNC=>1,
-	$::STATUS_SYNCED=>1,
-);
 
 #defined->[discovering]->[configuring]->[standingby]->installing->[installed]->booting->alive,  defined->[discovering]->[configuring]-[standingby]->netbooting->booted->alive,  alive/unreachable->booting->alive,  powering-off->unreachable, alive->unreachable
 %::NEXT_NODESTAT_VAL=(

perl-xCAT/xCAT/InstUtils.pm

@@ -9,8 +9,12 @@ BEGIN
 
 # if AIX - make sure we include perl 5.8.2 in INC path.
 #       Needed to find perl dependencies shipped in deps tarball.
-if ($^O =~ /^aix/i) {
-	unshift(@INC, qw(/usr/opt/perl5/lib/5.8.2/aix-thread-multi /usr/opt/perl5/lib/5.8.2 /usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi /usr/opt/perl5/lib/site_perl/5.8.2));
+if ($^O =~ /^aix/i)
+{
+    use lib "/usr/opt/perl5/lib/5.8.2/aix-thread-multi";
+    use lib "/usr/opt/perl5/lib/5.8.2";
+    use lib "/usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi";
+    use lib "/usr/opt/perl5/lib/site_perl/5.8.2";
 }
 
 use lib "$::XCATROOT/lib/perl";
@@ -23,7 +27,7 @@ use File::Path;
 use strict;
 require xCAT::Schema;
 use xCAT::NetworkUtils;
-use xCAT::TableUtils;
+
 #require Data::Dumper;
 #use Data::Dumper;
 require xCAT::NodeRange;
@@ -67,14 +71,12 @@ sub getnimprime
     # the primary NIM master is either specified in the site table
     # or it is the xCAT management node.
 
-    my $nimprime = xCAT::TableUtils->get_site_Master();
-    #my $sitetab  = xCAT::Table->new('site');
-    #(my $et) = $sitetab->getAttribs({key => "nimprime"}, 'value');
-    my @nimprimes = xCAT::TableUtils->get_site_attribute("nimprime");
-    my $tmp = $nimprimes[0];
-    if (defined($tmp))
+    my $nimprime = xCAT::Utils->get_site_Master();
+    my $sitetab  = xCAT::Table->new('site');
+    (my $et) = $sitetab->getAttribs({key => "nimprime"}, 'value');
+    if ($et and $et->{value})
     {
-        $nimprime = $tmp;
+        $nimprime = $et->{value};
     }
 
     my $hostname;
@@ -126,7 +128,7 @@ sub myxCATname
 		if (xCAT::Utils->isMN())
 		{
         	# read the site table, master attrib
-        	my $hostname = xCAT::TableUtils->get_site_Master();
+        	my $hostname = xCAT::Utils->get_site_Master();
         	if (($hostname =~ /\d+\.\d+\.\d+\.\d+/) || ($hostname =~ /:/))
         	{
             	$name = xCAT::NetworkUtils->gethostname($hostname);
@@ -750,11 +752,11 @@ sub get_server_nodes
         else
         {
             #  get ip facing node
-			$serv = xCAT::NetworkUtils->my_ip_facing($node);
+			$serv = xCAT::Utils->my_ip_facing($node);
         }
 		chomp $serv;
 
-		if (xCAT::NetworkUtils->validate_ip($serv)) {
+		if (xCAT::Utils->validate_ip($serv)) {
 			push (@{$servernodes{$serv}}, $node);
 		}
     }
@@ -1282,7 +1284,7 @@ sub dolitesetup
 
 	# add aixlitesetup to ..inst_root/aixlitesetup
 	# this will wind up in the root dir on the node ("/")
-	my $install_dir = xCAT::TableUtils->getInstallDir();
+	my $install_dir = xCAT::Utils->getInstallDir();
 	my $cpcmd = "/bin/cp $install_dir/postscripts/aixlitesetup $instrootloc/aixlitesetup; chmod +x $instrootloc/aixlitesetup";
 
 	my $out = xCAT::Utils->runcmd("$cpcmd", -1);

perl-xCAT/xCAT/KitPluginUtils.pm

@@ -1,199 +0,0 @@
-#!/usr/bin/env perl
-## IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
-
-package xCAT::KitPluginUtils;
-
-BEGIN
-{
-    $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
-}
-
-use lib "$::XCATROOT/lib/perl";
-
-use strict;
-use warnings;
-
-require xCAT::Table;
-
-
-#-------------------------------------------------------
-
-=head3  get_kits_used_by_nodes
-
-    Get the kits used by a list of nodes. A node uses a kit
-    if one or more of the kit's components are installed
-    on the node.
-
-    Arguments: list of node names (ref)
-
-    Returns: Return hash table which indexes the node names
-    by kitname (ref)
-    e.g., 
-         { "kitname1" => ["node11","node12",...],
-           "kitname2" => ["node21","node22",...]
-           ...
-         }
-
-    Examples: 
-        my @nodes = ("node11", "node12",...);
-        my $result = xCAT::KitPluginUtils->get_kits_used_by_nodes(\@nodes);
-
-=cut
-
-#-------------------------------------------------------
-
-sub get_kits_used_by_nodes {
-
-    my $class = shift;
-    my $nodes = shift;
-
-    # Group the nodes by what osimage they use
-    my $tablename = "nodetype";
-    my $table = xCAT::Table->new($tablename);
-    my $ent = $table->getNodesAttribs($nodes, ["provmethod"]);
-    
-    my $osimage_to_nodes = {};
-    foreach my $node (keys(%$ent)) {
-        my $provmethod = $ent->{$node}->[0]->{"provmethod"};
-        if (defined($provmethod)) {
-            push(@{ $osimage_to_nodes->{$provmethod} }, $node);
-       }
-    }
-
-    # Group the osimages by what kits they use
-    my @osimages = keys(%$osimage_to_nodes);
-    my $kits_to_osimages = xCAT::KitPluginUtils->get_kits_used_by_osimages(\@osimages);
-
-
-    # Group nodes by kit
-    my $kits_to_nodes = {};
-    foreach my $kit (keys(%$kits_to_osimages)) {
-        my $tmphash = {};
-        my $osimages = $kits_to_osimages->{$kit};
-        foreach my $osimage (@$osimages) {
-            # Store nodes as hash keys to eliminate duplicates
-            my @nodes = @{ $osimage_to_nodes->{$osimage} };
-            @$tmphash{@nodes} = ();
-        }
-        my @nodes = keys(%$tmphash);
-        $kits_to_nodes->{$kit} = \@nodes;
-    }
-
-    return $kits_to_nodes;
-}
-
-
-#-------------------------------------------------------
-
-=head3  get_kits_used_by_osimages
-
-    Get the kits used by a list of osimages. An osimage
-    uses a kit if one or more of the kit's components 
-    are associated with the osimage.
-
-    Arguments: list of osimage names (ref)
-
-    Returns: Return hash table which indexes the osimage
-    names by kitname (ref)
-    e.g., 
-         { "kitname1" => ["osimage11","osimage12",...],
-           "kitname2" => ["osimage21","osimage22",...]
-           ...
-         }
-
-    Examples: 
-      my @osimages = ("osimage11","osimage12", ...);
-      my $result = xCAT::KitPluginUtils->get_kits_used_by_osimages(\@osimages);
-
-=cut
-
-#-------------------------------------------------------
-
-sub get_kits_used_by_osimages {
-
-    my $class = shift;
-    my $osimages = shift;
-
-    # Get the kit components used by each osimage
-    my $tablename = "osimage";
-    my $table = xCAT::Table->new($tablename);
-
-    my $osimages_str = join ",", map {'\''.$_.'\''} @$osimages;
-    my $filter_stmt = sprintf("imagename in (%s)", $osimages_str);
-    my @table_rows = $table->getAllAttribsWhere($filter_stmt, ("imagename", "kitcomponents"));
-
-    my $kitcomps_to_osimages = {};
-    foreach my $row (@table_rows) {
-        if (defined($row->{kitcomponents})) {
-            my @kitcomps = split(/,/, $row->{kitcomponents});
-            foreach my $kitcomp (@kitcomps) {
-                push(@{ $kitcomps_to_osimages->{$kitcomp} }, $row->{imagename});
-            }
-        }
-    }
-
-    # Get the kit for each kit component
-    $tablename = "kitcomponent";
-    $table = xCAT::Table->new($tablename);
-
-    my $kitcomps_str = join ",", map {'\''.$_.'\''} keys(%$kitcomps_to_osimages);
-    $filter_stmt = sprintf("kitcompname in (%s)", $kitcomps_str);
-    @table_rows = $table->getAllAttribsWhere($filter_stmt, ("kitcompname", "kitname"));
-
-    my $kits_to_kitcomps = {};
-    foreach my $row (@table_rows) {
-        my $kitname = $row->{kitname};
-        my $kitcompname = $row->{kitcompname};
-        push(@{ $kits_to_kitcomps->{$kitname} }, $kitcompname);
-    }
-
-    # Match up kits to osimages
-
-    my $kits_to_osimages = {};
-    foreach my $kit (keys(%$kits_to_kitcomps)) {
-        my $tmphash = {};
-        my $kitcomps = $kits_to_kitcomps->{$kit};
-        foreach my $kitcomp (@$kitcomps) {
-            # Store osimages as hash keys to eliminate duplicates
-            my @osimages = @{ $kitcomps_to_osimages->{$kitcomp} };
-            @$tmphash{@osimages} = ();
-        }
-        my @osimages = keys(%$tmphash);
-        $kits_to_osimages->{$kit} = \@osimages;
-    }
-
-    return $kits_to_osimages;
-}
-
-
-#-------------------------------------------------------
-
-=head3  get_kits_used_by_image_profiles
-
-    Get the kits used by a list of image profiles.
-
-    Arguments: list of image profile names (ref)
-
-    Returns: Return hash table which indexes the image 
-    profile names by kitname (ref)
-    e.g., 
-         { "kitname1" => ["imgprofile11","imgprofile12",...],
-           "kitname2" => ["imgprofile21","imgprofile22",...]
-           ...
-         }
-
-    Examples: 
-      my @imgprofiles = ("imgprofile11","imgprofile12",...);
-      my $result = xCAT::KitPluginUtils->get_kits_used_by_image_profiles(\@imgprofiles);
-
-=cut
-
-#-------------------------------------------------------
-
-sub get_kits_used_by_image_profiles {
-
-    my $class = shift;
-    return xCAT::KitPluginUtils->get_kits_used_by_osimages(@_);
-}
-
-

perl-xCAT/xCAT/MacMap.pm

@@ -15,7 +15,6 @@ use strict;
 use xCAT::Table;
 use xCAT::Utils;
 use xCAT::MsgUtils;
-use xCAT::TableUtils;
 use IO::Select;
 use IO::Handle;
 use Sys::Syslog;
@@ -173,11 +172,9 @@ sub rvlan {
     #  operation => "pvid=<vid> or vlan=<vid>" for now, addvlan= and delvlan= for tagged vlans, 'pvid', vlan, or stat without = checks current value
     my $self=shift;
     my $community = "public";
-    #$self->{sitetab} = xCAT::Table->new('site');
-    #my $tmp = $self->{sitetab}->getAttribs({key=>'snmpc'},'value');
-    my @snmpcs =  xCAT::TableUtils->get_site_attribute("snmpc");
-    my $tmp = $snmpcs[0];
-    if ( defined($tmp) ) { $community = $tmp }
+    $self->{sitetab} = xCAT::Table->new('site');
+    my $tmp = $self->{sitetab}->getAttribs({key=>'snmpc'},'value');
+    if ($tmp and $tmp->{value}) { $community = $tmp->{value} }
     my %args = @_;
     my $op=$args{operation};
     my $nodes=$args{nodes};
@@ -305,12 +302,9 @@ sub refresh_table {
   $self->{switchestab} = xCAT::Table->new('switches', -create => 1);
   my @switchentries=$self->{switchestab}->getAllNodeAttribs([qw(switch snmpversion username password privacy auth)]);
   my $community = "public";
-  #$self->{sitetab} = xCAT::Table->new('site');
-  #my $tmp = $self->{sitetab}->getAttribs({key=>'snmpc'},'value');
-  #if ($tmp and $tmp->{value}) { $community = $tmp->{value} }
-  my @snmpcs =  xCAT::TableUtils->get_site_attribute("snmpc");
-  my $tmp = $snmpcs[0];
-  if ( defined($tmp) ) { $community = $tmp }
+  $self->{sitetab} = xCAT::Table->new('site');
+  my $tmp = $self->{sitetab}->getAttribs({key=>'snmpc'},'value');
+  if ($tmp and $tmp->{value}) { $community = $tmp->{value} }
   else { #Would warn here.. 
   }
   $self->{switchparmhash}={};

perl-xCAT/xCAT/MsgUtils.pm

@@ -5,8 +5,12 @@ package xCAT::MsgUtils;
 
 # if AIX - make sure we include perl 5.8.2 in INC path.
 #       Needed to find perl dependencies shipped in deps tarball.
-if ($^O =~ /^aix/i) {
-	unshift(@INC, qw(/usr/opt/perl5/lib/5.8.2/aix-thread-multi /usr/opt/perl5/lib/5.8.2 /usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi /usr/opt/perl5/lib/site_perl/5.8.2));
+if ($^O =~ /^aix/i)
+{
+    use lib "/usr/opt/perl5/lib/5.8.2/aix-thread-multi";
+    use lib "/usr/opt/perl5/lib/5.8.2";
+    use lib "/usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi";
+    use lib "/usr/opt/perl5/lib/site_perl/5.8.2";
 }
 
 use strict;
@@ -133,8 +137,7 @@ This program module file, supports the xcat messaging and logging
 
                 D - DATA  goes to STDOUT
                 E - error.  This type of message will be sent to STDERR.
-                si - informational status info (sinfo)
-                I - informational  goes to STDOUT 
+                I - informational  goes to STDOUT
                 N - Node informational  goes to STDOUT
                 S - Message will be logged to syslog ( severe error)
                      Note S can be combined with other flags for example
@@ -210,14 +213,12 @@ This program module file, supports the xcat messaging and logging
      $rsp->{node}->[0]->{data}->[0] ="mydata";
      xCAT::MsgUtils->message("N", $rsp, $callback);
 
+
+
       my $rsp = {};
 		$rsp->{info}->[0] = "No hosts in node list\n";
 	    xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
 
-      my $rsp = {};
-		$rsp->{sinfo}->[0] = "No hosts in node list\n";
-	    xCAT::MsgUtils->message("IS", $rsp, $::CALLBACK);
-
 
       my $rsp = {};
 		$rsp->{warning}->[0] = "No hosts in node list\n";
@@ -274,7 +275,7 @@ sub message
     my $call_back = shift;    # optional
     my $exitcode  = shift;    # optional
 
-    # should be I,IS, D, E, S, SA ,LS, W , L,N
+    # 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
@@ -356,7 +357,6 @@ sub message
         my $sevkey;
         if    ($sev =~ /D/) { $sevkey = 'data'; }
         elsif ($sev =~ /N/) { $sevkey = 'node'; }
-        elsif ($sev =~ /IS/) { $sevkey = 'sinfo'; }
         elsif ($sev =~ /I/) { $sevkey = 'info'; }
         elsif ($sev =~ /W/) { $sevkey = 'warning'; }
         elsif ($sev =~ /E/)
@@ -408,7 +408,7 @@ sub message
                 return;
             }
 
-            if (defined($exitcode))
+            if ($exitcode)
             {
                 push @{$rsp->{errorcode}}, $exitcode;
             }
@@ -720,7 +720,7 @@ sub verbose_message
     }
     my ($sec,$min,$hour,$mday,$mon,$yr,$wday,$yday,$dst) = localtime(time);
     my $time = sprintf "%04d%02d%02d.%02d:%02d:%02d", $yr+1900,$mon+1,$mday,$hour,$min,$sec;
-    $data = "$time ($$) ".$data; 
+    $data = "$time ($$) ".$data;
     if (defined($req->{callback})) {
         my %rsp;
         $rsp{data} = [$data];

perl-xCAT/xCAT/PPCboot.pm

@@ -8,7 +8,6 @@ use Getopt::Long;
 use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
 use xCAT::Usage;
 use xCAT::Utils;
-use xCAT::TableUtils;
 use xCAT::MsgUtils;
 use xCAT::LparNetbootExp;
 
@@ -468,12 +467,9 @@ sub rnetboot {
         }
     }
 
-    #my $sitetab  = xCAT::Table->new('site');
-    #my $vcon = $sitetab->getAttribs({key => "conserverondemand"}, 'value');
-    my @vcons = xCAT::TableUtils->get_site_attribute("conserverondemand");
-    my $vcon = $vcons[0]; 
-    #if ($vcon and $vcon->{"value"} and $vcon->{"value"} eq "yes" ) {
-    if ( defined($vcon) and $vcon eq "yes" ) {
+    my $sitetab  = xCAT::Table->new('site');
+    my $vcon = $sitetab->getAttribs({key => "conserverondemand"}, 'value');
+    if ($vcon and $vcon->{"value"} and $vcon->{"value"} eq "yes" ) {
         $result = xCAT::PPCcli::lpar_netboot(
                             $exp,
                             $request->{verbose},
@@ -486,7 +482,7 @@ sub rnetboot {
         #########################################
         $result = do_rnetboot( $request, $d, $exp, $name, $node, \%opt );
     }
-    #$sitetab->close;
+    $sitetab->close;
 
     if (defined($request->{opt}->{m})) {
     

perl-xCAT/xCAT/PPCcfg.pm

@@ -8,7 +8,6 @@ use xCAT::PPCfsp;
 use xCAT::Usage;
 use Storable qw(freeze thaw);
 use POSIX "WNOHANG";
-use xCAT::NetworkUtils;
 use xCAT::MsgUtils qw(verbose_message);
 
 use LWP;
@@ -738,7 +737,7 @@ sub doresetnet {
             $nodetype = ( $nodetype =~ /^frame$/i ) ? "bpa" : "fsp";
             if ($cnodep) {
                 foreach my $cnode (@$cnodep) {
-                    my $ip = xCAT::NetworkUtils::getNodeIPaddress( $cnode );
+                    my $ip = xCAT::Utils::getNodeIPaddress( $cnode );
                     my $oi = $oihash{$cnode};
                     if(!defined $ip) {
                         send_msg($req, "doresetnet: can't get $cnode ip");
@@ -787,7 +786,7 @@ sub doresetnet {
     # this brunch is just for the xcat 2.5(or 2.5-) databse
     } elsif ( $nodetype =~ /^(fsp|bpa)$/ )  {
         foreach my $nn ( @{ $req->{node}} ) {
-            my $ip = xCAT::NetworkUtils::getNodeIPaddress( $nn );
+            my $ip = xCAT::Utils::getNodeIPaddress( $nn );
             if(!defined $ip) {
                 send_msg($req, "doresetnet: can't get $nn ip");
                 next;
@@ -1048,7 +1047,6 @@ sub child_process {
         }
     my $msg = "login result is :".join(',', @exp);
     xCAT::MsgUtils->verbose_message( $req, $msg);
-
     ####################################
     # do resetnet
     ####################################
@@ -1432,3 +1430,4 @@ sub connect {
 
 1;
 
+

perl-xCAT/xCAT/PPCcli.pm

@@ -6,7 +6,7 @@ require Exporter;
     our @ISA = qw(Exporter);
     our @EXPORT_OK = qw(SUCCESS RC_ERROR EXPECT_ERROR NR_ERROR);  
 use Expect;
-use xCAT::NetworkUtils;
+
 
 #############################################
 # Removes Ctrl characters from term output
@@ -1335,7 +1335,7 @@ sub getHMCcontrolIP
         #my @newnodes = split(/,/, $nodes_found->[0]);
         #$Rc = shift(@newnodes);
         #for my $entry (@newnodes) {
-        #    if(xCAT::NetworkUtils->isIpaddr($entry)) {
+        #    if(xCAT::Utils->isIpaddr($entry)) {
         #        push @ips,$entry;
         #    }    
         #    $ip_result = join( ",", @ips );

perl-xCAT/xCAT/PPCconn.pm

@@ -5,10 +5,9 @@ use strict;
 use Getopt::Long;
 use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
 use xCAT::Usage;
-use xCAT::NetworkUtils;
 use xCAT::DBobjUtils;
 use xCAT::FSPUtils;
-use xCAT::MsgUtils qw(verbose_message);
+
 ##############################################
 # Globals
 ##############################################
@@ -474,7 +473,6 @@ sub mkhwconn
     my @value   = ();
     my $Rc      = undef;
 
-    xCAT::MsgUtils->verbose_message($request, "mkhwconn START."); 
     for my $cec_bpa ( keys %$hash)
     {
         my $node_hash = $hash->{$cec_bpa};
@@ -503,12 +501,11 @@ sub mkhwconn
             } else {
                 push @newnodes,$cnode;
             }
-            xCAT::MsgUtils->verbose_message($request, "mkhwconn :mksysconn for node:$node_name."); 
             for my $nn ( @newnodes )
             {
                 my $node_ip;
-                unless ( xCAT::NetworkUtils->isIpaddr($nn) ) {
-                    $node_ip = xCAT::NetworkUtils::getNodeIPaddress( $nn );
+                unless ( xCAT::Utils->isIpaddr($nn) ) {
+                    $node_ip = xCAT::Utils::getNodeIPaddress( $nn );
                 } else {
                     $node_ip = $nn;
                 }
@@ -552,7 +549,6 @@ sub mkhwconn
 #            }
         }
     }
-    xCAT::MsgUtils->verbose_message($request, "mkhwconn END."); 
     return \@value;
 }
 ##########################################################################
@@ -643,7 +639,7 @@ sub lshwconn
                 {
                     #my $node_ip_hash = $hosttab->getNodeAttribs( $node_name,[qw(ip)]);
                     #$node_ip = $node_ip_hash->{ip};
-                    #$node_ip = xCAT::NetworkUtils::getNodeIPaddress( $node_name );
+                    #$node_ip = xCAT::Utils::getNodeIPaddress( $node_name );
 		    my $d = $node_hash->{$node_name};
                     $node_ip = xCAT::FSPUtils::getIPaddress($request, $$d[4], $node_name );
                 }

perl-xCAT/xCAT/PPCdb.pm

@@ -4,9 +4,7 @@ package xCAT::PPCdb;
 use strict;
 use xCAT::Table;
 use xCAT::GlobalDef;
-use xCAT::Utils;
-use xCAT::TableUtils;
-use xCAT::NetworkUtils;
+
 
 ###########################################
 # Factory defaults
@@ -949,7 +947,7 @@ sub get_host {
     #######################################
     if ($ip)
     {
-        my $nets = xCAT::NetworkUtils::my_nets();
+        my $nets = xCAT::Utils::my_nets();
         my $avip = getip_from_iplist( $ip, $nets);
         #if ( !defined( $ip )) {
         #    return undef;
@@ -986,7 +984,7 @@ sub get_host {
             }
 
             if ( $tmpmtm eq $mtm  and  $tmpsn eq $sn) {
-                my $ifip = xCAT::NetworkUtils->isIpaddr($oldnode);
+                my $ifip = xCAT::Utils->isIpaddr($oldnode);
                 if ( $ifip )  {# which means that the node is defined by the new lsslp
                     if ( $tmpside eq $side ) {# match! which means that node is the same as the new one
                         if ( $ip eq $tmpip ) { #which means that the ip is not changed
@@ -1106,7 +1104,7 @@ sub get_host {
     }
 
     # not matched, use the new name
-    my $ifip = xCAT::NetworkUtils->isIpaddr($nodename);
+    my $ifip = xCAT::Utils->isIpaddr($nodename);
     unless ($ifip) {
         return $nodename;
     }else {
@@ -1152,8 +1150,8 @@ sub getip_from_iplist
         for my $net ( keys %$nets)
         {
             my ($n,$m) = split /\//,$net;
-            if ( xCAT::NetworkUtils::isInSameSubnet( $n, $ip, $m, 1) and
-                 xCAT::NetworkUtils::isPingable( $ip))
+            if ( xCAT::Utils::isInSameSubnet( $n, $ip, $m, 1) and
+                 xCAT::Utils::isPingable( $ip))
             {
                 return $ip;
             }
@@ -1167,7 +1165,7 @@ sub read_from_table {
     my %typehash;
     my %iphash;
     my %vpdhash;
-    if ( !(%::OLD_DATA_CACHE))
+    if ( !defined(%::OLD_DATA_CACHE))
     {
         # find out all the existed nodes' ipaddresses
         my $hoststab  = xCAT::Table->new('hosts');
@@ -1213,7 +1211,7 @@ sub read_from_table {
                 @{$::OLD_DATA_CACHE{$entry->{node}}}[1] = @{$vpdhash{$entry->{node}}}[1];#sn
                 @{$::OLD_DATA_CACHE{$entry->{node}}}[2] = @{$vpdhash{$entry->{node}}}[2];#side
                 # find node ip address, check node name first, then check hosts table
-                my $ifip = xCAT::NetworkUtils->isIpaddr($entry->{node});
+                my $ifip = xCAT::Utils->isIpaddr($entry->{node});
                 if ( $ifip )
                 {
                     @{$::OLD_DATA_CACHE{$entry->{node}}}[3] = $entry->{node};#ip

perl-xCAT/xCAT/PPCenergy.pm

@@ -2,19 +2,13 @@
 
 package xCAT::PPCenergy;
 
-BEGIN
-{
-    $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
-}
-use lib "$::XCATROOT/lib/perl";
-
 use strict;
 use Getopt::Long;
 use xCAT::Usage;
 use xCAT::NodeRange;
 use xCAT::DBobjUtils;
 use xCAT::FSPUtils;
-use xCAT::TableUtils qw(get_site_Master);
+
 %::QUERY_ATTRS = (
 'savingstatus' => 1,
 'dsavingstatus' => 1,
@@ -257,7 +251,7 @@ sub renergy {
         if( !defined($fsps) ) {
             return ([[$node, "Failed to get the FSPs for the cec $hcphost.", -1]]);
         }
-        #my $hcp_ip = xCAT::NetworkUtils::getNodeIPaddress($hcphost);
+        #my $hcp_ip = xCAT::Utils::getNodeIPaddress($hcphost);
         my $hcp_ip = xCAT::FSPUtils::getIPaddress($request, $hw_type, $hcphost);
         if (!defined($hcp_ip) or ($hcp_ip == -3)) {
             return ([[$node, "Failed to get IP address for $hcphost.", -1]]);
@@ -270,7 +264,7 @@ sub renergy {
         }
     } else {
         # for the case that hcp is hmc or fsp
-        push @hcps_ip, xCAT::NetworkUtils::getNodeIPaddress($hcphost);
+        push @hcps_ip, xCAT::Utils::getNodeIPaddress($hcphost);
     }
 
     if (!$user || !$password) {
@@ -285,80 +279,28 @@ sub renergy {
     }
     $verbose = $tmpv;
 
-    my @pingable_hcp;
-    if (-x '/usr/bin/nmap' or -x '/usr/local/bin/nmap') { #use nmap
-	#print "use nmap\n";
-	if ($verbose) {
-	    push @return_msg, [$node, "Checking ping status using nmap for @hcps_ip", 0];
-	}
-	my %deadnodes;
-	foreach (@hcps_ip) {
-	    $deadnodes{$_}=1;
-	}	 
-	open (NMAP, "nmap -PE --system-dns --send-ip -sP ". join(' ',@hcps_ip) . " 2> /dev/null|") or die("Cannot open nmap pipe: $!");
-	my $node1;
-	my $msg1;
-	while (<NMAP>) {
-	    #print "$_\n";
-	    if (/Host (.*) \((.*)\) appears to be up/) {
-		$node1=$2;
-		unless ($deadnodes{$node1}) {
-		    foreach (keys %deadnodes) {
-			if ($node1 =~ /^$_\./) {
-			    $node1 = $_;
-			    last;
-			}
-		    }
-		}
-		delete $deadnodes{$node1};
-		if ($verbose) {
-		    push @return_msg, [$node, $_, 0];
-		}
-		push(@pingable_hcp, $node1);
-	    } elsif (/Nmap scan report for ([^ ]*) \((.*)\)/) {
-		$node1=$2;
-		$msg1=$_;
-	    } elsif (/Host is up./) {
-		unless ($deadnodes{$node1}) {
-		    foreach (keys %deadnodes) {
-			if ($node1 =~ /^$_\./) {
-			    $node1 = $_;
-			    last;
-			}
-		    }
-		}
-		delete $deadnodes{$node1};
-		if ($verbose) {
-		    push @return_msg, [$node, "$msg1$_", 0];
-		}
-		push(@pingable_hcp, $node1);
-	    }
-	}	
+    my $master = xCAT::Utils->get_site_Master();
+    my $masterip = xCAT::NetworkUtils->getipaddr($master);
+    if ($masterip =~ /:/) { #IPv6, needs fping6 support 
+        if (!-x '/usr/bin/fping6')
+        {
+            push @return_msg, [$node, "fping6 is not availabe for IPv6 ping.", -1];
+            return \@return_msg;
+        }
+        open (FPING, "fping6 ".join(' ',@hcps_ip). " 2>&1 |") or die("Cannot open fping pipe: $!");
     } else {
-	#use fping
-	#print "use fping\n";
-	my $master = xCAT::TableUtils->get_site_Master();
-	my $masterip = xCAT::NetworkUtils->getipaddr($master);
-	if ($masterip =~ /:/) { #IPv6, needs fping6 support 
-	    if (!-x '/usr/bin/fping6')
-	    {
-		push @return_msg, [$node, "fping6 is not availabe for IPv6 ping.", -1];
-		return \@return_msg;
-	    }
-	    open (FPING, "fping6 ".join(' ',@hcps_ip). " 2>&1 |") or die("Cannot open fping pipe: $!");
-	} else {
-	    open (FPING, "fping ".join(' ',@hcps_ip). " 2>&1 |") or die("Cannot open fping pipe: $!");
-	}
-	
-	while (<FPING>) {
-	    if ($verbose) {
-		push @return_msg, [$node, $_, 0];
-	    }
-	    if ($_ =~ /is alive/) {
-		s/ is alive//;
-		push @pingable_hcp, $_;
-	    }
-	}
+        open (FPING, "fping ".join(' ',@hcps_ip). " 2>&1 |") or die("Cannot open fping pipe: $!");
+    }
+
+    my @pingable_hcp;
+    while (<FPING>) {
+        if ($verbose) {
+            push @return_msg, [$node, $_, 0];
+        }
+        if ($_ =~ /is alive/) {
+            s/ is alive//;
+            push @pingable_hcp, $_;
+        }
     }
 
     if (!@pingable_hcp) {
@@ -377,23 +319,17 @@ sub renergy {
         # Generate the url path for CIM communication
         chomp($hcp);
         my $url_path = "https://"."$user".":"."$password"."\@"."$hcp".":5989";
-
-        # Not display password in command outupt.
-        my $display_url_path = "https://"."$user".":"."xxxxxx"."\@"."$hcp".":5989";
             
         # Execute the request
         my $cmd = "";
-        my $display_cmd = "";
         if ($opt->{'set'}) {
             $cmd = "$::CIM_CLIENT_PATH $verb_arg -u $url_path -n $cec_name -o $opt->{'set'}";
-            $display_cmd = "$::CIM_CLIENT_PATH $verb_arg -u $display_url_path -n $cec_name -o $opt->{'set'}";
         } elsif ($opt->{'query'}) {
             $cmd = "$::CIM_CLIENT_PATH $verb_arg -u $url_path -n $cec_name -o $opt->{'query'}";
-            $display_cmd = "$::CIM_CLIENT_PATH $verb_arg -u $display_url_path -n $cec_name -o $opt->{'query'}";
         }
         
         if ($verbose) {
-            push @noerr_msg, [$node, "Run following command: $display_cmd", 0];
+            push @noerr_msg, [$node, "Run following command: $cmd", 0];
         }
     
         # Disable the CHID signal before run the command. Otherwise the 

perl-xCAT/xCAT/PPCfsp.pm

@@ -12,7 +12,6 @@ use Socket;
 use xCAT::PPCdb; 
 use xCAT::MsgUtils qw(verbose_message);
 use xCAT::Utils;
-use xCAT::TableUtils;
 use xCAT::NetworkUtils;
 ##########################################
 # Globals
@@ -78,7 +77,7 @@ sub handler {
     # Disconnect from FSP 
     #####################################
     unless ($flag) {
-    xCAT::PPCfsp::disconnect( $exp );
+        xCAT::PPCfsp::disconnect( $exp );
     }    
     return( \@outhash );
 
@@ -1914,7 +1913,7 @@ sub set_netcfg
     elsif ( $inc_ip eq '*')
     {
         $inc_type = 'Static';
-        ($inc_ip, $inc_host, $inc_gateway, $inc_netmask) = xCAT::NetworkUtils::getNodeNetworkCfg(@$exp[1]);
+        ($inc_ip, $inc_host, $inc_gateway, $inc_netmask) = xCAT::Utils::getNodeNetworkCfg(@$exp[1]);
     }
     else
     {

perl-xCAT/xCAT/PPCinv.pm

@@ -59,7 +59,7 @@ sub parse_args {
     $Getopt::Long::ignorecase = 0;
     Getopt::Long::Configure( "bundling" );
 
-    if ( !GetOptions( \%opt, qw(V|verbose) )) { 
+    if ( !GetOptions( \%opt, qw(V|Verbose) )) { 
         return( usage() );
     }
     ####################################

perl-xCAT/xCAT/PPCmac.pm

@@ -6,11 +6,8 @@ use strict;
 use Getopt::Long;
 use Data::Dumper;
 use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
-use xCAT::Utils;
-use xCAT::TableUtils;
-use xCAT::ServiceNodeUtils;
 use xCAT::NetworkUtils;
-use xCAT::MsgUtils qw(verbose_message);
+
 use xCAT::LparNetbootExp;
 
 ##########################################################################
@@ -49,7 +46,7 @@ sub parse_args {
     $Getopt::Long::ignorecase = 0;
     Getopt::Long::Configure( "bundling" );
 
-    if ( !GetOptions( \%opt,qw(h|help V|verbose v|version C=s G=s S=s D d f M o F=s arp))) { 
+    if ( !GetOptions( \%opt,qw(h|help V|Verbose v|version C=s G=s S=s D d f M o F=s arp))) { 
         return( usage() );
     }
     ####################################
@@ -77,15 +74,6 @@ sub parse_args {
         return(usage( "Invalid Argument: $ARGV[0]" ));
     }
     ####################################
-    # Check -o argument 
-    ####################################
-    if ( exists($opt{o}) ) {
-        unless (exists($opt{D})){
-            return(usage( "The -o flag must be used with -D flag" ));
-        }
-    
-    }
-    ####################################
     # Check argument for ping test
     ####################################
     if ( exists($opt{D}) ) {
@@ -102,9 +90,9 @@ sub parse_args {
         if ( exists($opt{S}) ) {
             push @network, $_;
         } else {
-	    $server = xCAT::ServiceNodeUtils->getSNformattedhash( $node, "xcat", "node", "primary" );
+			$server = xCAT::Utils->getSNformattedhash( $node, "xcat", "node", "primary" );
             foreach my $key ( keys %$server ) {
-                my $valid_ip = xCAT::NetworkUtils->validate_ip( $key );
+                my $valid_ip = xCAT::Utils->validate_ip( $key );
                 if ( $valid_ip ) {
                     ###################################################
                     # Service node is returned as hostname, Convert 
@@ -209,7 +197,7 @@ sub parse_args {
             if ( scalar(@network) != 3 ) {
                 return( usage() );
             }
-            my $result = xCAT::NetworkUtils->validate_ip( $opt{C}, $opt{G}, $opt{S} );
+            my $result = xCAT::Utils->validate_ip( $opt{C}, $opt{G}, $opt{S} );
             if ( @$result[0] ) {
                 return(usage( @$result[1] ));
             }
@@ -406,7 +394,6 @@ sub do_getmacs {
             #        last;
             #    }
             #}
-            xCAT::MsgUtils->verbose_message($request, "getmacs :lparnetbootexp for node:$node.");
             my $Rc = xCAT::LparNetbootExp->lparnetbootexp(\%optarg, $request);
     ######################################
     # Split results into array
@@ -644,7 +631,6 @@ sub getmacs {
         #########################################
         # Connect to fsp to achieve MAC address
         #########################################
-        xCAT::MsgUtils->verbose_message($request, "getmacs START.");
         my $d = $par;
 
         #########################################
@@ -665,7 +651,6 @@ sub getmacs {
         # Get name known by HCP
         #########################################
         my $filter = "name,lpar_id";
-        xCAT::MsgUtils->verbose_message($request, "getmacs :lssyscfg filter '$filter'.");
         my $values = xCAT::PPCcli::lssyscfg( $exp, $type, $mtms, $filter );
         my $Rc = shift(@$values);
 
@@ -691,14 +676,9 @@ sub getmacs {
             return( [[$node,"Node not found, lparid=$lparid",RC_ERROR]] );
         }
 
-        #my $sitetab  = xCAT::Table->new('site');
-        #my $vcon = $sitetab->getAttribs({key => "conserverondemand"}, 'value');
-        #there may be something wrong with the conserverondemand attribute. 
-        # Currently, the code is not used. So not fix this time. Just keep it here.
-        my @vcons = xCAT::TableUtils->get_site_attribute("conserverondemand");
-        my $vcon = $vcons[0];
-        #if ($vcon and $vcon->{"value"} and $vcon->{"value"} eq "yes" ) {
-        if ( defined($vcon) and $vcon eq "yes" ) {
+        my $sitetab  = xCAT::Table->new('site');
+        my $vcon = $sitetab->getAttribs({key => "conserverondemand"}, 'value');
+        if ($vcon and $vcon->{"value"} and $vcon->{"value"} eq "yes" ) {
             $result = xCAT::PPCcli::lpar_netboot(
                             $exp,
                             $request->{verbose},
@@ -709,11 +689,10 @@ sub getmacs {
             #########################################
             # Manually collect MAC addresses.
             #########################################
-            xCAT::MsgUtils->verbose_message($request, "getmacs :do_getmacs for node:$node.");
             $result = do_getmacs( $request, $d, $exp, $name, $node );
             $Rc = shift(@$result);
         }
-        #$sitetab->close;
+        $sitetab->close;
         
    
         ##################################
@@ -765,7 +744,6 @@ sub getmacs {
         if ( !exists( $opt->{d} )) {
             writemac( $node, $result );
         }
-        xCAT::MsgUtils->verbose_message($request, "getmacs END.");
         return( [[$node,$data,$Rc]] );
     }
 }

perl-xCAT/xCAT/PPCpower.pm

@@ -40,7 +40,7 @@ sub parse_args {
     $Getopt::Long::ignorecase = 0;
     Getopt::Long::Configure( "bundling" );
 
-    if ( !GetOptions( \%opt, qw(V|verbose m:s@ t=s T=s r=s nodeps) )) {
+    if ( !GetOptions( \%opt, qw(V|Verbose m:s@ t=s T=s r=s nodeps) )) {
         return( usage() );
     }
     ####################################

perl-xCAT/xCAT/PPCrflash.pm

@@ -8,8 +8,6 @@ use xCAT::Usage;
 use xCAT::PPCinv;
 use xCAT::DSHCLI;
 use xCAT::Table;
-use xCAT::Utils;
-use xCAT::TableUtils;
 use Getopt::Long;
 use File::Spec;
 use POSIX qw(tmpnam);
@@ -51,6 +49,7 @@ sub parse_args {
     my %opt     = ();
     my $cmd     = $request->{command};
     my $args    = $request->{arg};
+
     #############################################
     # Change CEC/Frame node into FSPs/BPAs
     #############################################     
@@ -158,15 +157,15 @@ sub parse_args {
     #--activate's value only can be concurrent and disruptive
     ################################
     if(exists($opt{activate})) {
-        if (defined($request->{mgt}) && $request->{mgt} =~ /xCAT::FSP/i) {
-            if ($opt{activate} !~ /deferred|disruptive/) {
-                return (usage("--activate's value can only be deferred or disruptive."));
+        if (defined($request->{mgt}) && ($request->{mgt} =~ /xCAT::FSP/i)) {
+            if (($opt{activate} ne "deferred") && ($opt{activate} ne "disruptive")) {
+                return (usage("--activate's value can only be deferred or disruptive"));
             }
         } else {
-            if(($opt{activate} ne "disruptive") && ($opt{activate} ne "concurrent")) {
-                return (usage("--activate's value can only be disruptive or concurrent."));
+            if( ($opt{activate} ne "concurrent") && ($opt{activate} ne "disruptive")) {
+                return (usage("--activate's value can only be disruptive or concurrent"));
             }
-        }
+        }  
         if(!exists( $opt{d} )) {
             $opt{d} = "/tmp";
         }
@@ -326,7 +325,7 @@ sub preprocess_for_rflash {
     my $request      = shift;
     my $opt = shift;    
     my $callback = $request->{callback}; 
-    my $install_dir = xCAT::TableUtils->getInstallDir();
+    my $install_dir = xCAT::Utils->getInstallDir();
     my $packages_fw = "$install_dir/packages_fw";
     my $c = 0;
     my $packages_d;
@@ -534,22 +533,18 @@ sub get_lic_filenames {
     #############
     if($fff ne $2) {
         $upgrade_required = 1;
-        if($activate ne "disruptive") {
-            $msg = "Option --activate's value should be disruptive";
-            return ("", "","", $msg, -1);
-        }
     } else {
 
-        if(($pns eq $1) && ($3 > $active_level) &&($4 <= $active_level)) {
-            $msg = $msg. "Upgrade $mtms $activate!";
-            if($activate ne "concurrent") {
-                $msg = "Option --actviate's value should be concurrent";
-                return ("", "","", $msg, -1);
-            }
+        if(($pns eq $1) && ($4 <= $active_level)) {
+        $msg = $msg. "Upgrade $mtms $activate!";
+    #    if($activate ne "concurrent") {
+    #        $msg = "Option --actviate's value should be disruptive";
+    #        return ("", "","", $msg, -1);
+    #    }
         } else {
-            $msg = $msg . "Upgrade $mtms!";
-            if($activate ne "disruptive") {
-                $msg = "Option --activate's value should be disruptive";
+        $msg = $msg . "Upgrade $mtms!";
+            if($activate !~ /^(disruptive|concurrent)$/) {
+                $msg = "Option --activate's value shouldn't be $activate, and it must be disruptive or concurrent";
                 return ("", "","", $msg, -1);
             }
         } 

perl-xCAT/xCAT/PPCscan.pm

@@ -74,7 +74,7 @@ sub parse_args {
     $Getopt::Long::ignorecase = 0;
     Getopt::Long::Configure( "bundling" );
 
-    if ( !GetOptions( \%opt, qw(V|verbose u w x z) )){
+    if ( !GetOptions( \%opt, qw(V|Verbose u w x z) )){
         return( usage() );
     }
     ####################################

perl-xCAT/xCAT/PPCvitals.pm

@@ -40,7 +40,7 @@ sub parse_args {
     $Getopt::Long::ignorecase = 0;
     Getopt::Long::Configure( "bundling" );
 
-    if ( !GetOptions( \%opt, qw(V|verbose) )) {
+    if ( !GetOptions( \%opt, qw(V|Verbose) )) {
         return( usage() );
     }
     ####################################

perl-xCAT/xCAT/PPCvm.pm

@@ -8,7 +8,7 @@ use xCAT::PPCdb;
 use xCAT::Usage;
 use xCAT::NodeRange;
 use Data::Dumper;
-use xCAT::MsgUtils qw(verbose_message);
+
 
 ##############################################
 # Globals
@@ -504,7 +504,6 @@ sub clone {
     # Enumerate CECs
     #####################################
     my $filter = "type_model,serial_num";
-    xCAT::MsgUtils->verbose_message($request, "$request->{command} :lssyscfg fsps.filter:'$filter'.");
     my $cecs = xCAT::PPCcli::lssyscfg( $exp, "fsps", $filter );
     my $Rc = shift(@$cecs);
 
@@ -580,7 +579,6 @@ sub clone {
         $temp[2] = $destcec;
         $temp[4] = 'lpar';
 
-        xCAT::MsgUtils->verbose_message($request, "$request->{command} :mksyscfg lpar.cfg:'$cfg'.");
         my $result = xCAT::PPCcli::mksyscfg( $exp, "lpar", \@temp, $cfg ); 
         $Rc = shift(@$result);
 
@@ -620,7 +618,6 @@ sub remove {
     my @lpars   = ();
     my @values  = ();
     
-    xCAT::MsgUtils->verbose_message($request, "$request->{command} START.");
     while (my ($mtms,$h) = each(%$hash) ) {
         while (my ($lpar,$d) = each(%$h) ) {
             my $lparid = @$d[0];
@@ -644,7 +641,6 @@ sub remove {
             ####################################
             else {
                 my $filter = "name,lpar_id";
-                xCAT::MsgUtils->verbose_message($request, "$request->{command} :lssyscfg lpar.filter:'$filter'.");
                 my $result = xCAT::PPCcli::lssyscfg( 
                                              $exp,
                                              "lpar",
@@ -677,7 +673,6 @@ sub remove {
                     ###############################################
                     # begin to retrieve the CEC's service lpar id
                     ############################################### 
-                    xCAT::MsgUtils->verbose_message($request, "$request->{command} :lssyscfg fsp.filter:'service_lpar_id'.");
                     my $service_lparid = xCAT::PPCcli::lssyscfg(
                                                   $exp,
                                                   "fsp",
@@ -692,7 +687,6 @@ sub remove {
                         my $cfgdata = @$service_lparid[0];
                             if ( ($id == $cfgdata) && ($cfgdata !~ /none/) ) {
                                 $cfgdata = "service_lpar_id=none";
-                                xCAT::MsgUtils->verbose_message($request, "$request->{command} :lssyscfg fsp.filter:'$cfgdata'.");
                                 my $result = xCAT::PPCcli::chsyscfg( $exp, "fsp", $d, $cfgdata );
                                 $Rc = shift(@$result);
                                 if ( $Rc != SUCCESS ) {
@@ -709,7 +703,6 @@ sub remove {
                 ################################
                 # Send remove command 
                 ################################
-                xCAT::MsgUtils->verbose_message($request, "$request->{command} :rmsyscfg lpar.id:$id.");
                 my $result = xCAT::PPCcli::rmsyscfg( $exp, \@d );
                 my $Rc = shift(@$result);
 
@@ -717,7 +710,6 @@ sub remove {
                 # Remove LPAR from database 
                 ################################
                 if ( $Rc == SUCCESS and !exists( $opt->{r} ) ) {
-                    xCAT::MsgUtils->verbose_message($request, "$request->{command} :remove lpar:$name from xCATdb.");
                     my $err = xCATdB( "rmvm", $name,"", $id,"", $type,"" , $lpar );
                     if ( defined( $err )) {
                         push @values, [$lpar,$err,RC_ERROR];
@@ -728,7 +720,6 @@ sub remove {
             }
         }
     }
-    xCAT::MsgUtils->verbose_message($request, "$request->{command} END.");
     return( \@values ); 
 }
 
@@ -800,7 +791,6 @@ sub modify_by_attr {
     my $attrstr= $opt->{a};
     my @values;
 
-    xCAT::MsgUtils->verbose_message($request, "$request->{command} START.");
     # attrstr will be in stdin for "cat vmdef | chvm nodename"
     if (!defined($attrstr) && defined($request->{stdin})) {
         my $tempattr = $request->{stdin};
@@ -846,7 +836,6 @@ sub modify_by_attr {
                 ###########################
                 # Get current profile
                 ###########################
-                xCAT::MsgUtils->verbose_message($request, "$request->{command} :lssyscfg node.id:'@$d[0]'.");
                 my $cfg_res = xCAT::PPCcli::lssyscfg(
                              $exp,
                              "node",
@@ -879,7 +868,6 @@ sub modify_by_attr {
                 }
 
 
-               xCAT::MsgUtils->verbose_message($request, "$request->{command} :lssyscfg prof.filter:'lpar_ids=@$d[0],profile_names=@$cfg_res[0]'.");
                 my $prof = xCAT::PPCcli::lssyscfg(
                              $exp,
                              "prof",
@@ -905,14 +893,12 @@ sub modify_by_attr {
                     push @values, [$lpar, $err_msg, $Rc];
                     next;
                 }
-                xCAT::MsgUtils->verbose_message($request, "$request->{command} :chsyscfg prof.cfg:'$cfgdata'.");
                 my $result = xCAT::PPCcli::chsyscfg( $exp, "prof", $d, $cfgdata );
                 $Rc = shift(@$result);
                 push @values, [$lpar,@$result[0],$Rc];
             }
         }
     }
-    xCAT::MsgUtils->verbose_message($request, "$request->{command} END.");
     return (\@values);
 }
 
@@ -1018,7 +1004,6 @@ sub modify_by_prof {
     my $profile = $opt->{p};
     my @values;
 
-    xCAT::MsgUtils->verbose_message($request, "$request->{command} START.");
     #######################################
     # -p flag, find profile specified
     #######################################
@@ -1044,7 +1029,6 @@ sub modify_by_prof {
                 ###########################
                 # Get LPAR profiles 
                 ###########################
-                xCAT::MsgUtils->verbose_message($request, "$request->{command} :lssyscfg prof.filter:'lpar_ids=@$d[0],profile_names=$profile'.");
                 my $prof = xCAT::PPCcli::lssyscfg(
                              $exp,
                              "prof",
@@ -1116,7 +1100,6 @@ sub modify_by_prof {
             # Send command 
             ###############################
             if ( defined( $profile )) {
-               xCAT::MsgUtils->verbose_message($request, "$request->{command} :mksyscfg prof.cfg:'$cfg'.");
                my $result = xCAT::PPCcli::mksyscfg( $exp, "prof", $d, $cfg );
                my $Rc = shift(@$result);
 
@@ -1129,14 +1112,12 @@ sub modify_by_prof {
                push @values, [$lpar,@$result[0],$Rc];
             }
             else {
-               xCAT::MsgUtils->verbose_message($request, "$request->{command} :chsyscfg prof.cfg:'$cfg'.");
                my $result = xCAT::PPCcli::chsyscfg( $exp, "prof", $d, $cfg );
                my $Rc = shift(@$result);
                push @values, [$lpar,@$result[0],$Rc];
             }
         }
     }
-    xCAT::MsgUtils->verbose_message($request, "$request->{command} END.");
     return( \@values );
 }
 
@@ -1155,7 +1136,6 @@ sub list {
     my @lpars   = ();
     my $result;
 
-    xCAT::MsgUtils->verbose_message($request, "$request->{command} START.");
     while (my ($mtms,$h) = each(%$hash) ) {
         while (my ($lpar,$d) = each(%$h) ) {
             my $lparid = @$d[0];
@@ -1181,7 +1161,6 @@ sub list {
             ####################################
             else {
                 my $filter = "name,lpar_id";
-                xCAT::MsgUtils->verbose_message($request, "$request->{command} :lssyscfg lpar.filter:'$filter'.");
                 my $result = xCAT::PPCcli::lssyscfg(
                                              $exp,
                                              "lpar",
@@ -1212,7 +1191,6 @@ sub list {
                 #################################
                 # Get source LPAR profile
                 #################################
-                xCAT::MsgUtils->verbose_message($request, "$request->{command} :lssyscfg prof.filter:'lpar_ids=$id'.");
                 my $prof = xCAT::PPCcli::lssyscfg(
                                       $exp,
                                       "prof",
@@ -1266,7 +1244,7 @@ sub list {
     foreach ( sort keys %$values ) {
         push @value,$values->{$_};
     }
-    xCAT::MsgUtils->verbose_message($request, "$request->{command} END.");
+
     return( \@value );
 }
 ##########################################################################
@@ -1626,7 +1604,7 @@ sub create {
     my $mtms;
     my $type;
     my $profile;
-    xCAT::MsgUtils->verbose_message($request, "$request->{command} START.");
+
     #####################################
     # Get source node information
     #####################################
@@ -1665,7 +1643,6 @@ sub create {
     #####################################
     # Get source LPAR profile  
     #####################################
-    xCAT::MsgUtils->verbose_message($request, "$request->{command} :lssyscfg prof.filter:'lpar_ids=$lparid'.");
     my $prof = xCAT::PPCcli::lssyscfg(
                               $exp,
                               "prof",
@@ -1744,7 +1721,6 @@ sub create {
         #################################
         # Create new LPAR  
         #################################
-        xCAT::MsgUtils->verbose_message($request, "$request->{command} :mksyscfg lpar.cfg:'$cfgdata'.");
         $result = xCAT::PPCcli::mksyscfg( $exp, "lpar", $d, $cfgdata ); 
         $Rc = shift(@$result);
 
@@ -1752,7 +1728,6 @@ sub create {
         # Add new LPAR to database 
         #################################
         if ( $Rc == SUCCESS ) {
-            xCAT::MsgUtils->verbose_message($request, "$request->{command} :add lpar:$name from xCATdb.");
             my $err = xCATdB( "mkvm", $name, $profile, $id, $d, $hwtype, $lpar);
             if ( defined( $err )) {
                 push @values, [$name,$err,RC_ERROR];
@@ -1763,7 +1738,6 @@ sub create {
         push @values, [$name,@$result[0],$Rc];
         $id++;
     }
-    xCAT::MsgUtils->verbose_message($request, "$request->{command} END.");
     return( \@values );
 }
 

perl-xCAT/xCAT/RSYNC.pm

@@ -5,7 +5,7 @@ package xCAT::RSYNC;
 
 # cannot use strict
 use base xCAT::DSHRemoteShell;
-use xCAT::TableUtils qw(get_site_attribute);
+
 # Determine if OS is AIX or Linux
 # Configure standard locations of commands based on OS
 
@@ -35,7 +35,6 @@ if ($^O eq 'linux')
         	$class - Calling module name (discarded)
         	$config - Reference to copy command configuration hash table
         	$exec_path - Path to rsync executable
-        	$localhost - 1 indicates we are running on the Management Node 
 
         Returns:
         	A command array for the rsync command with the appropriate
@@ -69,7 +68,7 @@ if ($^O eq 'linux')
 
 sub remote_copy_command
 {
-    my ($class, $config, $exec_path,$localhost) = @_;
+    my ($class, $config, $exec_path) = @_;
 
     $exec_path || ($exec_path = $RSYNC_CMD);
 
@@ -77,7 +76,7 @@ sub remote_copy_command
     my $usersh=0;
     if ($^O eq 'aix')
     {
-      my @useSSH = xCAT::TableUtils->get_site_attribute("useSSHonAIX");
+      my @useSSH = xCAT::Utils->get_site_attribute("useSSHonAIX");
       if (defined($useSSH[0])) { 
         $useSSH[0] =~ tr/a-z/A-Z/;    # convert to upper
         if (($useSSH[0] eq "0") || ($useSSH[0] eq "NO"))
@@ -97,13 +96,13 @@ sub remote_copy_command
         if ($^O eq 'aix')
         {
             if (-e ("/usr/bin/rsync")) {
-             if (($usersh == 0) || ($localhost == 1)) { # using ssh, or local 
+             if ($usersh == 0) { # using ssh
                 $sync_opt = '--rsync-path /usr/bin/rsync ';
              } else {
                 $sync_opt = '--rsh /bin/rsh --rsync-path /usr/bin/rsync ';
              }
             } else {
-             if (($usersh == 0) || ($localhost == 1)) { # using ssh, or local
+             if ($usersh == 0) { # using ssh
                 $sync_opt = '--rsync-path /usr/local/bin/rsync ';
              } else {
                 $sync_opt = '--rsh /bin/rsh --rsync-path /usr/local/bin/rsync ';
@@ -114,10 +113,9 @@ sub remote_copy_command
         {
             $sync_opt = '--rsync-path /usr/bin/rsync ';
         }
-        # if only syncing the service node or
-        # (no postscripts and no append lines)  then do not
+        # if only syncing the service node or no postscripts then do not
         # get update file notification
-        if (($::SYNCSN  == 1) || ((!(defined @::postscripts)) && (!(defined @::appendlines)) && (!(defined @::mergelines)))) { 
+        if (($::SYNCSN  == 1) || (!(defined @::postscripts))) { 
           $sync_opt .= '-Lprogtz ';
         } else {
            $sync_opt .= '-Liprogtz --out-format=%f%L '; # add notify of update
@@ -142,17 +140,12 @@ sub remote_copy_command
               "$$config{'dest-user'}@" . "$$config{'dest-host'}";
         }
         print RSCYCCMDFILE "#!/bin/sh\n";
-        if ($localhost == 1) { # running to the MN from the MN
-            print RSCYCCMDFILE
-              "/bin/mkdir -p $dest_dir_list\n";
-        } else {  #  running to another node 
-          if ($usersh == 0) { # using ssh
-            print RSCYCCMDFILE
-              "/usr/bin/ssh  $dest_user_host '/bin/mkdir -p $dest_dir_list'\n";
-          } else {
-            print RSCYCCMDFILE
-              "/usr/bin/rsh  $dest_user_host '/bin/mkdir -p $dest_dir_list'\n";
-          }
+        if ($usersh == 0) { # using ssh
+          print RSCYCCMDFILE
+            "/usr/bin/ssh  $dest_user_host '/bin/mkdir -p $dest_dir_list'\n";
+        } else {
+          print RSCYCCMDFILE
+            "/usr/bin/rsh  $dest_user_host '/bin/mkdir -p $dest_dir_list'\n";
         }
         foreach my $dest_dir (keys %{$$config{'destDir_srcFile'}})
         {
@@ -162,28 +155,16 @@ sub remote_copy_command
             my $src_file_list = join ' ', @src_file;
             if ($src_file_list)
             {
-               if ($localhost == 1) {  # running local ( on MN)
                 print RSCYCCMDFILE
-                 "$exec_path $sync_opt $src_file_list $dest_dir\n";
-               } else {  # running to another node
-                print RSCYCCMDFILE
-                 "$exec_path $sync_opt $src_file_list $dest_user_host:$dest_dir\n";
-               }
+                  "$exec_path $sync_opt $src_file_list $dest_user_host:$dest_dir\n";
             }
             my %diff_dest_hash =
               %{$$config{'destDir_srcFile'}{$dest_dir}{'diff_dest_name'}};
             foreach my $src_file_diff_dest (keys %diff_dest_hash)
             {
-
                 my $diff_basename = $diff_dest_hash{$src_file_diff_dest};
-                # if  localhost do not put in hostname:
-                if ($localhost == 1) { # running to the MN from the MN (local)
-                  print RSCYCCMDFILE
-                  "$exec_path $sync_opt $src_file_diff_dest $dest_dir/$diff_basename\n";
-                } else { # running remote
-                  print RSCYCCMDFILE
+                print RSCYCCMDFILE
                   "$exec_path $sync_opt $src_file_diff_dest $dest_user_host:$dest_dir/$diff_basename\n";
-                }
             }
 
         }

perl-xCAT/xCAT/RemoteShellExp.pm

@@ -76,7 +76,7 @@ sub remoteshellexp
   if (!($flag))
   {
        my $rsp = {};
-       $rsp->{error}->[0] = 
+       $rsp->{data}->[0] = 
        "No flag provide to remoteshellexp.";
         xCAT::MsgUtils->message("E", $rsp, $::CALLBACK, 2);
         return 2;
@@ -84,7 +84,7 @@ sub remoteshellexp
 
   if (($flag ne "k") && ($flag ne "t") && ($flag ne "s")) {
        my $rsp = {};
-       $rsp->{error}->[0] = 
+       $rsp->{data}->[0] = 
         "Invalid  flag  $flag provided.";
         xCAT::MsgUtils->message("E", $rsp, $::CALLBACK, 1);
        return 2;
@@ -99,14 +99,14 @@ sub remoteshellexp
   if ($flag eq "s"){
 	if (!$to_user_password) {
        my $rsp = {};
-       $rsp->{error}->[0] = 
+       $rsp->{data}->[0] = 
         "The DSH_REMOTE_PASSWORD environment variable has not been set to the user id password on the node which will have their ssh keys updated (ususally root).";
         xCAT::MsgUtils->message("E", $rsp, $::CALLBACK, 1);
        return 2;
 	}
 	if (!$nodes) {
        my $rsp = {};
-       $rsp->{error}->[0] = 
+       $rsp->{data}->[0] = 
         "No nodes were input to update the user's ssh keys.";
         xCAT::MsgUtils->message("E", $rsp, $::CALLBACK, 1);
        return 2;
@@ -162,7 +162,7 @@ sub remoteshellexp
   # Check to see if empty
   if (-z $key) {
          my $rsp = {};
-         $rsp->{error}->[0] = 
+         $rsp->{data}->[0] = 
          "The $key file is empty. Remove it and rerun the command.";
          xCAT::MsgUtils->message("E", $rsp, $::CALLBACK, 1);
          return 1;
@@ -170,7 +170,7 @@ sub remoteshellexp
   } 
   if (-z $key2) {
          my $rsp = {};
-         $rsp->{error}->[0] = 
+         $rsp->{data}->[0] = 
          "The $key2 file is empty. Remove it and rerun the command.";
          xCAT::MsgUtils->message("E", $rsp, $::CALLBACK, 1);
          return 1;
@@ -187,7 +187,7 @@ sub remoteshellexp
   {
     if (!($nodes)) {
          my $rsp = {};
-         $rsp->{error}->[0] = 
+         $rsp->{data}->[0] = 
          "There are no nodes defined to update the ssh keys.";
          xCAT::MsgUtils->message("E", $rsp, $::CALLBACK, 1);
          return 1;
@@ -267,7 +267,7 @@ sub gensshkeys
     unless ($keygen->spawn($spawncmd))
     {
        my $rsp = {};
-       $rsp->{error}->[0] = 
+       $rsp->{data}->[0] = 
         "Unable to run $spawncmd.";
        xCAT::MsgUtils->message("E", $rsp, $::CALLBACK, 1);
        return 1;
@@ -324,8 +324,8 @@ sub gensshkeys
           return 0;
         } else {
           my $rsp = {};
-          $rsp->{error}->[0] =  $msg;
-          xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
+          $rsp->{data}->[0] =  $msg;
+          xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
           return 1;
         }
 
@@ -394,7 +394,7 @@ sub testkeys
     unless ($testkeys->spawn($spawncmd))
     {
        my $rsp = {};
-       $rsp->{error}->[0] = 
+       $rsp->{data}->[0] = 
         "Unable to run $spawncmd.";
        xCAT::MsgUtils->message("E", $rsp, $::CALLBACK, 1);
        return 1;
@@ -446,8 +446,8 @@ sub testkeys
           return 0;
         } else {
           my $rsp = {};
-          $rsp->{error}->[0] =  $msg;
-          xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
+          $rsp->{data}->[0] =  $msg;
+          xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
           return 1;
         }
 
@@ -522,7 +522,7 @@ sub sendnodeskeys
       unless ($sendkeys->spawn($spawnmkdir))
       {
         my $rsp = {};
-        $rsp->{error}->[0] = 
+        $rsp->{data}->[0] = 
          "Unable to run $spawnmkdir on $node";
         xCAT::MsgUtils->message("E", $rsp, $::CALLBACK, 1);
         next;
@@ -571,8 +571,8 @@ sub sendnodeskeys
                   $rc=0;
                } else {
                  my $rsp = {};
-                 $rsp->{error}->[0] =  "mkdir:$node has error,$msg";
-                 xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
+                 $rsp->{data}->[0] =  "mkdir:$node has error,$msg";
+                 xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
                  $rc=1;
                }
             }
@@ -612,7 +612,7 @@ sub sendnodeskeys
       unless ($sendkeys->spawn($spawncopyfiles))
       {
         my $rsp = {};
-        $rsp->{error}->[0] = 
+        $rsp->{data}->[0] = 
          "Unable to run $spawncopyfiles on $node.";
         xCAT::MsgUtils->message("E", $rsp, $::CALLBACK, 1);
         next; 
@@ -658,8 +658,8 @@ sub sendnodeskeys
                   $rc=0;
                } else {
                 my $rsp = {};
-                $rsp->{error}->[0] =  "copykeys:$node has error,$msg";
-                xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
+                $rsp->{data}->[0] =  "copykeys:$node has error,$msg";
+                xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
                 $rc=1;
               }
             }
@@ -693,7 +693,7 @@ sub sendnodeskeys
       unless ($sendkeys->spawn($spawnruncopy))
       {
         my $rsp = {};
-        $rsp->{error}->[0] = 
+        $rsp->{data}->[0] = 
          "Unable to run $spawnruncopy.";
         xCAT::MsgUtils->message("E", $rsp, $::CALLBACK, 1);
         next; # go to next node
@@ -743,8 +743,8 @@ sub sendnodeskeys
                   $rc=0;
                } else {
                  my $rsp = {};
-                 $rsp->{error}->[0] =  "copy.sh:$node has error,$msg";
-                 xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
+                 $rsp->{data}->[0] =  "copy.sh:$node has error,$msg";
+                 xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
                  $rc=1;
               }
             }
@@ -829,7 +829,7 @@ sub senddeviceskeys
       unless ($sendkeys->spawn($spawnaddkey))
       {
         my $rsp = {};
-        $rsp->{error}->[0] = 
+        $rsp->{data}->[0] = 
          "Unable to run $spawnaddkey.";
         xCAT::MsgUtils->message("E", $rsp, $::CALLBACK, 1);
         next; # go to next node
@@ -877,8 +877,8 @@ sub senddeviceskeys
               $rc=0;
             } else {
               my $rsp = {};
-              $rsp->{error}->[0] =  "$node has error,$msg";
-              xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
+              $rsp->{data}->[0] =  "$node has error,$msg";
+              xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
               $rc=1;
               next; # go to next node
             }

perl-xCAT/xCAT/SINV.pm

@@ -60,10 +60,9 @@ sub usage
       " -p <template path> [-o output file ] [-t <template count>]\n";
     my $usagemsg4 = "      [-r remove templates] [-s <seednode>]\n";
     my $usagemsg5 = "      [-e exactmatch] [-i ignore] [-V verbose]\n";
-    my $usagemsg5A = "      [-l userid] [--devicetype type_of_device]\n";
     my $usagemsg6 = "      {-c <command>  | -f <command file>}";
     my $usagemsg .= $usagemsg1 .= $usagemsg1a .= $usagemsg3 .= $usagemsg4 .=
-      $usagemsg5 .= $usagemsg5A .= $usagemsg6;
+      $usagemsg5 .= $usagemsg6;
 ###  end usage mesage
 
     my $rsp = {};
@@ -111,8 +110,6 @@ sub parse_and_run_sinv
                     's|seed=s'      => \$options{'seed_node'},
                     'e|exactmatch'  => \$options{'exactmatch'},
                     'i|ignorefirst' => \$options{'ignorefirst'},
-                    'l|user=s'      => \$options{'user'},
-                    'devicetype|devicetype=s'    => \$options{'devicetype'}, 
                     'c|cmd=s'       => \$options{'sinv_cmd'},
                     'f|file=s'      => \$options{'sinv_cmd_file'},
                     'v|version'     => \$options{'version'},
@@ -201,36 +198,14 @@ sub parse_and_run_sinv
     # strip off the program and the noderange
     #
     my @nodelist  = ();
-    my @cmdparts  = ();
-    if ($options{'devicetype'}) {  
-      # must split different because devices have commands with spaces
-      @cmdparts  = split(' ', $cmd,3);
-    } else {
-      @cmdparts  = split(' ', $cmd);
-    }
+    my @cmdparts  = split(' ', $cmd);
     my $cmdtype   = shift @cmdparts;
     my $noderange = shift @cmdparts;
     my @cmd       = ();
-    if ($noderange =~ /^-/)  # if imageupdate not node
+    if ($noderange =~ /^-/)
     {    # no noderange
         push @cmd, $noderange;    #  put flag back on command
     }
-    # root is sending the command
-    my @envs;
-    # if -l user id supplied
-    if ($options{'user'}) {
-       push @cmd,"-l";
-       push @cmd,$options{'user'};
-       push @envs,"DSH_TO_USERID=$options{'user'}";
-    }
-    # if device type supplied
-    if ($options{'devicetype'}) {
-       push @cmd,"--devicetype";
-       my $switchtype = $options{'devicetype'};
-       $switchtype =~ s/::/\//g;
-       push @cmd,$switchtype;
-    }
- 
     foreach my $part (@cmdparts)
     {
 
@@ -496,7 +471,6 @@ sub parse_and_run_sinv
                    {
                     command => [$cmdtype],
                     node    => \@seed,
-                    env     => [@envs],
                     arg     => [@cmd]
                    },
                    \&$cmdoutput
@@ -526,7 +500,6 @@ sub parse_and_run_sinv
                {
                 command => [$cmdtype],
                 node    => \@nodelist,
-                env     => [@envs],
                 arg     => [@cmd]
                },
                \&$cmdoutput

perl-xCAT/xCAT/SLP.pm

@@ -81,6 +81,7 @@ sub dodiscover {
             }
         }
     }
+    # for print information
     my @printip;
     foreach my $iface (keys %{$interfaces}) {
         foreach my $sip (@{$interfaces->{$iface}->{ipv4addrs}}) {
@@ -98,12 +99,12 @@ sub dodiscover {
 	unless ($args{NoWait}) { #in nowait, caller owns the responsibility..
 		#by default, report all respondants within 3 seconds:
 		my $waitforsocket = IO::Select->new();
-		$waitforsocket->add($args{'socket'});
+        $waitforsocket->add($args{'socket'});
         my $retrytime = ($args{Retry}>0)?$args{Retry}+1:3;
         my $retryinterval = ($args{Retry}>0)?$args{Retry}:REQ_INTERVAL;  
         my $waittime = ($args{Time}>0)?$args{Time}:20; 
         my @peerarray;
-        my @pkgarray;
+		my @pkgarray;
 
         my $startinterval = time();
         my $interval;
@@ -116,64 +117,63 @@ sub dodiscover {
             # receive untill there is none
             ########################################
             while ($waitforsocket->can_read(0)) {
-                my $peer = $args{'socket'}->recv($slppacket,3000,0);
+                my $peer = $args{'socket'}->recv($slppacket,1400,0);
                 push @peerarray, $peer;
                 push @pkgarray, $slppacket;
             }
             #######################################
             # process the packets
             #######################################
-            for(my $j = 0; $j< scalar(@peerarray); $j++) {
-                my $pkg = $peerarray[$j];
-                my $slpkg = $pkgarray[$j];
-                if ($ip6support) {
-                    ( $port,$flow,$ip6n,$scope) = Socket6::unpack_sockaddr_in6_all($pkg);
-                    $peername = Socket6::inet_ntop(Socket6::AF_INET6(),$ip6n);
-                } else {
-                    ($port,$ip4n) = sockaddr_in($pkg);
-                    $peername = inet_ntoa($ip4n);
-                }
-                if ($rethash{$peername}) {
-                    next; #got a dupe, discard
-                }
-                my $result = process_slp_packet(packet=>$slpkg,sockaddr=>$pkg,'socket'=>$args{'socket'});
-                if ($result) {
-                    if ($peername =~ /\./) { #ipv4
-                        $peername =~ s/::ffff://;
-                    }
-                    $result->{peername} = $peername;
-                    if ($gprlist) {
-                        $gprlist .= ','.$peername if(length($gprlist) < 1250);
-                    } else {
-                        $gprlist = $peername;
-                    }
-                    $result->{scopeid} = $scope;
-                    $result->{sockaddr} = $pkg;
-                    my $hashkey;
-                    if ($peername =~ /fe80/) {
-                        $peername .= '%'.$scope;
-                    }
-                    $rspcount++;
-                    $rspcount1++;
-                    $rethash{$peername} = $result;
-
-                    if ($args{Callback}) {
-                        $args{Callback}->($result);
-                    }
-                }
-            }
+                for(my $j = 0; $j< scalar(@peerarray); $j++) {
+				    my $pkg = $peerarray[$j];
+					my $slpkg = $pkgarray[$j];
+		    		if ($ip6support) {
+                        ( $port,$flow,$ip6n,$scope) = Socket6::unpack_sockaddr_in6_all($pkg);
+		    			$peername = Socket6::inet_ntop(Socket6::AF_INET6(),$ip6n);
+		    		} else {
+                        ($port,$ip4n) = sockaddr_in($pkg);
+		    			$peername = inet_ntoa($ip4n);
+		    		}
+		    		if ($rethash{$peername}) {
+		    			next; #got a dupe, discard
+		    		}
+                    my $result = process_slp_packet(packet=>$slpkg,sockaddr=>$pkg,'socket'=>$args{'socket'});
+		    		if ($result) {
+		    			if ($peername =~ /\./) { #ipv4
+		    				$peername =~ s/::ffff://;
+		    			}
+		    			$result->{peername} = $peername;
+                        if ($gprlist) {
+                            $gprlist .= ','.$peername if(length($gprlist) < 1250);
+                        } else {
+                            $gprlist = $peername;
+                        }
+		    			$result->{scopeid} = $scope;
+                        $result->{sockaddr} = $pkg;
+		    			my $hashkey;
+		    			if ($peername =~ /fe80/) {
+		    				$peername .= '%'.$scope;
+		    			}
+                        $rspcount++;
+                        $rspcount1++;
+		    			$rethash{$peername} = $result;
+		    			if ($args{Callback}) {
+		    				$args{Callback}->($result);
+		    			}
+		    		}
+		    	}
             #############################
             # check if need to return
             #############################
-            @peerarray = ();
-            @pkgarray = ();
-            $interval = time() -  $startinterval;
-            if ($args{Time} and $args{Count}) {
-                if ($rspcount >= $args{Count} or $interval >= $args{Time}) {
-                    send_message($args{reqcallback}, 0, "Received $rspcount1 responses.") if ($args{reqcallback});
-                    last;
+                @peerarray = ();
+				@pkgarray = ();
+                $interval = time() -  $startinterval;
+                if ($args{Time} and $args{Count}) {
+                    if ($rspcount >= $args{Count} or $interval >= $args{Time}) {
+                        send_message($args{reqcallback}, 0, "Received $rspcount1 responses.") if ($args{reqcallback});
+                        last;
+                    }
                 }
-            }
             if ($sendcount > $retrytime and $rspcount1 == 0) {
                 send_message($args{reqcallback}, 0, "Received $rspcount1 responses.") if ($args{reqcallback});
                 last;
@@ -181,22 +181,23 @@ sub dodiscover {
             #########################
             # send request again
             #########################
-            if ( $interval > $retryinterval){#* (2**$sendcount))) { #double time
-                $sendcount++;
-                $startinterval = time();
+                if ( $interval >  $retryinterval){#* (2**$sendcount))) { #double time
+                    $sendcount++;
+                    $startinterval = time();
                 send_message($args{reqcallback}, 0, "Received $rspcount1 responses.") if ($args{reqcallback});  
                 send_message($args{reqcallback}, 0, "Sending SLP request on interfaces: $printinfo ...") if ($args{reqcallback});
-                foreach my $srvtype (@srvtypes) {
-                    send_service_request_single(%args,ifacemap=>$interfaces,SrvType=>$srvtype);
-                }
+		    	    foreach my $srvtype (@srvtypes) {
+		    	    	send_service_request_single(%args,ifacemap=>$interfaces,SrvType=>$srvtype);
+		    	    }
                 $rspcount1 = 0;
-            }    
-        }
+				}	
+		    }
   
-    } #end nowait
+        } #end nowait
+
     foreach my $entry (keys %rethash) {
         handle_new_slp_entity($rethash{$entry})
-    }
+        }
     if (xCAT::Utils->isAIX()) {
         foreach my $iface (keys %{$interfaces}) {
             foreach my $sip (@{$interfaces->{$iface}->{ipv4addrs}}) {
@@ -645,11 +646,16 @@ sub get_ipv6_neighbors {
         }
 }
 
+##########################################################################
+# Invokes the callback with the specified message
+##########################################################################
 sub send_message {
+
     my $callback = shift;
     my $ecode   = shift;
     my $msg     = shift;
     my %output;
+
     $output{errorcode} = $ecode;
     $output{data} = $msg;
     $callback->( \%output );

perl-xCAT/xCAT/Scope.pm

@@ -1,7 +1,6 @@
 package xCAT::Scope;
 use xCAT::Utils;
 use xCAT::Table;
-use xCAT::ServiceNodeUtils qw(getSNList);
 sub get_broadcast_scope {
    my $req = shift;
    if ($req =~ /xCAT::Scope/) {
@@ -11,8 +10,8 @@ sub get_broadcast_scope {
    if ($req->{_xcatpreprocessed}->[0] == 1) { return [$req]; }
     #Exit if the packet has been preprocessed in its history
    my @requests = ({%$req}); #Start with a straight copy to reflect local instance
-   foreach (xCAT::ServiceNodeUtils->getSNList()) {
-         if (xCAT::NetworkUtils->thishostisnot($_)) {
+   foreach (xCAT::Utils->getSNList()) {
+         if (xCAT::Utils->thishostisnot($_)) {
             my $reqcopy = {%$req};
             $reqcopy->{'_xcatdest'} = $_;
             $reqcopy->{_xcatpreprocessed}->[0] = 1; 
@@ -25,7 +24,7 @@ sub get_broadcast_scope {
    #$sitetab->close;
    #if ($ent and $ent->{value}) {
    #   foreach (split /,/,$ent->{value}) {
-   #      if (xCAT::NetworkUtils->thishostisnot($_)) {
+   #      if (xCAT::Utils->thishostisnot($_)) {
    #         my $reqcopy = {%$req};
    #         $reqcopy->{'_xcatdest'} = $_;
    #         push @requests,$reqcopy;

perl-xCAT/xCAT/ServiceNodeUtils.pm

@@ -1,825 +0,0 @@
-#!/usr/bin/env perl
-# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
-package xCAT::ServiceNodeUtils;
-
-BEGIN
-{
-    $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
-}
-
-# if AIX - make sure we include perl 5.8.2 in INC path.
-#       Needed to find perl dependencies shipped in deps tarball.
-if ($^O =~ /^aix/i) {
-        use lib "/usr/opt/perl5/lib/5.8.2/aix-thread-multi";
-        use lib "/usr/opt/perl5/lib/5.8.2";
-        use lib "/usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi";
-        use lib "/usr/opt/perl5/lib/site_perl/5.8.2";
-}
-
-use lib "$::XCATROOT/lib/perl";
-use strict;
-#-----------------------------------------------------------------------------
-
-=head3 readSNInfo
-
-  Read resource, NFS server, Master node, OS an ARCH from the database
-  for the service node
-
-  Input: service nodename
-  Output: Masternode, OS and ARCH
-  Example:
-    xCAT::ServiceNodeUtils->readSNInfo;
-=cut
-
-#-----------------------------------------------------------------------------
-sub readSNInfo
-{
-    my ($class, $nodename) = @_;
-    my $rc = 0;
-    my $et;
-    my $masternode;
-    my $os;
-    my $arch;
-    $rc = xCAT::Utils->exportDBConfig();
-    if ($rc == 0)
-    {
-
-        if ($nodename)
-        {
-            $masternode = xCAT::TableUtils->GetMasterNodeName($nodename);
-            if (!($masternode))
-            {
-                xCAT::MsgUtils->message('S',
-                                   "Could not get Master for node $nodename\n");
-                return 1;
-            }
-
-            $et = xCAT::TableUtils->GetNodeOSARCH($nodename);
-            if ($et == 1)
-            {
-                xCAT::MsgUtils->message('S',
-                                  "Could not get OS/ARCH for node $nodename\n");
-                return 1;
-            }
-            if (!($et->{'os'} || $et->{'arch'}))
-            {
-                xCAT::MsgUtils->message('S',
-                                  "Could not get OS/ARCH for node $nodename\n");
-                return 1;
-            }
-        }
-        $et->{'master'} = $masternode;
-        return $et;
-    }
-    return $rc;
-}
-
-#-----------------------------------------------------------------------------
-
-=head3 isServiceReq
-
-
-  Checks the service node table in the database to see 
-  if input Service should be setup on the
-  input service node
-
-  Input:servicenodename,ipaddres(s) and hostnames of service node
-  Output:
-        array of services to setup  for this service node
-    Globals:
-        $::RUNCMD_RC = 0; good
-        $::RUNCMD_RC = 1; error 
-    Error:
-        none
-    Example:
-      @servicestosetup=xCAT::ServiceNodeUtils->isServiceReq($servicenodename, @serviceip) { blah; }
-
-=cut
-
-#-----------------------------------------------------------------------------
-sub isServiceReq
-{
-    require xCAT::Table;
-    my ($class, $servicenodename, $serviceip) = @_;
-
-    # list of all services from service node table
-    # note this must be updated if more services added
-    my @services = (
-                    "nameserver", "dhcpserver", "tftpserver", "nfsserver",
-                    "conserver",  "monserver",  "ldapserver", "ntpserver",
-                    "ftpserver",  "ipforward"
-                    );
-
-    my @ips = @$serviceip;    # list of service node ip addresses and names
-    my $rc  = 0;
-
-    $rc = xCAT::Utils->exportDBConfig();    # export DB env
-    if ($rc != 0)
-    {
-        xCAT::MsgUtils->message('S', "Unable export DB environment.\n");
-        $::RUNCMD_RC = 1;
-        return;
-
-    }
-
-    # get handle to servicenode table
-    my $servicenodetab = xCAT::Table->new('servicenode');
-    unless ($servicenodetab)
-    {
-        xCAT::MsgUtils->message('S', "Unable to open servicenode table.\n");
-        $::RUNCMD_RC = 1;
-        return;    # do not setup anything
-    }
-
-    my @process_service_list = ();
-
-    # read all the nodes from the table, for each service
-    foreach my $service (@services)
-    {
-        my @snodelist = $servicenodetab->getAllNodeAttribs([$service]);
-
-        foreach $serviceip (@ips)    # check the table for this servicenode
-        {
-            foreach my $node (@snodelist)
-
-            {
-                if ($serviceip eq $node->{'node'})
-                {                    # match table entry
-                    if ($node->{$service})
-                    {                # returns service, only if set
-                        my $value = $node->{$service};
-                        $value =~ tr/a-z/A-Z/;    # convert to upper
-                             # value 1 or yes  then we setup the service
-                        if (($value eq "1") || ($value eq "YES"))
-                        {
-                            push @process_service_list,
-                              $service;    # found service to setup
-                        }
-                    }
-                }
-            }
-        }
-    }
-    $servicenodetab->close;
-
-    $::RUNCMD_RC = 0;
-    return @process_service_list;
-
-}
-
-#-----------------------------------------------------------------------------
-
-=head3 getAllSN 
- 
-    Returns an array of all service nodes from service node table 
-
-    Arguments:
-       ALL"  - will also return the management node in the array, if
-        if has been defined in the servicenode table 
-    Returns:
-		array of Service Nodes or empty array, if none
-    Globals:
-        none
-    Error:
-        1 - error
-    Example:
-         @SN=xCAT::ServiceNodeUtils->getAllSN
-         @allSN=xCAT::ServiceNodeUtils->getAllSN("ALL")
-    Comments:
-        none
-
-=cut
-
-#-----------------------------------------------------------------------------
-sub getAllSN
-{
-   
-    my ($class, $options) = @_;
-    require xCAT::Table;
-    # reads all nodes from the service node table
-    my @servicenodes;
-    my $servicenodetab = xCAT::Table->new('servicenode');
-    unless ($servicenodetab)    # no  servicenode table
-    {
-        xCAT::MsgUtils->message('I', "Unable to open servicenode table.\n");
-        $servicenodetab->close;
-        return @servicenodes;
-
-    }
-    my @nodes = $servicenodetab->getAllNodeAttribs(['tftpserver']);
-    foreach my $nodes (@nodes)
-    {
-          push @servicenodes, $nodes->{node};
-    }
-    # if did not input "ALL" and there is a MN, remove it
-    my @newservicenodes;
-    if ((!defined($options)) || ($options ne "ALL")) {   
-       my $mname = xCAT::Utils->noderangecontainsMn(@servicenodes);
-       if ($mname) { # if there is a MN
-        foreach my $nodes (@servicenodes) {
-           if ($mname ne ($nodes)){
-              push @newservicenodes, $nodes;
-           }
-        }
-        $servicenodetab->close;
-        return @newservicenodes;  # return without the MN in the array
-       }
-    }
-    $servicenodetab->close;
-    return @servicenodes;
-}
-
-#-----------------------------------------------------------------------------
-
-=head3 getSNandNodes 
- 
-    Returns an hash-array of all service nodes and the nodes they service
-
-    Arguments:
-       none 
-#-----------------------------------------------------------------------------
-
-=head3 getSNandNodes 
- 
-    Returns an hash-array of all service nodes and the nodes they service
-
-    Arguments:
-       none 
-    Returns:
-	 Service Nodes and the nodes they service or empty , if none
-    Globals:
-        none
-    Error:
-        1 - error
-    Example:
-        $sn=xCAT::ServiceNodeUtils->getSNandNodes()
-    Comments:
-        none
-
-=cut
-
-#-----------------------------------------------------------------------------
-sub getSNandNodes
-{
-
-    require xCAT::Table;
-    # read all the nodes from the nodelist table
-    #  call get_ServiceNode to find which Service Node
-    # the node belongs to.
-    my %sn;
-    my @nodes;
-    my $nodelisttab = xCAT::Table->new('nodelist');
-    my $recs        = $nodelisttab->getAllEntries();
-    foreach (@$recs)
-    {
-        push @nodes, $_->{node};
-    }
-    $nodelisttab->close;
-    my $sn = xCAT::ServiceNodeUtils->get_ServiceNode(\@nodes, "xcat", "MN");
-    return $sn;
-}
-
-#-----------------------------------------------------------------------------
-
-=head3 getSNList 
- 
-	Reads the servicenode table. Will return all the enabled Service Nodes
-	that will setup the input Service ( e.g tftpserver,nameserver,etc)
-	If service is blank, then will return the list of all enabled Service
-	Nodes. 
-
-    Arguments:
-       Servicename ( xcat,tftpserver,dhcpserver,conserver,etc) 
-       If no servicename, returns all Servicenodes
-       "ALL" argument means you also want the MN returned. It can be in the 
-       servicenode list.  If no "ALL", take out the MN if it is there. 
-    Returns:
-	  Array of service node names 
-    Globals:
-        none
-    Error:
-        1 - error  
-    Example:
-         $sn= xCAT::ServiceNodeUtils->getSNList($servicename) { blah; }
-         $sn= xCAT::ServiceNodeUtils->getSNList($servicename,"ALL") { blah; }
-         $sn= xCAT::ServiceNodeUtils->getSNList() { blah; }
-         $sn= xCAT::ServiceNodeUtils->getSNList("","ALL") { blah; }
-    Comments:
-        none
-
-=cut
-
-#-----------------------------------------------------------------------------
-sub getSNList
-{
-    require xCAT::Table;
-    my ($class, $service,$options) = @_;
-
-    # reads all nodes from the service node table
-    my @servicenodes;
-    my $servicenodetab = xCAT::Table->new('servicenode', -create => 1);
-    unless ($servicenodetab)    # no  servicenode table
-    {
-        xCAT::MsgUtils->message('I', "Unable to open servicenode table.\n");
-        return ();
-    }
-    my @nodes = $servicenodetab->getAllNodeAttribs([$service]);
-    $servicenodetab->close;
-    foreach my $node (@nodes)
-    {
-        if ($service eq "")     # want all the service nodes
-        {
-            push @servicenodes, $node->{node};
-        }
-        else
-        {                       # looking for a particular service
-            if ($node->{$service})
-            {                   # if null then do not add node
-                my $value = $node->{$service};
-                $value =~ tr/a-z/A-Z/;    # convert to upper
-                     # value 1 or yes or blank then we setup the service
-                if (($value == 1) || ($value eq "YES"))
-                {
-                    push @servicenodes, $node->{node};
-
-                }
-            }
-        }
-    }
-    # if did not input "ALL" and there is a MN, remove it
-    my @newservicenodes;
-    if ((!defined($options)) || ($options ne "ALL")) {   
-       my $mname = xCAT::Utils->noderangecontainsMn(@servicenodes);
-       if ($mname) { # if there is a MN
-        foreach my $nodes (@servicenodes) {
-           if ($mname ne ($nodes)){
-              push @newservicenodes, $nodes;
-           }
-        }
-        return @newservicenodes;  # return without the MN in the array
-       }
-    }
-
-    return @servicenodes;
-}
-
-
-#-----------------------------------------------------------------------------
-
-=head3 get_ServiceNode
-
-     Will get the Service node ( name or ipaddress) as known by the Management
-	 Node  or Node for the input nodename or ipadress of the node 
-         which can be a Service Node.
-         If the input node is a Service Node then it's Service node
-         is always the Management Node.
-
-     input: list of nodenames and/or node ipaddresses (array ref)
-			service name
-			"MN" or "Node"  determines if you want the Service node as known
-			 by the Management Node  or by the node.
-
-		recognized service names: xcat,tftpserver,
-		nfsserver,conserver,monserver
-
-        service "xcat" is used by command like xdsh that need to know the
-		service node that will process the command but are not tied to a
-		specific service like tftp
-
-		Todo:  Handle  dhcpserver and nameserver from the networks table
-
-	 output: A hash ref  of arrays, the key is the service node pointing to
-			 an array of nodes that are serviced by that service node
-
-     Globals:
-        $::ERROR_RC
-     Error:
-         $::ERROR_RC=0 no error $::ERROR_RC=1 error
-
-	 example: $sn =xCAT::ServiceNodeUtils->get_ServiceNode(\@nodes,$service,"MN");
-	  $sn =xCAT::ServiceNodeUtils->get_ServiceNode(\@nodes,$service,"Node");
-        Note: this rountine is important to hierarchical support in xCAT
-              and used in many places.  Any changes to the logic should be
-              reviewed by xCAT architecture
-=cut
-
-#-----------------------------------------------------------------------------
-sub get_ServiceNode
-{
-    require xCAT::Table;
-    my ($class, $node, $service, $request) = @_;
-    my @node_list = @$node;
-    my $cmd;
-    my %snhash;
-    my $nodehash;
-    my $sn;
-    my $nodehmtab;
-    my $noderestab;
-    my $snattribute;
-    my $oshash;
-    my $nodetab;
-    $::ERROR_RC = 0;
-
-    # determine if the request is for the service node as known by the MN
-    # or the node
-
-    if ($request eq "MN")
-    {
-        $snattribute = "servicenode";
-
-    }
-    else    # Node
-    {
-        $snattribute = "xcatmaster";
-    }
-    # get site.master this will be the default
-    my $master = xCAT::TableUtils->get_site_Master();  
-    $noderestab = xCAT::Table->new('noderes');
-
-    unless ($noderestab)    # no noderes table, use default site.master
-    {
-        xCAT::MsgUtils->message('I',
-                         "Unable to open noderes table. Using site->Master.\n");
-
-        if ($master)        # use site Master value
-        {
-				
-            foreach my $node (@node_list)
-            {               
-					push @{$snhash{$master}}, $node;
-            }
-        }
-        else
-        {
-            xCAT::MsgUtils->message('E', "Unable to read site Master value.\n");
-            $::ERROR_RC = 1;
-        }
-
-        return \%snhash;
-    }
-
-    if ($service eq "xcat")
-    {    # find all service nodes for the nodes in the list
-
-        $nodehash = $noderestab->getNodesAttribs(\@node_list, [$snattribute]);
-
-
-        foreach my $node (@node_list)
-        {
-            foreach my $rec (@{$nodehash->{$node}})
-            {
-                if ($rec and $rec->{$snattribute}) # use noderes.servicenode
-                {
-                    my $key = $rec->{$snattribute};
-                    push @{$snhash{$key}}, $node;
-                }
-                else  # use site.master
-                {    
-  		  push @{$snhash{$master}}, $node;
-                }
-            }
-        }
-
-        $noderestab->close;
-        return \%snhash;
-
-    }
-    else
-    {
-        if (
-            ($service eq "tftpserver")    # all from noderes table
-            || ($service eq "nfsserver") || ($service eq "monserver")
-          )
-        {
-            $nodehash =
-              $noderestab->getNodesAttribs(\@node_list,
-                                           [$service, $snattribute]);
-            foreach my $node (@node_list)
-            {
-                foreach my $rec (@{$nodehash->{$node}})
-                {
-                    if ($rec and $rec->{$service})
-                    {
-
-                        # see if both  MN and Node address in attribute
-                        my ($msattr, $nodeattr) = split ':', $rec->{$service};
-                        my $key = $msattr;
-                        if ($request eq "Node")
-                        {
-                            if ($nodeattr)    # override with Node, if it exists
-                            {
-                                $key = $nodeattr;
-                            }
-                        }
-                        push @{$snhash{$key}}, $node;
-                    }
-                    else
-                    {
-                        if ($rec and $rec->{$snattribute})    # if it exists
-                        {
-                            my $key = $rec->{$snattribute};
-                            push @{$snhash{$key}}, $node;
-                        }
-                        else
-                        {                                     # use site.master
-                            push @{$snhash{$master}}, $node;
-                        }
-                    }
-                }
-            }
-
-            $noderestab->close;
-            return \%snhash;
-
-        }
-        else
-        {
-            if ($service eq "conserver")
-            {
-
-                # read the nodehm table
-                $nodehmtab = xCAT::Table->new('nodehm');
-                unless ($nodehmtab)    # no nodehm table
-                {
-                    xCAT::MsgUtils->message('I',
-                                            "Unable to open nodehm table.\n");
-
-                    # use servicenode
-                    $nodehash =
-                      $noderestab->getNodesAttribs(\@node_list, [$snattribute]);
-                    foreach my $node (@node_list)
-                    {
-                        foreach my $rec (@{$nodehash->{$node}})
-                        {
-                            if ($rec and $rec->{$snattribute})
-                            {
-                                my $key = $rec->{$snattribute};
-                                push @{$snhash{$key}}, $node;
-                            }
-                            else
-                            {    # use site.master
-                                push @{$snhash{$master}}, $node;
-                            }
-                        }
-                    }
-                    $noderestab->close;
-                    return \%snhash;
-                }
-
-                # can read the nodehm table
-                $nodehash =
-                  $nodehmtab->getNodesAttribs(\@node_list, ['conserver']);
-                foreach my $node (@node_list)
-                {
-                    foreach my $rec (@{$nodehash->{$node}})
-                    {
-                        if ($rec and $rec->{'conserver'})
-                        {
-
-                            # see if both  MN and Node address in attribute
-                            my ($msattr, $nodeattr) = split ':',
-                              $rec->{'conserver'};
-                            my $key = $msattr;
-                            if ($request eq "Node")
-                            {
-                                if ($nodeattr
-                                  )    # override with Node, if it exists
-                                {
-                                    $key = $nodeattr;
-                                }
-                            }
-                            push @{$snhash{$key}}, $node;
-                        }
-                        else
-                        {              # use service node for this node
-                            $sn =
-                              $noderestab->getNodeAttribs($node,
-                                                          [$snattribute]);
-                            if ($sn and $sn->{$snattribute})
-                            {
-                                my $key = $sn->{$snattribute};
-                                push @{$snhash{$key}}, $node;
-                            }
-                            else
-                            {          # no service node use master
-                                push @{$snhash{$master}}, $node;
-                            }
-                        }
-                    }
-                }
-                $noderestab->close;
-                $nodehmtab->close;
-                return \%snhash;
-
-            }
-            else
-            {
-                xCAT::MsgUtils->message('E',
-                                        "Invalid service=$service input.\n");
-                $::ERROR_RC = 1;
-            }
-        }
-    }
-    return \%snhash;
-
-}
-
-
-#-----------------------------------------------------------------------------
-
-=head3 getSNformattedhash
-
-     Will call get_ServiceNode to  get the Service node ( name or ipaddress)
-	 as known by the Management
-	 Server or Node for the input nodename or ipadress of the node
-	 It will then format the output into a single servicenode key with values
-	 the list of nodes service by that service node.  This routine will 
-	 break up pools of service nodes into individual node in the hash unlike
-	 get_ServiceNode which leaves the pool as the key.
-
-	 input:  Same as get_ServiceNode to call get_ServiceNode
-			list of nodenames and/or node ipaddresses (array ref)
-			service name
-			"MN" or "Node"  determines if you want the Service node as known
-			 by the Management Node  or by the node.
-
-		recognized service names: xcat,tftpserver,
-		nfsserver,conserver,monserver
-
-        service "xcat" is used by command like xdsh that need to know the
-		service node that will process the command but are not tied to a
-		specific service like tftp
-
-
-	 output: A hash ref  of arrays, the key is a single service node 
-	          pointing to
-			 a list of nodes that are serviced by that service node
-	        'rra000-m'=>['blade01', 'testnode']
-	        'sn1'=>['blade01', 'testnode']
-	        'sn2'=>['blade01']
-	        'sn3'=>['testnode']
-
-     Globals:
-        $::ERROR_RC
-     Error:
-         $::ERROR_RC=0 no error $::ERROR_RC=1 error
-
-	 example: $sn =xCAT::ServiceNodeUtils->getSNformattedhash(\@nodes,$service,"MN", $type);
-	  $sn =xCAT::ServiceNodeUtils->getSNformattedhash(\@nodes,$service,"Node", "primary");
-
-=cut
-
-#-----------------------------------------------------------------------------
-sub getSNformattedhash
-{
-    my ($class, $node, $service, $request, $btype) = @_;
-    my @node_list = @$node;
-    my $cmd;
-    my %newsnhash;
-
-	my $type="";
-	if ($btype) {
-		$type=$btype;
-	}
-
-	# get the values of either the servicenode or xcatmaster attributes
-    my $sn = xCAT::ServiceNodeUtils->get_ServiceNode(\@node_list, $service, $request);
-
-    # get the keys which are the service nodes and break apart any pool lists
-    # format into individual service node keys pointing to node lists
-	if ($sn)
-	{
-        foreach my $snkey (keys %$sn)
-        {
-			# split the key if pool of service nodes
-			push my @tmpnodes, $sn->{$snkey};
-			my @nodes;
-			for my $i (0 .. $#tmpnodes) {
-				for my $j ( 0 .. $#{$tmpnodes[$i]}) {
-					my $check=$tmpnodes[$i][$j];
-					push @nodes,$check; 
-				}
-			}
-
-			# for SN backup we might only want the primary or backup
-			my @servicenodes;
-			my ($primary, $backup) = split /,/, $snkey;
-			if (($primary) && ($type eq "primary")) {
-				push @servicenodes, $primary;
-			} elsif (($backup) && ($type eq "backup")) {
-				push @servicenodes, $backup;
-			} else {
-				@servicenodes = split /,/, $snkey;
-			}
-
-			# now build new hash of individual service nodes
-			foreach my $newsnkey (@servicenodes) {
-				push @{$newsnhash{$newsnkey}}, @nodes;
-			}
-		}
-	}
-    return \%newsnhash;
-}
-
-#----------------------------------------------------------------------------
-
-=head3  getAIXSNinterfaces
-
-	Get a list of ip addresses for each service node in a list
-
-	Arguments:
-		list of service nodes
-	Returns:
-		hash of ips for each service node
-	Globals:
-		none
-	Error:
-		none
-	Example:
-		my $sni = xCAT::ServiceNodeUtils->getAIXSNinterfaces(\@servlist, $callback, $subreq);
-
-	Comments:
-
-=cut
-
-#-----------------------------------------------------------------------------
-sub getAIXSNinterfaces
-{
-    my ($class, $list, $callback, $sub_req) = @_;
-
-    my @snlist = @$list;
-    my %SNinterfaces;
-
-    # get all the possible IPs for the node I'm running on
-    my $ifcmd = "/usr/sbin/ifconfig -a | grep 'inet ' ";
-    foreach my $sn (@snlist)
-    {
-        my $SNIP;
-        my $out = xCAT::InstUtils->xcmd($callback, $sub_req, "xdsh", $sn, $ifcmd, 0);
-        if ($::RUNCMD_RC != 0)
-        {
-			my $rsp;
-			push @{$rsp->{data}}, "Could not get IP addresses from service node $sn.\n";
-			xCAT::MsgUtils->message("E", $rsp, $callback);
-            next;
-        }
-
-		my @result;
-		foreach my $line ( split(/\n/, $out)) {
-			$line =~ s/$sn:\s+//;
-			push(@result, $line);
-		}
-
-		foreach my $int (@result) {
-			my ($inet, $SNIP, $str) = split(" ", $int);
-			chomp $SNIP;
-			$SNIP =~ s/\/.*//; # ipv6 address 4000::99/64
-			$SNIP =~ s/\%.*//; # ipv6 address ::1%1/128
-            push(@{$SNinterfaces{$sn}}, $SNIP);
-        }
-    } # end foreach SN
-   	return \%SNinterfaces;
-}
-
-#-----------------------------------------------------------------------------
-
-=head3  
- 
-    getSNandCPnodes - Take an array of nodes and returns 
-    an array of the service 
-    nodes and an array of the computenode . 
-
-    Arguments:
-       none 
-    Returns:
-		array of Service Nodes and/or array of compute nodesarray of compute nodes       empty array, if none
-    Globals:
-        none
-    Error:
-        1 - error
-    Example:
-         xCAT::ServiceNodeUtils->getSNandCPnodes(\@nodes,\@SN,\@CN);
-    Comments:
-        none
-
-=cut
-
-#-----------------------------------------------------------------------------
-sub getSNandCPnodes 
-{
-   
-    my ($class, $nodes,$sn,$cn) = @_; 
-    my @nodelist = @$nodes;
-    # get the list of all Service nodes
-    my @allSN=xCAT::ServiceNodeUtils->getAllSN;
-    foreach my $node (@nodelist) {
-      if (grep(/^$node$/, @allSN)) { # it is a SN
-         push (@$sn,$node);
-      } else {  # a CN
-         push (@$cn,$node);
-      }
-    }
-
-    return ; 
-}
-1;

perl-xCAT/xCAT/Table.pm

@@ -12,9 +12,7 @@
 #   -cache to persist so long as '_build_cache' calls concurrently stack (for NodeRange interpretation mainly) (done)
 #   -Allow plugins to define a staleness threshold for getNodesAttribs freshness (complicated enough to postpone...)
 #    so that actions requested by disparate managed nodes may aggregate in SQL calls
-# cache lifetime is no longer determined strictly by function duration
-# now it can live up to 5 seconds.  However, most calls will ignore the cache unless using a special option.
-# Hmm, potential issue, getNodesAttribs might return up to 5 second old data even if caller expects brand new data
+# reference count managed cache lifetime, if clear_cache is called, and build_chache has been called twice, decrement the counter
 # if called again, decrement again and clear cache
 # for getNodesAttribs, we can put a parameter to request allowable staleneess
 # if the cachestamp is too old, build_cache is called
@@ -51,7 +49,10 @@ BEGIN
 # if AIX - make sure we include perl 5.8.2 in INC path.
 #       Needed to find perl dependencies shipped in deps tarball.
 if ($^O =~ /^aix/i) {
-	unshift(@INC, qw(/usr/opt/perl5/lib/5.8.2/aix-thread-multi /usr/opt/perl5/lib/5.8.2 /usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi /usr/opt/perl5/lib/site_perl/5.8.2));
+        use lib "/usr/opt/perl5/lib/5.8.2/aix-thread-multi";
+        use lib "/usr/opt/perl5/lib/5.8.2";
+        use lib "/usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi";
+        use lib "/usr/opt/perl5/lib/site_perl/5.8.2";
 }
 
 use lib "$::XCATROOT/lib/perl";
@@ -213,10 +214,9 @@ sub init_dbworker {
             };
             if ($@) { #this should never be reached, but leave it intact just in case
                 my $err=$@;
-                eval { xCAT::MsgUtils->message("S","xcatd: possible BUG encountered by xCAT DB worker ".$err); };
+                xCAT::MsgUtils->message("S","xcatd: possible BUG encountered by xCAT DB worker ".$err);
             }
             if ($intendedpid != $$) { #avoid redundant fork
-                eval { xCAT::MsgUtils->message("S","Pid $$ shutting itself down because only pid $intendedpid is permitted to be in this area"); };
                 exit(0);
             }
         }
@@ -299,11 +299,7 @@ sub handle_dbc_request {
             $opentables{$tablename}->{$autocommit} = xCAT::Table->new(@args);
         }
         if ($opentables{$tablename}->{$autocommit}) {
-	   if ($opentables{$tablename}->{$autocommit^1}) {
-               $opentables{$tablename}->{$autocommit}->{cachepeer}=$opentables{$tablename}->{$autocommit^1};
-               $opentables{$tablename}->{$autocommit^1}->{cachepeer}=$opentables{$tablename}->{$autocommit};
-           }
-           return 1;
+            return 1;
         } else {
             return 0;
         }
@@ -316,10 +312,6 @@ sub handle_dbc_request {
             unless ($opentables{$tablename}->{$autocommit}) {
                 return undef;
             }
-	    if ($opentables{$tablename}->{$autocommit^1}) {
-               $opentables{$tablename}->{$autocommit}->{cachepeer}=$opentables{$tablename}->{$autocommit^1};
-               $opentables{$tablename}->{$autocommit^1}->{cachepeer}=$opentables{$tablename}->{$autocommit};
-            }
         }
     }
     if ($functionname eq 'getAllAttribs') {
@@ -360,6 +352,8 @@ sub handle_dbc_request {
          return $opentables{$tablename}->{$autocommit}->_set_use_cache(@args);
     } elsif ($functionname eq '_build_cache') {
          return $opentables{$tablename}->{$autocommit}->_build_cache(@args);
+    } elsif ($functionname eq '_clear_cache') {
+         return $opentables{$tablename}->{$autocommit}->_clear_cache(@args);
     } else {
         die "undefined function $functionname";
     }
@@ -2091,8 +2085,10 @@ sub getNodesAttribs {
         my @nodeentries=$self->getNodeAttribs($_,\@realattribs,%options);
         $rethash->{$_} = \@nodeentries; #$self->getNodeAttribs($_,\@attribs);
     }
+    $self->_clear_cache;
     $self->{_use_cache} = 0;
-    if ($self->{tabname} ne 'nodelist') { 
+    if ($self->{tabname} ne 'nodelist') { #avoid calling clear_cache on nodelist twice
+	    $self->{nodelist}->_clear_cache;
 	    $self->{nodelist}->{_use_cache} = 0;
     }
     return $rethash;
@@ -2100,7 +2096,6 @@ sub getNodesAttribs {
 
 sub _refresh_cache { #if cache exists, force a rebuild, leaving reference counts alone
     my $self = shift; #dbworker check not currently required
-    if ($self->{cachepeer}->{_cachestamp}) { $self->{cachepeer}->{_cachestamp}=0; }
     if ($self->{_use_cache}) { #only do things if cache is set up
         $self->_build_cache(1); #for now, rebuild the whole thing.
                     #in the future, a faster cache update may be possible
@@ -2119,6 +2114,27 @@ sub _refresh_cache { #if cache exists, force a rebuild, leaving reference counts
     return;
 }
 
+sub _clear_cache { #PRIVATE FUNCTION TO EXPIRE CACHED DATA EXPLICITLY
+    #This is no longer sufficient to do at destructor time, as Table objects actually live an indeterminite amount of time now
+    #TODO: only clear cache if ref count mentioned in build_cache is 1, otherwise decrement ref count
+    my $self = shift;
+    if ($dbworkerpid) {
+        return dbc_call($self,'_clear_cache',@_);
+    }
+    if ($self->{_cache_ref} > 1) { #don't clear the cache if there are still live references
+        $self->{_cache_ref} -= 1;
+        return;
+    } elsif ($self->{_cache_ref} == 1) { #If it is 1, decrement to zero and carry on
+        return;
+        #$self->{_cache_ref} = 0;
+    }
+    #it shouldn't have been zero, but whether it was 0 or 1, ensure that the cache is gone
+    $self->{_use_cache}=0; # Signal slow operation to any in-flight operations that may fail with empty cache
+    $self->{_cached_attriblist} = undef;
+    undef $self->{_tablecache};
+    undef $self->{_nodecache};
+}
+
 sub _build_cache { #PRIVATE FUNCTION, PLEASE DON'T CALL DIRECTLY
 #TODO: increment a reference counter type thing to preserve current cache
 #Also, if ref count is 1 or greater, and the current cache is less than 3 seconds old, reuse the cache?
@@ -2134,6 +2150,10 @@ sub _build_cache { #PRIVATE FUNCTION, PLEASE DON'T CALL DIRECTLY
     }
     
     if (not $refresh and $self->{_cache_ref}) { #we have active cache reference, increment counter and return
+        #TODO: ensure that the cache isn't somehow still ludirously old
+	unless ($copts{noincrementref}) {
+           $self->{_cache_ref} += 1;
+        }
 	my $currattr;
 	my $cachesufficient=1;
 	foreach $currattr (@$attriblist) { #if any of the requested attributes are not cached, we must rebuild
@@ -2145,7 +2165,6 @@ sub _build_cache { #PRIVATE FUNCTION, PLEASE DON'T CALL DIRECTLY
         if ($self->{_cachestamp} < (time()-5)) { #NEVER use a cache older than 5 seconds
 		$cachesufficient=0;
 	}
-        
 	if ($cachesufficient) { return; }
 	#cache is insufficient, now we must do the converse of above
 	#must add any currently cached columns to new list if not requested
@@ -2286,9 +2305,8 @@ sub getNodeAttribs
             my $exp = substr($datum->{$attrib}, 1);
             chop $exp;
             my @parts = split('/', $exp, 2);
-	    my $retval = $node;
-            $retval =~ s/$parts[0]/$parts[1]/;
-            $datum->{$attrib} = $retval;
+            $node =~ s/$parts[0]/$parts[1]/;
+            $datum->{$attrib} = $node;
         }
         elsif ($datum->{$attrib} =~ /^\|.*\|.*\|$/)
         {
@@ -2901,9 +2919,7 @@ sub getAllAttribsWhere
 
     Arguments:
                  Table handle
-	         Attribute list
-                 optional hash return style
-                 ( changes the return hash structure format) 
+				 Attribute list
     Returns:
                  Array of attribute values
     Globals:
@@ -2911,8 +2927,7 @@ sub getAllAttribsWhere
     Error:
 
     Example:
-       my @entries = $self->{switchtab}->getAllNodeAttribs(['port','switch']);
-       my @entries = $self->{switchtab}->getAllNodeAttribs(['port','switch'],1);
+         my @entries = $self->{switchtab}->getAllNodeAttribs(['port','switch']);
     Comments:
         none
 
@@ -2951,6 +2966,8 @@ sub getAllNodeAttribs
     unless ($options{prefetchcache}) {
     $self->{_use_cache} = 0;
     $self->{nodelist}->{_use_cache}=0;
+    $self->_clear_cache();
+    $self->{nodelist}->_clear_cache();
     }
     $self->_build_cache($attribq);
     $self->{nodelist}->_build_cache(['node','groups']);
@@ -3004,8 +3021,11 @@ sub getAllNodeAttribs
             }
         }
     }
+    $self->_clear_cache();
+    $self->{nodelist}->_clear_cache();
     $self->{_use_cache} = 0;
     $self->{nodelist}->{_use_cache} = 0;
+    xCAT::NodeRange::retain_cache(0);
     $query->finish();
     if ($hashretstyle) {
         return $rethash;
@@ -3121,18 +3141,11 @@ sub getAllAttribs
     Error:
 
     Example:
-	my $table=xCAT::Table->new("nodelist");
-        my %keyhash;
-        $keyhash{node} = "node1";
-        $keyhash{groups} = "compute1";
-	$table->delEntries(\%keyhash);
-         $table->commit;
-        Build delete statement and'ing the elements of the hash
-        DELETE FROM nodelist WHERE ("groups" = "compute1" AND "node" = "node1")
+	my $table=xCAT::Table->new("notification", -create => 1,-autocommit => 0);
+	my %key_col = (filename=>$fname);
+	$table->delEntries(\%key_col);
+	$table->commit;
 
-        If called with no attributes, it will delete all entries in the table. 
-          $table->delEntries();
-          $table->commit;
     Comments:
         none
 
@@ -3230,7 +3243,6 @@ sub delEntries
         $stmt->execute(@stargs);
         $stmt->finish;
     
-        $self->_refresh_cache(); #cache is invalid, refresh
         #notify the interested parties
         if ($notif == 1)
         {
@@ -3269,7 +3281,7 @@ sub getAttribs
 {
 
     #Takes two arguments:
-    #-Key(s) name (will be compared against the table key(s) value)
+    #-Node name (will be compared against the 'Node' column)
     #-List reference of attributes for which calling code wants at least one of defined
     # (recurse argument intended only for internal use.)
     # Returns a hash reference with requested attributes defined.
@@ -3899,7 +3911,7 @@ sub writeAllEntries
     # open the file for write
     unless (open($fh," > $filename")) {
      my $msg="Unable to open $filename for write \n.";
-       `logger -p local4.err  -t xcat $msg`;
+       `logger -t xcat $msg`;
         return 1;  
     }
     my $query;
@@ -3984,7 +3996,7 @@ sub writeAllAttribsWhere
     # open the file for write
     unless (open($fh," > $filename")) {
      my $msg="Unable to open $filename for write \n.";
-       `logger -p local4.err -t xcat $msg`;
+       `logger -t xcat $msg`;
         return 1;  
     }
     my $header;

perl-xCAT/xCAT/Usage.pm

@@ -90,7 +90,7 @@ my %usage = (
     "rbootseq" => 
 "Usage: 
        Common:
-           rbootseq [-h|--help|-v|--version|-V|--verbose]
+           rbootseq [-h|--help|-v|--version]
        Blade specific:
            rbootseq <noderange> [hd0|hd1|hd2|hd3|net|iscsi|usbflash|floppy|none],...
        PPC (using Direct FSP Management) specific:
@@ -101,7 +101,7 @@ my %usage = (
     "rspconfig" => 
 "Usage: 
    Common:
-       rspconfig [-h|--help|-v|--version|-V|--verbose]
+       rspconfig [-h|--help|-v|--version]
    BMC/MPA Common:
        rspconfig <noderange> [snmpdest|alert|community] [-V|--verbose]
        rspconfig <noderange> [snmpdest=<dest ip address>|alert=<on|off|en|dis|enable|disable>|community=<string>]
@@ -115,7 +115,7 @@ my %usage = (
        rspconfig <noderange>  [sshcfg|snmpcfg|pd1|pd2|network|swnet|ntp|textid|frame]
        rspconfig <singlenode> [textid=name]
        rspconfig <singlenode> [frame=number]
-       rspconfig <singlenode> [USERID=passwd] [updateBMC=<y|n>]
+       rspconfig <singlenode> [USERID=passwd]
        rspconfig <noderange>  [sshcfg=<enable|disable>|
            snmpcfg=<enable|disable>|                             
            pd1=<nonred|redwoperf|redwperf>|
@@ -185,7 +185,7 @@ my %usage = (
    PPC specific:
        getmacs <noderange> [-F filter] 
        getmacs <noderange> [-M]
-       getmacs <noderange> [-V| --verbose] [-f] [-d] [--arp] | [-D [-o] [-S server] [-G gateway] [-C client]]
+       getmacs <noderange> [-V| --verbose] [-f] [-d] [--arp] | [-D [-S server] [-G gateway] [-C client]]
    blade specific:
        getmacs <noderange> [-V| --verbose] [-d] [--arp] [-i ethN|enN]
 ",
@@ -262,7 +262,7 @@ my %usage = (
     "lsslp" =>
 "Usage: lsslp [-h|--help|-v|--version]
        lsslp [<noderange>][-V|--verbose][-i ip[,ip..]][-w][-r|-x|-z][-n][-I][-s FRAME|CEC|MM|IVM|RSA|HMC|CMM]
-             [-t tries][--vpdtable][-C counts][-T timeout][--flexdiscover]",
+             [-t tries][--vpdtable][-C counts][-T timeout]",
   "rflash" =>
 "Usage: 
     rflash [ -h|--help|-v|--version]
@@ -272,7 +272,7 @@ my %usage = (
     PPC (using Direct FSP Management) specific:
 	rflash <noderange> -p <rpm_directory> --activate <disruptive|deferred> [-d <data_directory>]
 	rflash <noderange> [--commit | --recover] [-V|--verbose]
-        rflash <noderange> [--bpa_acdl]",
+       rflash <noderange> [--bpa_acdl]",
     "mkhwconn" =>
 "Usage:
     mkhwconn [-h|--help]
@@ -327,7 +327,10 @@ my %usage = (
     or
     updatenode <noderange> [-V|--verbose] [-k|--security] [-s|--sn]
     or
-    updatenode <noderange> [-V|--verbose] [-F|--sync | -f|--snsync] [-l|--user[username]] [-S|--sw] 
+    updatenode <noderange> [-V|--verbose] [-k|--security] [--user] 
+        [--devicetype]
+    or
+    updatenode <noderange> [-V|--verbose] [-F|--sync | -f|--snsync] [-S|--sw] 
         [-P|--scripts [script1,script2,...]] [-s|--sn] 
         [-A|--updateallsw] [-c|--cmdlineonly] [-d alt_source_dir]
         [attr=val [attr=val...]]
@@ -340,12 +343,13 @@ Options:
     [-k|--security] Update the security keys and certificates for the 
         target nodes.
 
+    [-k|--security] [--user] [--devicetype] Update the ssh keys for 
+        specific device.
+
     [-F|--sync] Perform File Syncing.
 
     [-f|--snsync] Performs File Syncing to the service nodes that service 
         the nodes in the noderange.
-    [-l|--user] User name to run the updatenode command.  It overrides the
-        current user which is the default.
 
     [-S|--sw] Perform Software Maintenance.
 
@@ -381,7 +385,7 @@ Options:
 "Usage:
    Common:
       nodeset [-h|--help|-v|--version]
-      nodeset <noderange> [install|shell|boot|runcmd=bmcsetup|netboot|iscsiboot|osimage[=<imagename>]|statelite|offline]",
+      nodeset <noderange> [install|shell|boot|runcmd=bmcsetup|netboot|iscsiboot|osimage=<imagename>|statelite|offline]",
   "rmflexnode" =>
 "Usage:
     rmflexnode [-h|--help|-v|--version]

perl-xCAT/xCAT/Version.pm

@@ -10,7 +10,10 @@ BEGIN
 # if AIX - make sure we include perl 5.8.2 in INC path.
 #       Needed to find perl dependencies shipped in deps tarball.
 if ($^O =~ /^aix/i) {
-	unshift(@INC, qw(/usr/opt/perl5/lib/5.8.2/aix-thread-multi /usr/opt/perl5/lib/5.8.2 /usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi /usr/opt/perl5/lib/site_perl/5.8.2));
+        use lib "/usr/opt/perl5/lib/5.8.2/aix-thread-multi";
+        use lib "/usr/opt/perl5/lib/5.8.2";
+        use lib "/usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi";
+        use lib "/usr/opt/perl5/lib/site_perl/5.8.2";
 }
 
 use lib "$::XCATROOT/lib/perl";
@@ -38,7 +41,7 @@ use strict;
 sub Version
 {
 
-    #The following tags tells the build script where to append build info
+    #The following tag tells the build script where to append build info
     my $version = shift;
     if ($version eq 'short')
     {

perl-xCAT/xCAT/Yum.pm

@@ -18,24 +18,9 @@ sub localize_yumrepo {
     $installpfx = "$installroot/$distname/$arch";
     mkpath("$installroot/postscripts/repos/$distname/$arch/");
     open($yumrepofile,">","$installroot/postscripts/repos/$distname/$arch/local-repository.tmpl");
-    my %options=(
-      wanted => \&check_tofix,
-      follow_fast => 1
-      );
-    find(\%options,$installpfx);    
-     close($yumrepofile);
+    find(\&check_tofix,$installpfx);
+    close($yumrepofile);
 }
-
-
-sub remove_yumrepo {
-    my $self = shift;
-    my $installroot = shift;
-    $distname = shift;
-    $arch = shift;
-
-    rmtree("$installroot/postscripts/repos/$distname/$arch/");
-}
-
 sub check_tofix {
    if (-d $File::Find::name and $File::Find::name =~ /\/repodata$/) {
 		if($distname =~ /rhels5/)
@@ -44,12 +29,7 @@ sub check_tofix {
 		}
 		generate_repo($File::Find::name);
    }
-   elsif($File::Find::name =~ /\/RPM-GPG-KEY/){
-   		qx(rpm --import $File::Find::name);
-   }
 }
-
-
 sub generate_repo
 {
     #write local-repository.tmpl

perl-xCAT/xCAT/data/discinfo.pm

@@ -1,10 +1,9 @@
 # IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
-
-# You can get copycds to recognize new distro DVDs/ISOs (so that you do not have to specify -n and -a)
-# by adding the disc ids to the %distnames hash below.  Follow the syntax carefully.
-# Reload xcatd to have it take affect (service xcatd reload).
-
 package xCAT::data::discinfo;
+#BEGIN
+#{
+#  $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
+#}
 
 require Exporter;
 @ISA=qw(Exporter);
@@ -12,10 +11,11 @@ require Exporter;
 @EXPORT_OK=qw(distnames numdiscs);
 
 
+
+
 %distnames = (
                  "1310229985.226287" => "centos6",
 		 "1323560292.885204" => "centos6.2",
-		 "1341569670.539525" => "centos6.3",#x86
                  "1176234647.982657" => "centos5",
                  "1156364963.862322" => "centos4.4",
                  "1178480581.024704" => "centos4.5",
@@ -25,7 +25,6 @@ require Exporter;
                  "1214240246.285059" => "centos5.2",
                  "1237641529.260981" => "centos5.3",
                  "1272326751.405938" => "centos5.5",
-                 "1330913492.861127" => "centos5.8",#x86_64
                  "1195488871.805863" => "centos4.6",
                  "1195487524.127458" => "centos4.6",
                  "1301444731.448392" => "centos5.6",
@@ -44,7 +43,6 @@ require Exporter;
                  "1269262918.904535" => "rhels5.5", #ppc
                  "1269260915.992102" => "rhels5.5", #i386
                  "1269263646.691048" => "rhels5.5", #x86_64
-                 "1328205744.315196" => "rhels5.8", #x86_64
                  "1285193176.460470" => "rhels6", #x86_64
                  "1285192093.430930" => "rhels6", #ppc64
                  "1305068199.328169" => "rhels6.1", #x86_64
@@ -52,12 +50,9 @@ require Exporter;
                  "1321546114.510099" => "rhels6.2", #x86_64
                  "1321546739.676170" => "rhels6.2", #ppc64
 		 "1339641244.734735" => "rhels6.3", #ppc64
-                 "1339640147.274118" => "rhels6.3", #x86_64
-                 "1339638991.532890" => "rhels6.3", #i386
-		 "1285193176.593806" => "rhelhpc6", #x86_64
-		 "1305067719.718814" => "rhelhpc6.1",#x86_64				
-		 "1321545261.599847" => "rhelhpc6.2",#x86_64				
-		 "1339640148.070971" => "rhelhpc6.3",#x86_64				
+		 "1339640147.274118" => "rhels6.3", #x86_64
+		 "1339638991.532890" => "rhels6.3", #i386
+                 "1285193176.593806" => "rhelhpc6",
                  "1194015916.783841" => "fedora8",
                  "1194015385.299901" => "fedora8",
                  "1210112435.291709" => "fedora9",
@@ -83,4 +78,9 @@ my %numdiscs = (
                 );
 
 
+#sub handled_commands
+#{
+#	return;
+#};
+
 	1;

perl-xCAT/xCAT/hpoa.pm

@@ -14,7 +14,7 @@ package xCAT::hpoa;
 
 use strict;
 
-#use SOAP::Lite;	# hpblade.pm requires SOAP::Lite before requiring hpoa.pm, so we can check for SOAP::Lite dynamically
+use SOAP::Lite;
 use vars qw(@ISA);
 @ISA = qw(SOAP::Lite);
 

perl-xCAT/xCAT/zvmCPUtils.pm

@@ -1,4 +1,4 @@
-# IBM(c) 2013 EPL license http://www.eclipse.org/legal/epl-v10.html
+# IBM(c) 2012 EPL license http://www.eclipse.org/legal/epl-v10.html
 #-------------------------------------------------------
 
 =head1
@@ -19,8 +19,7 @@ use warnings;
 =head3   getUserId
 
     Description : Get the user ID of a given node
-    Arguments   :   User (root or non-root)
-                    Node
+    Arguments   : Node
     Returns     : UserID
     Example     : my $userID = xCAT::zvmCPUtils->getUserId($node);
     
@@ -30,15 +29,10 @@ use warnings;
 sub getUserId {
 
     # Get inputs
-    my ( $class, $user, $node ) = @_;
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
+    my ( $class, $node ) = @_;
 
     # Get user ID using VMCP
-    my $out     = `ssh -o ConnectTimeout=5 $user\@$node "$sudo /sbin/vmcp q userid"`;
+    my $out     = `ssh -o ConnectTimeout=5 $node "vmcp q userid"`;
     my @results = split( ' ', $out );
 
     return ( $results[0] );
@@ -49,8 +43,7 @@ sub getUserId {
 =head3   getHost
 
     Description : Get the z/VM host of a given node
-    Arguments   :   User (root or non-root)
-                    Node
+    Arguments   : Node
     Returns     : z/VM host
     Example     : my $host = xCAT::zvmCPUtils->getHost($node);
     
@@ -60,15 +53,10 @@ sub getUserId {
 sub getHost {
 
     # Get inputs
-    my ( $class, $user, $node ) = @_;
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
+    my ( $class, $node ) = @_;
 
     # Get host using VMCP
-    my $out     = `ssh -o ConnectTimeout=5 $user\@$node "$sudo /sbin/vmcp q userid"`;
+    my $out     = `ssh -o ConnectTimeout=5 $node "vmcp q userid"`;
     my @results = split( ' ', $out );
     my $host    = $results[2];
 
@@ -80,8 +68,7 @@ sub getHost {
 =head3   getPrivileges
 
     Description : Get the privilege class of a given node
-    Arguments   :   User (root or non-root)
-                    Node
+    Arguments   : Node
     Returns     : Privilege class
     Example     : my $class = xCAT::zvmCPUtils->getPrivileges($node);
     
@@ -91,15 +78,10 @@ sub getHost {
 sub getPrivileges {
 
     # Get inputs
-    my ( $class, $user, $node ) = @_;
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
+    my ( $class, $node ) = @_;
 
     # Get privilege class
-    my $out = `ssh -o ConnectTimeout=5 $user\@$node "$sudo /sbin/vmcp q priv"`;
+    my $out = `ssh -o ConnectTimeout=5 $node "vmcp q priv"`;
     my @out = split( '\n', $out );
     $out[1] = xCAT::zvmUtils->trimStr( $out[1] );
     $out[2] = xCAT::zvmUtils->trimStr( $out[2] );
@@ -113,8 +95,7 @@ sub getPrivileges {
 =head3   getMemory
 
     Description : Get the memory of a given node
-    Arguments   :   User (root or non-root)
-                    Node
+    Arguments   : Node
     Returns     : Memory
     Example     : my $memory = xCAT::zvmCPUtils->getMemory($node);
     
@@ -124,29 +105,21 @@ sub getPrivileges {
 sub getMemory {
 
     # Get inputs
-    my ( $class, $user, $node ) = @_;
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
+    my ( $class, $node ) = @_;
 
     # Get memory
-    my $out = `ssh -o ConnectTimeout=5 $user\@$node "$sudo /sbin/vmcp q virtual storage"`;
-    my @out = split( ' ', $out );
+    my $out = `ssh -o ConnectTimeout=5 $node "vmcp q virtual storage"`;
+    my @out = split( '=', $out );
 
-    return ( xCAT::zvmUtils->trimStr( $out[2] ) );
+    return ( xCAT::zvmUtils->trimStr( $out[1] ) );
 }
 
-
-
 #-------------------------------------------------------
 
 =head3   getCpu
 
     Description : Get the processor(s) of a given node
-    Arguments   :   User (root or non-root)
-                    Node
+    Arguments   : Node
     Returns     : Processor(s)
     Example     : my $proc = xCAT::zvmCPUtils->getCpu($node);
     
@@ -156,15 +129,10 @@ sub getMemory {
 sub getCpu {
 
     # Get inputs
-    my ( $class, $user, $node ) = @_;
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
+    my ( $class, $node ) = @_;
 
     # Get processors
-    my $out = `ssh -o ConnectTimeout=5 $user\@$node "$sudo /sbin/vmcp q virtual cpus"`;
+    my $out = `ssh -o ConnectTimeout=5 $node "vmcp q virtual cpus"`;
     my $str = xCAT::zvmUtils->tabStr($out);
 
     return ($str);
@@ -175,8 +143,7 @@ sub getCpu {
 =head3   getNic
 
     Description : Get the network interface card (NIC) of a given node
-    Arguments   :   User (root or non-root)
-                    Node
+    Arguments   : Node
     Returns     : NIC(s)
     Example     : my $nic = xCAT::zvmCPUtils->getNic($node);
     
@@ -186,15 +153,10 @@ sub getCpu {
 sub getNic {
 
     # Get inputs
-    my ( $class, $user, $node ) = @_;
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
+    my ( $class, $node ) = @_;
 
     # Get NIC
-    my $out = `ssh -o ConnectTimeout=5 $user\@$node "$sudo /sbin/vmcp q virtual nic"`;
+    my $out = `ssh -o ConnectTimeout=5 $node "vmcp q virtual nic"`;
     my $str = xCAT::zvmUtils->tabStr($out);
 
     return ($str);
@@ -205,8 +167,7 @@ sub getNic {
 =head3   getNetworkNames
 
     Description : Get a list of network names available to a given node
-    Arguments   :   User (root or non-root)
-                    Node
+    Arguments   : Node
     Returns     : Network names
     Example     : my $lans = xCAT::zvmCPUtils->getNetworkNames($node);
     
@@ -216,15 +177,10 @@ sub getNic {
 sub getNetworkNames {
 
     # Get inputs
-    my ( $class, $user, $node ) = @_;
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
+    my ( $class, $node ) = @_;
 
     # Get network names
-    my $out = `ssh -o ConnectTimeout=5 $user\@$node "$sudo /sbin/vmcp q lan | egrep 'LAN|VSWITCH'"`;
+    my $out = `ssh -o ConnectTimeout=5 $node "vmcp q lan | egrep 'LAN|VSWITCH'"`;
     my @lines = split( '\n', $out );
     my @parms;
     my $names;
@@ -257,8 +213,7 @@ sub getNetworkNames {
 =head3   getNetworkNamesArray
 
     Description : Get an array of network names available to a given node
-    Arguments   :   User (root or non-root)
-                    Node
+    Arguments   : Node
     Returns     : Array of networks names
     Example     : my @networks = xCAT::zvmCPUtils->getNetworkNamesArray($node);
     
@@ -268,17 +223,12 @@ sub getNetworkNames {
 sub getNetworkNamesArray {
 
     # Get inputs
-    my ( $class, $user, $node ) = @_;
+    my ( $class, $node ) = @_;
     my @networks;
     my %netHash;
     
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
-    
     # Get the networks used by the node
-    my $out   = `ssh $user\@$node "$sudo /sbin/vmcp q v nic" | egrep -i "VSWITCH|LAN"`;
+    my $out   = `ssh $node "vmcp q v nic" | egrep -i "VSWITCH|LAN"`;
     my @lines = split( '\n', $out );
     
     # Loop through each line
@@ -314,8 +264,7 @@ sub getNetworkNamesArray {
 =head3   getNetwork
 
     Description : Get the network info for a given node
-    Arguments   :   User (root or non-root)
-                    Node
+    Arguments   :   Node
                     Network name
     Returns     : Network configuration
     Example     : my $config = xCAT::zvmCPUtils->getNetwork($node, $netName);
@@ -326,19 +275,14 @@ sub getNetworkNamesArray {
 sub getNetwork {
 
     # Get inputs
-    my ( $class, $user, $node, $netName ) = @_;
+    my ( $class, $node, $netName ) = @_;
 
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
-    
     # Get network info
     my $out;
     if ( $netName eq "all" ) {
-        $out = `ssh -o ConnectTimeout=5 $user\@$node "$sudo /sbin/vmcp q lan"`;
+        $out = `ssh -o ConnectTimeout=5 $node "vmcp q lan"`;
     } else {
-        $out = `ssh -o ConnectTimeout=5 $user\@$node "$sudo /sbin/vmcp q lan $netName"`;
+        $out = `ssh -o ConnectTimeout=5 $node "vmcp q lan $netName"`;
     }
 
     return ($out);
@@ -349,8 +293,7 @@ sub getNetwork {
 =head3   getDisks
 
     Description : Get the disk(s) of given node
-    Arguments   :   User (root or non-root)
-                    Node
+    Arguments   : Node
     Returns     : Disk(s)
     Example     : my $storage = xCAT::zvmCPUtils->getDisks($node);
     
@@ -360,15 +303,10 @@ sub getNetwork {
 sub getDisks {
 
     # Get inputs
-    my ( $class, $user, $node ) = @_;
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
+    my ( $class, $node ) = @_;
 
     # Get disks
-    my $out = `ssh -o ConnectTimeout=5 $user\@$node "$sudo /sbin/vmcp q virtual dasd"`;
+    my $out = `ssh -o ConnectTimeout=5 $node "vmcp q virtual dasd"`;
     my $str = xCAT::zvmUtils->tabStr($out);
 
     return ($str);
@@ -379,8 +317,7 @@ sub getDisks {
 =head3   loadVmcp
 
     Description : Load Linux VMCP module on a given node
-    Arguments   :   User (root or non-root)
-                    Node
+    Arguments   : Node
     Returns     : Nothing
     Example     : xCAT::zvmCPUtils->loadVmcp($node);
     
@@ -390,15 +327,10 @@ sub getDisks {
 sub loadVmcp {
 
     # Get inputs
-    my ( $class, $user, $node ) = @_;
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
+    my ( $class, $node ) = @_;
 
     # Load Linux VMCP module
-    my $out = `ssh -o ConnectTimeout=5 $user\@$node "$sudo /sbin/modprobe vmcp"`;
+    my $out = `ssh -o ConnectTimeout=5 $node "modprobe vmcp"`;
     return;
 }
 
@@ -407,8 +339,7 @@ sub loadVmcp {
 =head3   getVswitchId
 
     Description : Get the VSwitch ID(s) of given node
-    Arguments   :   User (root or non-root)
-                    Node
+    Arguments   : Node
     Returns     : VSwitch ID(s)
     Example     : my @vswitch = xCAT::zvmCPUtils->getVswitchId($node);
     
@@ -418,15 +349,10 @@ sub loadVmcp {
 sub getVswitchId {
 
     # Get inputs
-    my ( $class, $user, $node ) = @_;
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
+    my ( $class, $node ) = @_;
 
     # Get VSwitch
-    my $out = `ssh -o ConnectTimeout=5 $user\@$node "$sudo /sbin/vmcp q v nic" | grep "VSWITCH"`;
+    my $out = `ssh -o ConnectTimeout=5 $node "vmcp q v nic" | grep "VSWITCH"`;
     my @lines = split( '\n', $out );
     my @parms;
     my @vswitch;
@@ -443,8 +369,7 @@ sub getVswitchId {
 =head3   grantVSwitch
 
     Description : Grant VSwitch access for a given userID 
-    Arguments   :   User (root or non-root)
-                    zHCP
+    Arguments   :   HCP node
                     User ID
                     VSWITCH ID
     Returns     : Operation results (Done/Failed)
@@ -456,23 +381,15 @@ sub getVswitchId {
 sub grantVSwitch {
 
     # Get inputs
-    my ( $class, $callback, $user, $hcp, $userId, $vswitchId ) = @_;
-    
-    # Directory where executables are
-    my $dir = '/opt/zhcp/bin';
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
+    my ( $class, $callback, $hcp, $userId, $vswitchId ) = @_;
 
-    # Use SMAPI EXEC
-    my $out = `ssh $user\@$hcp "$sudo $dir/smcli Virtual_Network_Vswitch_Set -T SYSTEM -n $vswitchId -I $userId"`;
+    # Grant VSwitch for specified userID
+    my $out = `ssh $hcp "vmcp set vswitch $vswitchId grant $userId"`;
     $out = xCAT::zvmUtils->trimStr($out);
 
-    # If return string contains 'Done' - Operation was successful
+    # If return string contains 'Command complete' - Operation was successful
     my $retStr;
-    if ( $out =~ m/Done/i ) {
+    if ( $out =~ m/Command complete/i ) {
         $retStr = "Done\n";
     } else {
         $retStr = "Failed\n";
@@ -486,15 +403,12 @@ sub grantVSwitch {
 
 =head3   flashCopy
 
-    Description : Flash copy
-    Arguments   :   User (root or non-root)
-                    zHCP
-                    Source userId
+    Description : Flash copy (Class B users only)
+    Arguments   :   Node
                     Source address
-                    Target userId
                     Target address
     Returns     : Operation results (Done/Failed)
-    Example     : my $results = xCAT::zvmCPUtils->flashCopy($user, $hcp, $srcAddr, $targetAddr);
+    Example     : my $results = xCAT::zvmCPUtils->flashCopy($node, $srcAddr, $targetAddr);
     
 =cut
 
@@ -502,78 +416,19 @@ sub grantVSwitch {
 sub flashCopy {
 
     # Get inputs
-    my ( $class, $user, $hcp, $srcAddr, $tgtAddr ) = @_;
-    
-    # Directory where executables are
-    my $dir = '/opt/zhcp/bin';
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
+    my ( $class, $node, $srcAddr, $tgtAddr ) = @_;
 
-    # Flash copy using CP
-    my $out = `ssh $user\@$hcp "$sudo /sbin/vmcp flashcopy $srcAddr 0 end to $tgtAddr 0 end synchronous"`;
-    
+    # Flash copy
+    my $out = `ssh $node "vmcp flashcopy $srcAddr 0 end to $tgtAddr 0 end synchronous"`;
     $out = xCAT::zvmUtils->trimStr($out);
 
     # If return string contains 'Command complete' - Operation was successful
     my $retStr = "";
     if ( $out =~ m/Command complete/i ) {
-        $retStr = "Copying data via CP FLASHCOPY... Done\n";
+        $retStr = "Done\n";
     } else {
         $out    = xCAT::zvmUtils->tabStr($out);
-        $retStr = "Copying data via CP FLASHCOPY... Failed\n$out";
-    }
-
-    return $retStr;
-}
-
-#-------------------------------------------------------
-
-=head3   smapiFlashCopy
-
-    Description : Flash copy using SMAPI
-    Arguments   :   User (root or non-root)
-                    zHCP
-                    Source userId
-                    Source address
-                    Target userId
-                    Target address
-    Returns     : Operation results (Done/Failed)
-    Example     : my $results = xCAT::zvmCPUtils->smapiFlashCopy($user, $node, $srcId, $srcAddr, $tgtId, $targetAddr);
-    
-=cut
-
-#-------------------------------------------------------
-sub smapiFlashCopy {
-
-    # Get inputs
-    my ( $class, $user, $hcp, $srcId, $srcAddr, $tgtId, $tgtAddr ) = @_;
-    
-    # Directory where executables are
-    my $dir = '/opt/zhcp/bin';
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
-
-    my $hcpUserId = xCAT::zvmCPUtils->getUserId($user, $hcp);
-        
-    # Use SMAPI EXEC to flash copy
-    my $cmd = '\"' . "CMD=FLASHCOPY $srcId $srcAddr 0 END $tgtId $tgtAddr 0 END" . '\"';
-    my $out = `ssh $user\@$hcp "$sudo $dir/smcli xCAT_Commands_IUO -T $hcpUserId -c $cmd"`;
-        
-    $out = xCAT::zvmUtils->trimStr($out);
-
-    # If return string contains 'Done' - Operation was successful
-    my $retStr = "";
-    if ( $out =~ m/Done/i ) {
-        $retStr = "Copying data via SMAPI FLASHCOPY... Done\n";
-    } else {
-        $out    = xCAT::zvmUtils->tabStr($out);
-        $retStr = "Copying data via SMAPI FLASHCOPY... $out";
+        $retStr = "Failed\n$out";
     }
 
     return $retStr;
@@ -584,8 +439,7 @@ sub smapiFlashCopy {
 =head3   punch2Reader
 
     Description : Write file to z/VM punch and transfer it to reader
-    Arguments   :   User (root or non-root)
-                    zHCP
+    Arguments   :   HCP node
                     UserID to receive file
                     Source file
                     Target file to be created by punch (e.g. sles.parm)
@@ -597,29 +451,11 @@ sub smapiFlashCopy {
 
 #-------------------------------------------------------
 sub punch2Reader {
-    my ( $class, $user, $hcp, $userId, $srcFile, $tgtFile, $options ) = @_;
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
-    
-    # Get source node OS
-    my $os = xCAT::zvmUtils->getOsVersion($user, $hcp);
-            
+    my ( $class, $hcp, $userId, $srcFile, $tgtFile, $options ) = @_;
+
     # Punch to reader
-    # VMUR located in different directories on RHEL and SLES
-    my $out;
-    if ( $os =~ m/sles10/i ) {
-        $out = `ssh -o ConnectTimeout=5 $user\@$hcp "$sudo /sbin/vmur punch $options -u $userId -r $srcFile -N $tgtFile"`;
-    } elsif ( $os =~ m/sles11/i ) {
-        $out = `ssh -o ConnectTimeout=5 $user\@$hcp "$sudo /usr/sbin/vmur punch $options -u $userId -r $srcFile -N $tgtFile"`;
-    } elsif ( $os =~ m/rhel/i ) {
-    	$out = `ssh -o ConnectTimeout=5 $user\@$hcp "$sudo /usr/sbin/vmur punch $options -u $userId -r $srcFile -N $tgtFile"`;
-    } else {
-    	$out = `ssh -o ConnectTimeout=5 $user\@$hcp "$sudo /usr/sbin/vmur punch $options -u $userId -r $srcFile -N $tgtFile"`;
-    }
-    
+    my $out = `ssh -o ConnectTimeout=5 $hcp "vmur punch $options -u $userId -r $srcFile -N $tgtFile"`;
+
     # If punch is successful -- Look for this string
     my $searchStr = "created and transferred";
     if ( !( $out =~ m/$searchStr/i ) ) {
@@ -635,9 +471,8 @@ sub punch2Reader {
 
 =head3   purgeReader
 
-    Description : Purge reader
-    Arguments   :   User (root or non-root)
-                    zHCP
+    Description : Purge reader (Class D users only)
+    Arguments   :   HCP node
                     UserID to purge reader
     Returns     : Nothing
     Example     : my $rc = xCAT::zvmCPUtils->purgeReader($hcp, $userId);
@@ -646,28 +481,12 @@ sub punch2Reader {
 
 #-------------------------------------------------------
 sub purgeReader {
-    my ( $class, $user, $hcp, $userId ) = @_;
-    
-    # Directory where executables are
-    my $dir = '/opt/zhcp/bin';
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
-    
-    my $out;
-    if (xCAT::zvmUtils->smapi4xcat($user, $hcp)) {
-        # Use SMAPI EXEC to purge reader
-        my $cmd = '\"' . "CMD=PURGE $userId RDR ALL" . '\"';
-        $out = `ssh $user\@$hcp "$sudo $dir/smcli xCAT_Commands_IUO -T $userId -c $cmd"`;
-    } else {
-        # Purge reader using CP
-        $out = `ssh -o ConnectTimeout=5 $user\@$hcp "$sudo /sbin/vmcp purge $userId rdr all"`;
-    }
+    my ( $class, $hcp, $userId ) = @_;
 
-    $out = xCAT::zvmUtils->trimStr($out);
-    return $out;
+    # Purge reader
+    my $out = `ssh -o ConnectTimeout=5 $hcp "vmcp purge $userId rdr all"`;
+
+    return;
 }
 
 #-------------------------------------------------------
@@ -675,8 +494,7 @@ sub purgeReader {
 =head3   sendCPCmd
 
     Description : Send CP command to a given userID (Class C users only)
-    Arguments   :   User (root or non-root)
-                    zHCP
+    Arguments   :   HCP node
                     UserID to send CP command
     Returns     : Nothing
     Example     : xCAT::zvmCPUtils->sendCPCmd($hcp, $userId, $cmd);
@@ -685,27 +503,11 @@ sub purgeReader {
 
 #-------------------------------------------------------
 sub sendCPCmd {
-    my ( $class, $user, $hcp, $userId, $cmd ) = @_;
+    my ( $class, $hcp, $userId, $cmd ) = @_;
 
-    # Directory where executables are
-    my $dir = '/opt/zhcp/bin';
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
-    
-    my $out;
-    if (xCAT::zvmUtils->smapi4xcat($user, $hcp)) {
-        # Use SMAPI EXEC to send command
-        $cmd = '\"' . "CMD=SEND CP $userId " . uc($cmd) . '\"';
-        $out = `ssh $user\@$hcp "$sudo $dir/smcli xCAT_Commands_IUO -T $userId -c $cmd"`;
-    } else {
-        # Send CP command to given user
-        $out = `ssh $user\@$hcp "$sudo /sbin/vmcp send cp $userId $cmd"`;
-    }
+    # Send CP command to given userID
+    my $out = `ssh $hcp "vmcp send cp $userId $cmd"`;
 
-    $out = xCAT::zvmUtils->trimStr($out);
     return;
 }
 
@@ -714,8 +516,7 @@ sub sendCPCmd {
 =head3   getNetworkLayer
 
     Description : Get the network layer for a given node
-    Arguments   :   User (root or non-root)
-                    Node
+    Arguments   :   Node
                     Network name
     Returns     :  2     - Layer 2
                    3     - Layer 3
@@ -726,20 +527,15 @@ sub sendCPCmd {
 
 #-------------------------------------------------------
 sub getNetworkLayer {
-    my ( $class, $user, $node, $netName ) = @_;
+    my ( $class, $node, $netName ) = @_;
 
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
-    
     # Exit if the network name is not given
     if ( !$netName ) {
         return -1;
     }
 
     # Get network type (Layer 2 or 3)
-    my $out = `ssh -o ConnectTimeout=5 $user\@$node "$sudo /sbin/vmcp q lan $netName"`;
+    my $out = `ssh -o ConnectTimeout=5 $node "vmcp q lan $netName"`;
     if ( !$out ) {
         return -1;
     }
@@ -763,8 +559,7 @@ sub getNetworkLayer {
 =head3   getNetworkType
 
     Description : Get the network type of a given network
-    Arguments   :   User (root or non-root)
-                    zHCP
+    Arguments   :   HCP node
                     Name of network
     Returns     : Network type (VSWITCH/HIPERS/QDIO)
     Example     : my $netType = xCAT::zvmCPUtils->getNetworkType($hcp, $netName);
@@ -773,15 +568,10 @@ sub getNetworkLayer {
 
 #-------------------------------------------------------
 sub getNetworkType {
-    my ( $class, $user, $hcp, $netName ) = @_;
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
-    
+    my ( $class, $hcp, $netName ) = @_;
+
     # Get network details
-    my $out = `ssh -o ConnectTimeout=5 $user\@$hcp "$sudo /sbin/vmcp q lan $netName" | grep "Type"`;
+    my $out = `ssh -o ConnectTimeout=5 $hcp "vmcp q lan $netName" | grep "Type"`;
 
     # Go through each line and determine network type
     my @lines = split( '\n', $out );
@@ -812,8 +602,7 @@ sub getNetworkType {
 =head3   defineCpu
 
     Description : Add processor(s) to given node
-    Arguments   :   User (root or non-root)
-                    Node
+    Arguments   : Node
     Returns     : Nothing
     Example     : my $out = xCAT::zvmCPUtils->defineCpu($node, $addr, $type);
     
@@ -823,15 +612,10 @@ sub getNetworkType {
 sub defineCpu {
 
     # Get inputs
-    my ( $class, $user, $node, $addr, $type ) = @_;
-    
-    my $sudo = "sudo";
-    if ($user eq "root") {
-        $sudo = "";
-    }
+    my ( $class, $node, $addr, $type ) = @_;
 
     # Define processor(s)
-    my $out = `ssh -o ConnectTimeout=5 $user\@$node "$sudo /sbin/vmcp define cpu $addr type $type"`;
+    my $out = `ssh -o ConnectTimeout=5 $node "vmcp define cpu $addr type $type"`;
 
     return ($out);
 }

xCAT-IBMhpc/debian/changelog

@@ -1,5 +0,0 @@
-xcat-ibmhpc (2.8.0-1) stable; urgency=low
-
-  * Initial Release
-
- -- OCF xCAT <xcat@ocf.co.uk>  Tue, 03 Apr 2012 09:00:00 -0000

xCAT-IBMhpc/debian/compat

@@ -1 +0,0 @@
-5

xCAT-IBMhpc/debian/control

@@ -1,15 +0,0 @@
-Source: xcat-ibmhpc
-Section: admin
-Priority: extra
-Maintainer: Arif Ali <aali@ocf.co.uk>
-Build-Depends: debhelper (>= 5)
-Standards-Version: 3.7.2
-
-Package: xcat-ibmhpc
-Architecture: all
-Depends: ${perl:Depends}, perl-xcat (>= 2.8.0), xcat-client (>= 2.8.0)
-Description: Install and configuration utilities for IBM HPC products in an xCAT cluster
- xCAT-IBMhpc provides sample installation and configuration scripts for running 
- the IBM HPC software stack in an xCAT cluser.  Support for the following IBM 
- products is provided:  GPFS, LoadLeveler, Parallel Environment, ESSL and Parallel 
- ESSL libraries, some compilers (vac, xlC, xlf).

xCAT-IBMhpc/debian/copyright

@@ -1,88 +0,0 @@
-Eclipse Public License - v 1.0
-
-THE ACCOMPANYING PROGRAM IS PROVIDED UNDER THE TERMS OF THIS ECLIPSE PUBLIC LICENSE ("AGREEMENT"). ANY USE, REPRODUCTION OR DISTRIBUTION OF THE PROGRAM CONSTITUTES RECIPIENT'S ACCEPTANCE OF THIS AGREEMENT.
-
-1. DEFINITIONS
-
-"Contribution" means:
-
-a) in the case of the initial Contributor, the initial code and documentation distributed under this Agreement, and
-b) in the case of each subsequent Contributor:
-
-i) changes to the Program, and
-
-ii) additions to the Program;
-
-where such changes and/or additions to the Program originate from and are distributed by that particular Contributor. A Contribution 'originates' from a Contributor if it was added to the Program by such Contributor itself or anyone acting on such Contributor's behalf. Contributions do not include additions to the Program which: (i) are separate modules of software distributed in conjunction with the Program under their own license agreement, and (ii) are not derivative works of the Program.
-
-"Contributor" means any person or entity that distributes the Program.
-
-"Licensed Patents " mean patent claims licensable by a Contributor which are necessarily infringed by the use or sale of its Contribution alone or when combined with the Program.
-
-"Program" means the Contributions distributed in accordance with this Agreement.
-
-"Recipient" means anyone who receives the Program under this Agreement, including all Contributors.
-
-2. GRANT OF RIGHTS
-
-a) Subject to the terms of this Agreement, each Contributor hereby grants Recipient a non-exclusive, worldwide, royalty-free copyright license to reproduce, prepare derivative works of, publicly display, publicly perform, distribute and sublicense the Contribution of such Contributor, if any, and such derivative works, in source code and object code form.
-
-b) Subject to the terms of this Agreement, each Contributor hereby grants Recipient a non-exclusive, worldwide, royalty-free patent license under Licensed Patents to make, use, sell, offer to sell, import and otherwise transfer the Contribution of such Contributor, if any, in source code and object code form. This patent license shall apply to the combination of the Contribution and the Program if, at the time the Contribution is added by the Contributor, such addition of the Contribution causes such combination to be covered by the Licensed Patents. The patent license shall not apply to any other combinations which include the Contribution. No hardware per se is licensed hereunder.
-
-c) Recipient understands that although each Contributor grants the licenses to its Contributions set forth herein, no assurances are provided by any Contributor that the Program does not infringe the patent or other intellectual property rights of any other entity. Each Contributor disclaims any liability to Recipient for claims brought by any other entity based on infringement of intellectual property rights or otherwise. As a condition to exercising the rights and licenses granted hereunder, each Recipient hereby assumes sole responsibility to secure any other intellectual property rights needed, if any. For example, if a third party patent license is required to allow Recipient to distribute the Program, it is Recipient's responsibility to acquire that license before distributing the Program.
-
-d) Each Contributor represents that to its knowledge it has sufficient copyright rights in its Contribution, if any, to grant the copyright license set forth in this Agreement.
-
-3. REQUIREMENTS
-
-A Contributor may choose to distribute the Program in object code form under its own license agreement, provided that:
-
-a) it complies with the terms and conditions of this Agreement; and
-
-b) its license agreement:
-
-i) effectively disclaims on behalf of all Contributors all warranties and conditions, express and implied, including warranties or conditions of title and non-infringement, and implied warranties or conditions of merchantability and fitness for a particular purpose;
-
-ii) effectively excludes on behalf of all Contributors all liability for damages, including direct, indirect, special, incidental and consequential damages, such as lost profits;
-
-iii) states that any provisions which differ from this Agreement are offered by that Contributor alone and not by any other party; and
-
-iv) states that source code for the Program is available from such Contributor, and informs licensees how to obtain it in a reasonable manner on or through a medium customarily used for software exchange.
-
-When the Program is made available in source code form:
-
-a) it must be made available under this Agreement; and
-
-b) a copy of this Agreement must be included with each copy of the Program.
-
-Contributors may not remove or alter any copyright notices contained within the Program.
-
-Each Contributor must identify itself as the originator of its Contribution, if any, in a manner that reasonably allows subsequent Recipients to identify the originator of the Contribution.
-
-4. COMMERCIAL DISTRIBUTION
-
-Commercial distributors of software may accept certain responsibilities with respect to end users, business partners and the like. While this license is intended to facilitate the commercial use of the Program, the Contributor who includes the Program in a commercial product offering should do so in a manner which does not create potential liability for other Contributors. Therefore, if a Contributor includes the Program in a commercial product offering, such Contributor ("Commercial Contributor") hereby agrees to defend and indemnify every other Contributor ("Indemnified Contributor") against any losses, damages and costs (collectively "Losses") arising from claims, lawsuits and other legal actions brought by a third party against the Indemnified Contributor to the extent caused by the acts or omissions of such Commercial Contributor in connection with its distribution of the Program in a commercial product offering. The obligations in this section do not apply to any claims or Losses relating to any actual or alleged intellectual property infringement. In order to qualify, an Indemnified Contributor must: a) promptly notify the Commercial Contributor in writing of such claim, and b) allow the Commercial Contributor to control, and cooperate with the Commercial Contributor in, the defense and any related settlement negotiations. The Indemnified Contributor may participate in any such claim at its own expense.
-
-For example, a Contributor might include the Program in a commercial product offering, Product X. That Contributor is then a Commercial Contributor. If that Commercial Contributor then makes performance claims, or offers warranties related to Product X, those performance claims and warranties are such Commercial Contributor's responsibility alone. Under this section, the Commercial Contributor would have to defend claims against the other Contributors related to those performance claims and warranties, and if a court requires any other Contributor to pay any damages as a result, the Commercial Contributor must pay those damages.
-
-5. NO WARRANTY
-
-EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, THE PROGRAM IS PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT LIMITATION, ANY WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT, MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. Each Recipient is solely responsible for determining the appropriateness of using and distributing the Program and assumes all risks associated with its exercise of rights under this Agreement , including but not limited to the risks and costs of program errors, compliance with applicable laws, damage to or loss of data, programs or equipment, and unavailability or interruption of operations.
-
-6. DISCLAIMER OF LIABILITY
-
-EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, NEITHER RECIPIENT NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OR DISTRIBUTION OF THE PROGRAM OR THE EXERCISE OF ANY RIGHTS GRANTED HEREUNDER, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
-
-7. GENERAL
-
-If any provision of this Agreement is invalid or unenforceable under applicable law, it shall not affect the validity or enforceability of the remainder of the terms of this Agreement, and without further action by the parties hereto, such provision shall be reformed to the minimum extent necessary to make such provision valid and enforceable.
-
-If Recipient institutes patent litigation against any entity (including a cross-claim or counterclaim in a lawsuit) alleging that the Program itself (excluding combinations of the Program with other software or hardware) infringes such Recipient's patent(s), then such Recipient's rights granted under Section 2(b) shall terminate as of the date such litigation is filed.
-
-All Recipient's rights under this Agreement shall terminate if it fails to comply with any of the material terms or conditions of this Agreement and does not cure such failure in a reasonable period of time after becoming aware of such noncompliance. If all Recipient's rights under this Agreement terminate, Recipient agrees to cease use and distribution of the Program as soon as reasonably practicable. However, Recipient's obligations under this Agreement and any licenses granted by Recipient relating to the Program shall continue and survive.
-
-Everyone is permitted to copy and distribute copies of this Agreement, but in order to avoid inconsistency the Agreement is copyrighted and may only be modified in the following manner. The Agreement Steward reserves the right to publish new versions (including revisions) of this Agreement from time to time. No one other than the Agreement Steward has the right to modify this Agreement. The Eclipse Foundation is the initial Agreement Steward. The Eclipse Foundation may assign the responsibility to serve as the Agreement Steward to a suitable separate entity. Each new version of the Agreement will be given a distinguishing version number. The Program (including Contributions) may always be distributed subject to the version of the Agreement under which it was received. In addition, after a new version of the Agreement is published, Contributor may elect to distribute the Program (including its Contributions) under the new version. Except as expressly stated in Sections 2(a) and 2(b) above, Recipient receives no rights or licenses to the intellectual property of any Contributor under this Agreement, whether expressly, by implication, estoppel or otherwise. All rights in the Program not expressly granted under this Agreement are reserved.
-
-This Agreement is governed by the laws of the State of New York and the intellectual property laws of the United States of America. No party to this Agreement will bring a legal action under this Agreement more than one year after the cause of action arose. Each party waives its rights to a jury trial in any resulting litigation.
-
- 

xCAT-IBMhpc/debian/dirs

@@ -1,8 +0,0 @@
-opt/xcat/share/xcat/IBMhpc/compilers
-opt/xcat/share/xcat/IBMhpc/essl
-opt/xcat/share/xcat/IBMhpc/gpfs
-opt/xcat/share/xcat/IBMhpc/loadl
-opt/xcat/share/xcat/IBMhpc/pe
-opt/xcat/share/xcat/IBMhpc/rsct
-opt/xcat/share/xcat/IBMhpc/compilers
-opt/xcat/share/doc/packages/xCAT-IBMhpc

xCAT-IBMhpc/debian/docs

@@ -1 +0,0 @@
-LICENSE.html

xCAT-IBMhpc/debian/install

@@ -1,2 +0,0 @@
-share/xcat/IBMhpc/* opt/xcat/share/xcat/IBMhpc/
-LICENSE.html share/doc/packages/xCAT-IBMhpc/

xCAT-IBMhpc/debian/rules

@@ -1,70 +0,0 @@
-#!/usr/bin/make -f
-# -*- makefile -*-
-# Sample debian/rules that uses debhelper.
-# This file was originally written by Joey Hess and Craig Small.
-# As a special exception, when this file is copied by dh-make into a
-# dh-make output file, you may use that output file without restriction.
-# This special exception was added by Craig Small in version 0.37 of dh-make.
-
-# Uncomment this to turn on verbose mode.
-#export DH_VERBOSE=1
-
-export DH_COMPAT=5
-
-
-build:
-	pwd
-	dh_quilt_patch
-
-clean:
-	dh_testdir
-	dh_testroot
-	dh_clean -d
-
-install:
-	pwd
-	dh_testdir
-	dh_testroot
-	dh_installdirs
-	dh_install -X".svn"
-	dh_link
-
-
-# Build architecture-independent files here.
-binary-indep: build install
-# We have nothing to do by default.
-
-# Build architecture-dependent files here.
-binary-arch:
-	pwd
-	dh_testdir
-	dh_testroot
-	dh_installchangelogs 
-	dh_installdocs
-#	dh_installexamples
-	dh_install -X".svn"
-#	dh_installmenu
-#	dh_installdebconf	
-#	dh_installlogrotate
-#	dh_installemacsen
-#	dh_installpam
-#	dh_installmime
-#	dh_python
-#	dh_installinit
-#	dh_installcron
-#	dh_installinfo
-	dh_installman
-#	dh_link
-#	dh_strip
-	dh_compress
-#	dh_fixperms
-	dh_perl
-	dh_makeshlibs
-	dh_installdeb
-	dh_shlibdeps
-	dh_gencontrol
-	dh_md5sums
-	dh_builddeb
-
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary install configure

xCAT-IBMhpc/debian/source/format

@@ -1 +0,0 @@
-1.0

xCAT-IBMhpc/share/xcat/IBMhpc/IBMhpc_all.bnd

@@ -30,7 +30,7 @@ I:ppe.loc.license
 #I:ppedev.hpct
 
 # LAPI
-#I:rsct.lapi
+I:rsct.lapi
 #I:rsct.sci
 
 # AIX bundle file for ESSL and PESSL packages

xCAT-IBMhpc/share/xcat/IBMhpc/dev-compute.rhels6.ppc64.exlist

@@ -1,7 +0,0 @@
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/IBMhpc.rhels6.ppc64.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/gpfs/gpfs.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/compilers/compilers.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/essl/essl.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/rsct/rsct.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/loadl/loadl.exlist#

xCAT-IBMhpc/share/xcat/IBMhpc/dev-compute.rhels6.ppc64.otherpkgs.pkglist

@@ -1,5 +0,0 @@
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/gpfs/gpfs.otherpkgs.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/compilers/compilers.otherpkgs.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe-1200.rhels6.ppc64.otherpkgs.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/essl/essl.otherpkgs.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/loadl/loadl-5103.otherpkgs.pkglist#

xCAT-IBMhpc/share/xcat/IBMhpc/dev-compute.rhels6.ppc64.pkglist

@@ -1,4 +0,0 @@
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/IBMhpc.rhels6.ppc64.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe-1200.rhels6.ppc64.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/compilers/compilers.rhels6.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/essl/essl.pkglist#

xCAT-IBMhpc/share/xcat/IBMhpc/dev-compute.rhels6.ppc64.postinstall

@@ -1,62 +0,0 @@
-#!/bin/sh
-# Sample postinstall script for building a diskless SLES11 PPC64 image
-#  with all IBM HPC products
-#
-#-- this script is run after all packages from $profile.pkglist are installed
-#--
-#-- it gets these arguments:
-#--
-#-- $1 = install root (chroot directory for profile)
-#-- $2 = OS version
-#-- $3 = architecture
-#-- $4 = profile name
-#-- $5 = work dir (where genimage is located)
-#--
-#--
-installroot=$1
-osver=$2
-arch=$3
-profile=$4
-workdir=$5
-
-otherpkgs=/install/post/otherpkgs/$osver/$arch
-
-################
-# This script runs other postinstall scripts from the $hpc directory
-# If you have created a custom copy of ANY of these scripts,
-#   make sure to change the execution path from $hpc/<product> to the location
-#   you have placed your script in
-###############
-hpc=/opt/xcat/share/xcat/IBMhpc
-custom=/install/custom/netboot/rh
-installps=/install/postscripts
-
-# Run default postinstall shipped with xcat
-/opt/xcat/share/xcat/netboot/rh/compute.rhels6.ppc64.postinstall $1 $2 $3 $4 $5
-
-
-# Run general IBMhpc postinstall script
-$hpc/IBMhpc.rhel.postinstall $1 $2 $3 $4 $5
-
-
-# Run script to install gpfs updates
-installroot=$installroot NODESETSTATE=genimage   $hpc/gpfs/gpfs_updates
-# Run script to update GPFS mmsdrfs file in the image
-installroot=$installroot   $hpc/gpfs/gpfs_mmsdrfs
-
-
-# Run script to accept compiler license
-installroot=$installroot NODESETSTATE=genimage   $hpc/compilers/compilers_license
-
-
-# Run script to install PE and accept license
-installroot=$installroot pedir=$otherpkgs/pe NODESETSTATE=genimage   $hpc/pe/pe_install-1200
-
-# Run script to accept LoadLeveler license, install product rpms, 
-# and do some config
-installroot=$installroot loadldir=$otherpkgs/loadl NODESETSTATE=genimage   $hpc/loadl/loadl_install-5103
-
-# Run script to install RSCT rpms
-installroot=$installroot rsctdir=$otherpkgs/rsct NODESETSTATE=genimage   $hpc/rsct/rsct_install
-
-

xCAT-IBMhpc/share/xcat/IBMhpc/dev-compute.rhels6.x86_64.exlist

@@ -1,7 +0,0 @@
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/IBMhpc.rhels6.x86_64.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/gpfs/gpfs.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/compilers/compilers.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/essl/essl.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/rsct/rsct.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/loadl/loadl.exlist#

xCAT-IBMhpc/share/xcat/IBMhpc/dev-compute.rhels6.x86_64.otherpkgs.pkglist

@@ -1,3 +0,0 @@
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/gpfs/gpfs.x86_64.otherpkgs.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe-1200.rhels6.x86_64.otherpkgs.pkglist#   
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/loadl/loadl-5103.otherpkgs.pkglist#

xCAT-IBMhpc/share/xcat/IBMhpc/dev-compute.rhels6.x86_64.pkglist

@@ -1,4 +0,0 @@
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/IBMhpc.rhels6.x86_64.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe-1200.rhels6.x86_64.pkglist#    
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/compilers/compilers.rhels6.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/essl/essl.pkglist#

xCAT-IBMhpc/share/xcat/IBMhpc/dev-compute.rhels6.x86_64.postinstall

@@ -1,60 +0,0 @@
-#!/bin/sh
-# Sample postinstall script for building a diskless SLES11 PPC64 image
-#  with all IBM HPC products
-#
-#-- this script is run after all packages from $profile.pkglist are installed
-#--
-#-- it gets these arguments:
-#--
-#-- $1 = install root (chroot directory for profile)
-#-- $2 = OS version
-#-- $3 = architecture
-#-- $4 = profile name
-#-- $5 = work dir (where genimage is located)
-#--
-#--
-installroot=$1
-osver=$2
-arch=$3
-profile=$4
-workdir=$5
-
-otherpkgs=/install/post/otherpkgs/$osver/$arch
-
-################
-# This script runs other postinstall scripts from the $hpc directory
-# If you have created a custom copy of ANY of these scripts,
-#   make sure to change the execution path from $hpc/<product> to the location
-#   you have placed your script in
-###############
-hpc=/opt/xcat/share/xcat/IBMhpc
-custom=/install/custom/netboot/rh
-installps=/install/postscripts
-
-# Run default postinstall shipped with xcat
-/opt/xcat/share/xcat/netboot/rh/compute.rhels6.x86_64.postinstall $1 $2 $3 $4 $5
-
-
-# Run general IBMhpc postinstall script
-$hpc/IBMhpc.rhel.postinstall $1 $2 $3 $4 $5
-
-
-# Run script to install gpfs updates
-installroot=$installroot NODESETSTATE=genimage   $hpc/gpfs/gpfs_updates
-# Run script to update GPFS mmsdrfs file in the image
-installroot=$installroot   $hpc/gpfs/gpfs_mmsdrfs
-
-
-# Run script to accept compiler license.  x86_64 is using gcc, comment this line.
-#installroot=$installroot NODESETSTATE=genimage   $hpc/compilers/compilers_license
-
-
-# Run script to install PE and accept license
-installroot=$installroot pedir=$otherpkgs/pe NODESETSTATE=genimage   $hpc/pe/pe_install-1200
-
-# Run script to accept LoadLeveler license, install product rpms, 
-# and do some config
-installroot=$installroot loadldir=$otherpkgs/loadl NODESETSTATE=genimage   $hpc/loadl/loadl_install-5103
-
-# Run script to install RSCT rpms.  Not available on x86_64
-#installroot=$installroot rsctdir=$otherpkgs/rsct NODESETSTATE=genimage   $hpc/rsct/rsct_install

xCAT-IBMhpc/share/xcat/IBMhpc/dev-compute.sles11.ppc64.exlist

@@ -1,10 +0,0 @@
-# Sample exlude list for building a diskless SLES 11 PPC64 image
-
-#INCLUDE:/opt/xcat/share/xcat/netboot/sles/compute.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/IBMhpc.sles11.ppc64.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/compilers/compilers.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/essl/essl.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/gpfs/gpfs.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/loadl/loadl.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/rsct/rsct.exlist#

xCAT-IBMhpc/share/xcat/IBMhpc/dev-compute.sles11.ppc64.otherpkgs.pkglist

@@ -1,13 +0,0 @@
-# Sample otherpkgs pkglist for installing all IBM HPC products in a 
-# SLES11 PPC64 diskless image
-
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/compilers/compilers.otherpkgs.pkglist#
-#NEW_INSTALL_LIST#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/gpfs/gpfs.otherpkgs.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe.otherpkgs.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/essl/essl.otherpkgs.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/loadl/loadl-5103.otherpkgs.pkglist#
-
-#  For full-disk (stateful) images, EDIT below to use rsct.otherpkgs
-#  For diskless, rpms are installed with postinstall script
-#do not INCLUDE:/opt/xcat/share/xcat/IBMhpc/rsct/rsct.otherpkgs.pkglist#

xCAT-IBMhpc/share/xcat/IBMhpc/dev-compute.sles11.ppc64.pkglist

@@ -1,10 +0,0 @@
-#  Sample package list for installing all IBM HPC products in a
-#  SLES11 ppc64 diskless image
-
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/IBMhpc.sles11.ppc64.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/compilers/compilers.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/essl/essl.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe-1200.sles11.ppc64.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/rsct/rsct.pkglist#
-
-

xCAT-IBMhpc/share/xcat/IBMhpc/dev-compute.sles11.ppc64.postinstall

@@ -1,68 +0,0 @@
-#!/bin/sh
-# Sample postinstall script for building a diskless SLES11 PPC64 image
-#  with all IBM HPC products
-#
-#-- this script is run after all packages from $profile.pkglist are installed
-#--
-#-- it gets these arguments:
-#--
-#-- $1 = install root (chroot directory for profile)
-#-- $2 = OS version
-#-- $3 = architecture
-#-- $4 = profile name
-#-- $5 = work dir (where genimage is located)
-#--
-#--
-installroot=$1
-osver=$2
-arch=$3
-profile=$4
-workdir=$5
-
-otherpkgs=/install/post/otherpkgs/$osver/$arch
-
-################
-# This script runs other postinstall scripts from the $hpc directory
-# If you have created a custom copy of ANY of these scripts,
-#   make sure to change the execution path from $hpc/<product> to the location
-#   you have placed your script in
-###############
-hpc=/opt/xcat/share/xcat/IBMhpc
-custom=/install/custom/netboot/sles
-installps=/install/postscripts
-
-
-# Run default postinstall shipped with xcat
-/opt/xcat/share/xcat/netboot/sles/compute.sles11.postinstall $1 $2 $3 $4 $5
-
-
-# Run general IBMhpc postinstall script
-$hpc/IBMhpc.sles.postinstall $1 $2 $3 $4 $5
-
-
-# Run script to install gpfs updates
-installroot=$installroot NODESETSTATE=genimage   $hpc/gpfs/gpfs_updates
-# Run script to update GPFS mmsdrfs file in the image
-installroot=$installroot   $hpc/gpfs/gpfs_mmsdrfs
-
-
-# Run script to accept compiler license
-installroot=$installroot NODESETSTATE=genimage   $hpc/compilers/compilers_license
-
-
-# Run script to install PE and accept license
-installroot=$installroot pedir=$otherpkgs/pe NODESETSTATE=genimage   $hpc/pe/pe_install
-
-
-# Run script to install ESSL and PESSL rpms
-#installroot=$installroot essldir=$otherpkgs/essl NODESETSTATE=genimage   $hpc/essl/essl_install
-
-
-# Run script to accept LoadLeveler license, install product rpms, 
-# and do some config
-installroot=$installroot loadldir=$otherpkgs/loadl NODESETSTATE=genimage   $hpc/loadl/loadl_install-5103
-
-# Run script to install RSCT rpms
-installroot=$installroot rsctdir=$otherpkgs/rsct NODESETSTATE=genimage   $hpc/rsct/rsct_install
-
-

xCAT-IBMhpc/share/xcat/IBMhpc/dev-compute.sles11.x86_64.exlist

@@ -1,3 +0,0 @@
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/IBMhpc.sles11.x86_64.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/gpfs/gpfs.exlist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe.exlist#

xCAT-IBMhpc/share/xcat/IBMhpc/dev-compute.sles11.x86_64.otherpkgs.pkglist

@@ -1,3 +0,0 @@
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/gpfs/gpfs.x86_64.otherpkgs.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe-1200.sles11.x86_64.otherpkgs.pkglist#   
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/loadl/loadl-5103.otherpkgs.pkglist#

xCAT-IBMhpc/share/xcat/IBMhpc/dev-compute.sles11.x86_64.pkglist

@@ -1,2 +0,0 @@
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/IBMhpc.sles11.x86_64.pkglist#
-#INCLUDE:/opt/xcat/share/xcat/IBMhpc/pe/pe-1200.sles11.x86_64.pkglist#    

xCAT-IBMhpc/share/xcat/IBMhpc/dev-compute.sles11.x86_64.postinstall

@@ -1,65 +0,0 @@
-#!/bin/sh
-# Sample postinstall script for building a diskless SLES11 PPC64 image
-#  with all IBM HPC products
-#
-#-- this script is run after all packages from $profile.pkglist are installed
-#--
-#-- it gets these arguments:
-#--
-#-- $1 = install root (chroot directory for profile)
-#-- $2 = OS version
-#-- $3 = architecture
-#-- $4 = profile name
-#-- $5 = work dir (where genimage is located)
-#--
-#--
-installroot=$1
-osver=$2
-arch=$3
-profile=$4
-workdir=$5
-
-otherpkgs=/install/post/otherpkgs/$osver/$arch
-
-################
-# This script runs other postinstall scripts from the $hpc directory
-# If you have created a custom copy of ANY of these scripts,
-#   make sure to change the execution path from $hpc/<product> to the location
-#   you have placed your script in
-###############
-hpc=/opt/xcat/share/xcat/IBMhpc
-custom=/install/custom/netboot/sles
-installps=/install/postscripts
-
-# Run default postinstall shipped with xcat
-/opt/xcat/share/xcat/netboot/sles/compute.sles11.postinstall $1 $2 $3 $4 $5
-
-
-# Run general IBMhpc postinstall script
-$hpc/IBMhpc.sles.postinstall $1 $2 $3 $4 $5
-
-
-# Run script to install gpfs updates
-installroot=$installroot NODESETSTATE=genimage   $hpc/gpfs/gpfs_updates
-# Run script to update GPFS mmsdrfs file in the image
-installroot=$installroot   $hpc/gpfs/gpfs_mmsdrfs
-
-
-# Run script to accept compiler license.  x86_64 is using gcc, comment this line.
-#installroot=$installroot NODESETSTATE=genimage   $hpc/compilers/compilers_license
-
-
-# Run script to install PE and accept license
-installroot=$installroot pedir=$otherpkgs/pe NODESETSTATE=genimage   $hpc/pe/pe_install-1200
-
-
-# Run script to install ESSL and PESSL rpms.  Not available on x86_64.
-#installroot=$installroot essldir=$otherpkgs/essl NODESETSTATE=genimage   $hpc/essl/essl_install
-
-
-# Run script to accept LoadLeveler license, install product rpms, 
-# and do some config
-installroot=$installroot loadldir=$otherpkgs/loadl NODESETSTATE=genimage   $hpc/loadl/loadl_install-5103
-
-# Run script to install RSCT rpms.  Not available on x86_64
-#installroot=$installroot rsctdir=$otherpkgs/rsct NODESETSTATE=genimage   $hpc/rsct/rsct_install

xCAT-IBMhpc/share/xcat/IBMhpc/gpfs/gpfs_mmsdrfs

@@ -1,18 +1,132 @@
-#!/bin/sh
-# xCAT postscript to configure GPFS on a compute node.
-# Before booting nodes with this postscript, gpfs must be up and configured correctly on the node
-# pointed to by the -p flag below.  The $MASTER environment variable will be set by xCAT to
-# the service node or management node of this booting node.  If you want the nodes to get their
-# GPFS configuration from a different node, replace $MASTER with that IP address.
+#!/bin/bash
 
-cmd="/usr/lpp/mmfs/bin/mmsdrrestore -p $MASTER -R /usr/bin/scp"
-$cmd > /dev/null 2>&1
+# Run this script to sync the GPFS mmsdrfs file into the node images
+# Set the SOURCE, TARGETDIR, IMAGE, and SERVICE variables appropriately
 
-if [[ $? != 0 ]]
-then
-        echo "mmsdrrestore failed!"
-        exit 2
-else
-        echo "mmsdrrestore succeeded"
+# Usage:  gpfs_mmsdrfs [packimage|liteimg] [syncinstall]
+#   For Linux, if packimage or liteimg specified, 
+#     will run that command for the image if rsync updated any 
+#     destination files
+#   If syncinstall specified, and if site.install_loc is blank, 
+#     sync the /install directory to the SERVICE noderange 
+#     if rysnc updated any destination files
+#
+# To keep your diskless images current with any GPFS changes, run this
+# script periodically from cron using the packimage/liteimg and 
+# syncinstall options as required by your cluster 
+#
+
+# The source server:location of the mmsdrfs file.  Default is this xCAT MN.
+#SOURCE=gpfsmgr:/var/mmfs/gen/mmsdrfs
+SOURCE=/var/mmfs/gen/mmsdrfs
+
+# The target directory on the xCAT MN that holds the master copy
+TARGETDIR=/install/mmfs/gen
+
+# The noderange for service nodes
+SERVICE=service
+
+# The images to be updated (list as many as needed)
+# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+# EDIT HERE TO SPECIFY IMAGES TO BE UPDATED!!!
+#   default is to update all images        !!!
+# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+IMAGE[1]=ALL_IMAGES
+#IMAGE[1]=sles11-ppc64-netboot-service
+#IMAGE[2]=sles11-ppc64-netboot-compute
+
+
+
+
+# If $installroot is set, then this script was called from genimage
+# Ignore all IMAGE variables and only rsync to $installroot
+if [[ ! -z "$installroot" ]]; then
+  OS=`uname`
+  if [[ "$OS" != "AIX" ]]; then
+    rsync -i -t $SOURCE $installroot/var/mmfs/gen/mmsdrfs
+    exit
+  fi
 fi
 
+
+# rsync the GPFS config file to the MN
+# DEVELOPER NOTE:  Keep all code above this rsync call as short
+#    and efficient as possible.  
+#    This script may be frequently called from cron.
+if [ ! -d $TARGETDIR ]; then
+  mkdir -p $TARGETDIR
+fi 
+result=`rsync -i -t $SOURCE $TARGETDIR/mmsdrfs`
+r1=`echo $result | cut -c1`
+if [ "$r1" == ">" ]; then
+  OS=`uname`
+  packcmd=""
+  syncinstall=""
+  if [ "$1" == "packimage" ] || [ "$1" == "liteimg" ]; then
+    packcmd=$1
+  fi
+  if [ "$1" == "syncinstall" ] || [ "$2" == "syncinstall" ]; then
+    if [ -z "`/opt/xcat/bin/nodels $SERVICE`" ]; then
+       SERVICE=""
+    fi
+    installloc=`/opt/xcat/bin/gettab key=installloc site.value`
+    if [ -z "$installloc" ]; then
+      syncinstall="yes"
+    fi
+  fi
+
+  if [[ -z "${IMAGE[1]}" || "${IMAGE[1]}" == "ALL_IMAGES" ]]; then
+    if [ $OS = "AIX" ]; then
+       imgtable="nimimage"
+    else
+       imgtable="linuximage"
+    fi
+    IMAGE=(`tabdump $imgtable | cut -d, -f1 | grep -v '#' | tr -d '"'`)
+  fi
+  if [ $OS = "AIX" ]; then
+      # do AIX stuff
+    updates=""
+    for syncimage in ${IMAGE[@]}; do
+        spot=`/opt/xcat/bin/gettab imagename=$syncimage nimimage.spot`
+        if [ -n "$spot" ]; then
+            dest=`lsnim -Z -a location $spot | grep -v '#' | cut -f2 -d':' `
+            if [ -n "$dest" ]; then 
+                mkdir -p $dest/lpp/bos/inst_root/var/mmfs/gen
+                cp $TARGETDIR/mmsdrfs $dest/lpp/bos/inst_root/var/mmfs/gen/mmsdrfs
+                if [[ -n "$syncinstall" && -n "$SERVICE" ]]; then
+                  /opt/xcat/bin/xdcp $SERVICE $TARGETDIR/mmsdrfs $dest/lpp/bos/inst_root/var/mmfs/gen
+                fi
+            fi
+        fi
+        shared_root=`/opt/xcat/bin/gettab imagename=$syncimage nimimage.shared_root`
+        if [ -n "$shared_root" ]; then
+            dest=`lsnim -Z -a location $shared_root | grep -v '#' | cut -f2 -d':' `
+            if [ -n "$dest" ]; then 
+                mkdir -p $dest/var/mmfs/gen
+                cp $TARGETDIR/mmsdrfs $dest/var/mmfs/gen/mmsdrfs
+                if [[ -n "$syncinstall" && -n "$SERVICE" ]]; then
+                  /opt/xcat/bin/xdcp $SERVICE $TARGETDIR/mmsdrfs $dest/var/mmfs/gen
+                fi
+            fi
+        fi
+    done
+
+  else # do Linux stuff
+    updates=""
+    for syncimage in ${IMAGE[@]}; do
+        dest=`/opt/xcat/bin/gettab imagename=$syncimage linuximage.rootimgdir`
+        if [ -n "$dest" ]; then 
+            dest=$dest/rootimg/var/mmfs/gen/mmsdrfs
+            cp $TARGETDIR/mmsdrfs $dest
+            if [ -n "$packcmd" ]; then
+               updates="yes"
+               /opt/xcat/sbin/$packcmd $syncimage
+            fi
+        fi
+    done
+
+    if [ -n "$updates" ] && [ -n "$syncinstall" ] && [ -n "$SERVICE" ]; then
+       xdcp $SERVICE -r /usr/bin/rsync -o '-e ssh -craz' /install/netboot /install/netboot 
+    fi
+  fi
+fi

xCAT-IBMhpc/share/xcat/IBMhpc/gpfs/gpfs_updates

@@ -105,10 +105,10 @@ else  # assume Linux
         echo 'export PATH=$PATH:/usr/lpp/mmfs/bin' > $gpfsprofile.sh
         echo 'setenv PATH $PATH:/usr/lpp/mmfs/bin' > $gpfsprofile.csh
         # Turn off LANG support since we did not install other msg catalogs
-        echo 'export LC_CTYPE=POSIX' >> $gpfsprofile.sh
-        echo 'setenv LC_CTYPE POSIX' >> $gpfsprofile.csh
-        echo 'export LC_ALL=POSIX' >> $gpfsprofile.sh
-        echo 'setenv LC_ALL POSIX' >> $gpfsprofile.csh
+        echo 'export LC_CTYPE=POSIX' > $gpfsprofile.sh
+        echo 'setenv LC_CTYPE POSIX' > $gpfsprofile.csh
+        echo 'export LC_ALL=POSIX' > $gpfsprofile.sh
+        echo 'setenv LC_ALL POSIX' > $gpfsprofile.csh
         chmod 744 $gpfsprofile.sh
         chmod 744 $gpfsprofile.csh
     fi

xCAT-IBMhpc/share/xcat/IBMhpc/pe/pe-1200.bnd

@@ -1,9 +0,0 @@
-# AIX bundle package list for PE
-
-# POE
-#I:ppe.man
-I:ppe.rte
-I:ppe.loc.license
-
-# PE HPC toolkit, needed on login node
-#I:ppedev.hpct

xCAT-IBMhpc/share/xcat/IBMhpc/pe/pe-1200.x86_64.pkglist

@@ -1,9 +0,0 @@
-# The following are for systems running InfiniBand networks
-##############
-#  Temporary for xCAT 2.6:
-#    You should comment out these packages when running with HFI,
-#    but you will also then need to use the xCAT 2.6 pe_install script
-#    that does a force install of pe.  The current pe packages prereq 
-#    these libibverbs packages.
-libibverbs.i686
-libibverbs.x86_64

xCAT-IBMhpc/share/xcat/IBMhpc/pe/pe_install-1200

@@ -111,10 +111,6 @@ if [ "$OS" != "AIX" ]; then
     chmod 400  $installroot/root/.ckpt.key
 fi
 
-# Ensure that the /etc/security/privcmds file has a complte set of entries.
-if [ "$OS" == "AIX" ]; then
-    /usr/sbin/trustchk -ry ALL >/dev/null 2>&1
-fi
 
 # BSR configuration, uncomment the following lines to enable BSR configuration on Power Linux cluter.  
 #if [ "$OS" != "AIX" ]; then