#!/bin/ksh
# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
#  
#  
# Licensed Materials - Property of IBM 
#  
# (C) COPYRIGHT International Business Machines Corp. 1998,2019 
# All Rights Reserved 
#  
# US Government Users Restricted Rights - Use, duplication or 
# disclosure restricted by GSA ADP Schedule Contract with IBM Corp. 
#  
# IBM_PROLOG_END_TAG 
# sccsid = "@(#)57   1.6   src/rsct/pgs/cmds/aix/hagsdown_note.sh, gsctrl, rsct_rady, rady2035a 11/12/15 16:44:38"
#
# After the change of SimulateDeath behavior, this script will not
# stop the hats.
# 
H=`hostname -s`
LOGUSER=root
MSG="$H: hags is down. Investigate the problem if hags is still down."
# Send message to all terminals login by LOGUSER.
echo "$MSG" | /usr/bin/write $LOGUSER 2>/dev/null
# send mail to LOGUSER@cws
CW=`/usr/lpp/ssp/bin/SDRGetObjects -x SP control_workstation`
echo "$MSG" | /usr/bin/mail $LOGUSER@$CW 2>/dev/null

SS_PATH=/opt/rsct/bin
$SS_PATH/hadspmsg hagsctrl ha_gs.cat EMsg_Hags_Down hagsdown_note hags

# Do not stop hats.
##/opt/rsct/bin/hagsctrl -k 2>/dev/null
##/opt/rsct/bin/hatsctrl -k 2>/dev/null
exit 0