#! /bin/ksh
#
#	Copyright 05 Nov 1997 Sun Microsystems, Inc.  All Rights Reserved.
#
# @(#)informix_status_svcs.shi	1.7 97/11/05 SMI
#

# informix_status_svcs - report list of data services provided for logical
#		       hosts in HA_METASETSERVE (or HA_NO_METASETSERVE if
#		       used with -no option, or HA_SIBLING_METASETSERVE if
#		       used with the -sibling option
#
# Environment:
# HA_ENV - name of HA environment file
# HA_METASETSERVE - list of hosts (default)
# HA_NO_METASETSERVE - list of hosts (with -no)
# HA_SIBLING_METASETSERVE - list of hosts (with -sibling)
#

#	Copyright 10 Sep 1997 Sun Microsystems, Inc.  All Rights Reserved.
#
# @(#)informix_boiler	1.18 97/09/10 SMI

# begin of common ha-dbms boilerplate

# remember our name
argv0=`basename $0`

# Get the BASEDIR and PRODUCTDIR settings from the installed pkgs
_basedir=`pkgparam SUNWscinf BASEDIR 2>/dev/null`
_productdir=`pkgparam SUNWscinf PRODUCTDIR 2>/dev/null`
_basedir=${_basedir:=""}
_productdir=${_productdir:="SUNWcluster"}

LOGGER=/usr/bin/logger

PATH=${_basedir}/${_productdir}/bin:${_basedir}/${_productdir}/ha/informix:${PATH}
export PATH
HA_FILES=/etc/${_basedir}/SUNWscinf; export HA_FILES
HA_VAR=/var/${_basedir}/SUNWscinf; export HA_VAR
ds="informix"

PREFIX="SUNWcluster.ha.${ds}"
HA_FM_NAME="fault_mon"

# include HA utilities library
. dbms_utilities
if [ $? -ne 0 ]; then
	$LOGGER -p local7.err -t "$HA_SLOGTAG" "$argv0: Cannot find HA utilities library"
	exit 1
fi

HA_CLUSTER=$CLUSTNAME; export HA_CLUSTER

# some default files and locations
# don't move this up - it depends on HA_FILES, which gets set above
HA_DATABASES=hainformix_databases
HA_DB_SUPPORT=${HA_FILES}/hainformix_support

# verify that we have the hainformix_support file
if [ ! -r $HA_DB_SUPPORT ] ; then
  logerr "4000" "file ${HA_DB_SUPPORT} does not exist or is not readable!"
  exit 2
fi


# talk_start ... - echo the args, run them, and evaluate return value
talk_start() {
  	logprint "$$: $*"
  	if $* ; then
    		return 0
  	else
    		logprint "$$: $* ... failed"
    		return 1
  	fi
}


# talk_start_bg ... - print the args, then run them in the background
talk_start_bg() {
  	logprint "$$: $*"
  	$* &
  	}


# get_pid [ -u userid ] pattern - find the process id of a running program
# if called with "-u userid", only process for that user will be considered
get_pid() {
	if [ "$1" = "-u" ] ; then
		ps_args="-f -u $2"
		shift
		shift
	else
		ps_args="-ef"
	fi
	PID=`/usr/bin/ps $ps_args | grep "\<$*\>" | nawk -v pat="$*" '
 BEGIN { 
   search_pat = substr(pat, 0, 79)
   }
 { if ( match($0, search_pat) )
     if ( ! match($0, "nawk -v pat=") )
       print $2
  }
'`
}


# kill_proc pattern - find and terminate a process
kill_proc() {
  	logprint "Killing $*..." 
  	get_pid $*
  	if [ "$PID" ] ; then
    		for p in ${PID} ; do
      			logprint "Killing process id $p"
      			kill $p
    		done
    		echo
  	else
    		logprint "process \"$*\" could not be located..." 
  	fi
}

# read_ha_databases onconfig - find an entry in the HA_DATABASES file,
# 	parse it apart, and return in variables. Assumes that INFORMIXDIR
#	is set!
read_ha_databases() {
#	conf_line=`grep "^o[nf][f]*	$1	" $HA_DATABASES`
	conf_line=$(get_instance "${ds}" "$1")
        set_inst_name $1

	if [ "$conf_line" = "" ] ; then
		logerr "4010" "$1 missing from HA INFORMIX CCD!"
		return 1
	fi
        on_off_mode=`echo "$conf_line" | cut -s -f 1`
	onconfig=`echo "$conf_line" | cut -s -f 2`
	logical_host=`echo "$conf_line" | cut -s -f 3`
	poll_cycle=`echo "$conf_line" | cut -s -f 4`
	connect_cycle=`echo "$conf_line" | cut -s -f 5`
	timeout=`echo "$conf_line" | cut -s -f 6`
	restart_delay=`echo "$conf_line" | cut -s -f 7`
	dbname=`echo "$conf_line" | cut -s -f 8`
	DB_LOGIN=$dbname
	export DB_LOGIN
	informixserver=`echo "$conf_line" | cut -s -f 9`
        set_logical_host $logical_host

	return 0
}

# find_informix onconfig - finds and sets various Informix related variables:
#	INFORMIXDIR ONINIT INFORMIXSERVER ONCONFIG
# in case of a problem, it returns with an empty INFORMIXDIR variable
find_informix() {
  	INFTAB=/var/opt/informix/inftab
	
	INFORMIXDIR=""
	ONINIT=""
	ONCONFIG=""
	INFORMIXSERVER=""

        if inftab_line=`grep "^[	 ]*$1:" $INFTAB` ; then
                informixdir=`echo $inftab_line | awk -F: '{print $2}' -`
                if [ -d $informixdir ] && [ -n "`disk_mounted $1`" ] ; then
                        if [ -x ${informixdir}/bin/oninit ] ; then
                                read_ha_databases $1
                                INFORMIXDIR="$informixdir"
                                ONINIT="${INFORMIXDIR}/bin/oninit"
                        else
                                logerr "4020" "No oninit executable in ${INFORMIXDIR}/bin!"
				return 1
                        fi
                fi
        else
                logerr "4030" "Database '$1' not found in ${INFTAB}"
		return 1
        fi
 
        if [ -r ${informixdir}/etc/${onconfig} ] ; then
                ONCONFIG="$onconfig"
                ONCONFIGFILE=${informixdir}/etc/${onconfig}
        else
                logerr "4040" "Database '$1' onconfig file not found or is not readable!"
                INFORMIXDIR=""
		return 1
        fi
 
        if [ -r ${informixdir}/etc/sqlhosts ] ; then
                INFORMIXSQLHOSTS=${informixdir}/etc/sqlhosts
        else
                logerr "4050" "sqlhosts file not found or is not readable!"
                INFORMIXDIR=""
		return 1
        fi

#       INFORMIXSERVER=`grep DBSERVERNAME ${INFORMIXDIR}/etc/${ONCONFIG} | nawk
#'{print $2}'`                 

        INFORMIXSERVER="$informixserver"
	sqlhosts_informixserver=`grep "^${informixserver} " ${INFORMIXSQLHOSTS} | head -1 | awk '{print $1}'`

#Maybe a TAB is placed after the informixserver entry in the sqlhosts

	if [ ! "${sqlhosts_informixserver}" ] ; then
		sqlhosts_informixserver=`grep "^${informixserver}	" ${INFORMIXSQLHOSTS} | head -1 | awk '{print $1}'`
	fi 

 
        if [ "${INFORMIXSERVER}" != "${sqlhosts_informixserver}" ] ; then                        
                logerr "4060" "Informixserver $INFORMIXSERVER not found in ${INFORMIXSQLHOSTS}"
                INFORMIXDIR="" 
        fi

        export INFORMIXDIR ONINIT ONCONFIG INFORMIXSERVER

}


make_rpc_call() {
  	logprint "Calling $3 for onconfig $2 on host $1..."
  	ha_dbms_call $1 $2 $3 informix
  	}

#end of common ha-dbms boiler plate
#include_boiler

the_hosts=`hareg -q informix -H | tr '\012' ' '`
mode="all"

while [ $# -gt 0 ] ; do
	case $1 in
		-mode)	shift
			mode=$1
			if [ "$mode" != "" ] ; then
				shift
			fi
		     	;;
		-hosts) shift
			the_hosts=$1
			if [ "$the_hosts" != "" ] ; then
				shift
			fi
		     	;;
		*) echo "usage: $argv0 [ -mode mode | -hosts hosts ]"
			exit 2 ;;
 	esac
done


services_found=""
if [ "$the_hosts" != "" ] ; then
	hosts=`echo $the_hosts | tr ',' ' '`
	# Now read the ha_databases file and check for matching hosts
	informix_entries=$(get_all informix)
	DEF_IFS=$IFS
	IFS=":"
	echo "$informix_entries" | \
        while read entry_type ONCONFIG meta_host poll connect timeout restart_delay dbname informixserver
	do
  		OLD_IFS=$IFS
  		IFS=$DEF_IFS
		if [ "$mode" = "all" -o "$entry_type" = "$mode" ] ; then
#			matches=`expr " $the_hosts " : ".* $meta_host "`
#  			if [ "$matches" -ne 0 ] ; then
			is_member $meta_host "$hosts"
			if [ $? -eq 0 ] ; then
				if [ "$dbname" = "" ] ; then
					logerr "${prog}.4110" \
	"Entry for instance $ONCONFIG does not have enough fields - skipped!"
				else
  					echo $ONCONFIG" \c"
				fi
			fi
		fi
  		IFS=$OLD_IFS
	done 
fi
echo 
