#!/bin/sh
# $Id: pksession.sh,v 1.2 2004/03/16 22:19:32 lreiter Exp $
# Prompts the user to abort an existing session and does as requested.
# Optional config name can be passed in to $1, otherwise 'win' is assumed
# Return value is 0 if session killed, or 1 if user cancel or no session running
# Copyright 1984-2004 NeTraverse, Inc.

# Get Merge settings
. /etc/mrgssv.sh

# Set up NLS domain
. $STATICMERGE/set_nls.sh
DM="LCC.MERGE.UNIX.WIN"

# Make sure session is running first
SESSIONS="$STATICMERGE"/publicbin/sessions
CONFIG="$1"
if [ "$CONFIG" = "" ]; then
	CONFIG="win"
fi
SESSION_ID=`$SESSIONS -l |grep "win         $CONFIG$" |cut -d ' ' -f 1`
if [ "$SESSION_ID" = "" ]; then
	exit 1
fi

# Prompt the user
usrMsg STRING SESSION_ALREADY_PROMPT "Abort this session and start a new one?"
GTK_RC_FILES="$STATICMERGE"/gtkrc-installers \
"$STATICMERGE"/g_msg -q "$USRMSG_STRING"
RETVAL=$?
if [ $RETVAL = 0 ]; then

	# please wait popup
	usrMsg STRING PKSESSION_WAIT "Aborting session, please wait..."
	"$STATICMERGE"/x_msg -N -b "$USRMSG_STRING" &
	X_MSG_BACKGROUND_PID=$!

	# kill the session
	$SESSIONS -k $SESSION_ID
	RETVAL=$?

	# close the popup
	kill $X_MSG_BACKGROUND_PID
fi
exit $RETVAL

