# $Platon: tcshrc,v 1.1 2002/07/31 09:57:47 rajo Exp $

# On remote host put these lines to your ~/.tcshrc if you
# are using tcsh

# Set $DISPLAY enviroment if there is a record in ~/.Xauthority file
# and user is logged in via ssh
if ( $shlvl == 1 ) then
	unsetenv DISPLAY
	if ( "$?SSH_CLIENT" ) then
		DISP=`xauth list  "$SSH_CLIENT":0 | awk '{print $1}'`
		if ( ! -z "$DISP" ) then
			if ( $shlvl != 1 ) then
				echo "Setting DISPLAY $DISP"
			endif
			setenv DISPLAY $DISP
		endif
	endif
endif