#!/bin/csh

# Set standard Athena path variable (generic path for all users):
set athena_path=( /srvd/patch /usr/athena/bin /bin/athena /usr/bin/X11 \
		/usr/new /usr/ucb /bin /usr/bin /usr/ibm /usr/andrew/bin )

set path=($athena_path .)	# Standard Athena path

# Get kerberos tickets and attach home directory
klist -t
if ($status) then
	kinit $user && set home=`attach -p $user`
else
	set home=`attach -p $user`
endif

cd $home
if ( -x /afs/sipb/project/tcsh/tcsh ) then
    setenv SHELL /afs/sipb/project/tcsh/tcsh
    setenv hosttype `/bin/athena/machtype`
endif

if ((! $?NOCALLS) && (-r $home/.Xresources)) xrdb -merge $home/.Xresources

xterm &

exit 0