# /bin/csh -f
if ( ! $?ADM_DIR ) \
	set ADM_DIR = /usr/lib/admin
set path = ($ADM_DIR $ADM_DIR/bin /bin /usr/bin /etc)

set noglob

get_master:
echo ""
echo ""
echo "Enter the name of the password master machine or a blank line if you"
echo -n "do not want to define a master [<name> or qx?]..."
set ANS = `get_resp`
switch ( $ANS )
	case _HELP_ :
		adm_help TCP_P_SERVER
		goto get_master
		breaksw
	case [QqXx] :
		exit(1)
		breaksw
	default :
		if ( $ANS == "" ) then
				cp /dev/null $ADM_DIR/local-data/tcp_p_server
		else if ( { validate HOSTNAME $ANS } ) then
			if ( $ANS == $HOSTNAME ) then
				cp /dev/null $ADM_DIR/local-data/tcp_p_server
			else
				echo $ANS > $ADM_DIR/local-data/tcp_p_server
			endif
			exit(0)
		else
			echo "Invalid response..."
			goto get_master
		endif
		breaksw
endsw
