#!/bin/ksh
#
# Script used to kill processes running for more than 2 hours.
#
# Usage: kill_runaway_forms.sh
#
######################################################################
#
# History: Created 2007-05-09 by Shad
#          Update  2007-12-14 by Shad - Added SQL to get form info.
#
######################################################################

PROCESS="f60webmx webfile"    # Process name to check
HOSTNAME=`hostname`
NOTIFY="you@email.com"

if [ -z $TWO_TASK ]
then
  echo "Exiting. TWO_TASK is not set."
  exit
fi

ps -ef  -o pid,time,args | \
  grep -v grep | \
  grep "$PROCESS" | \
  awk '/[0-9]-[0-9][0-9]:[0-9][0-9]:[0-9][0-9]/ || substr($2,1,2) > 2' | \
while read LINE
do

  PROCESS_ID=`echo $LINE | awk '{print $1}'`
  PROCESS_TIME=`echo $LINE | awk '{print $2}'`
  PROCESS_NAME=`echo $LINE | awk '{print $3}'`
  echo "PROCESS_ID: $PROCESS_ID"
  echo "PROCESS_TIME: $PROCESS_TIME"
  echo "PROCESS_NAME: $PROCESS_NAME"

  mailx -s "Killed $PROCESS_NAME $PROCESS_ID on $HOSTNAME" $NOTIFY <<EOF
`echo " "`
`echo "============================"`
`echo "=      Process Killed      ="`
`echo "============================"`
`echo "    Hostname: $HOSTNAME"`
`echo "    Username: $LOGNAME"`
`echo "  Process ID: $PROCESS_ID"`
`echo "Process Name: $PROCESS_NAME"`
`echo "Process Time: $PROCESS_TIME"`
`echo " "`
`echo " "`
`sqlplus -s query/query@$TWO_TASK << EOSQL
set line 200
set feedback off
column module format a20
column action format a40
column user_name format a10
column responsibility_name format a32
column user_form_name format a40
select s.module
, s.action
, f.user_name
, f.responsibility_name
, f.user_form_name
from v\\$session s
, fnd_form_sessions_v f
where s.machine = '$HOSTNAME'
and s.osuser = '$LOGNAME'
and s.process = '$PROCESS_ID'
and s.sid = f.sid(+)
and s.serial# = f.serial#(+);
exit
EOSQL`
EOF
  kill -9 $PROCESS_ID
done

exit 0