#!/bin/sh -

loclroot=/usr/local
nfsroot=/nfs
grpcol=5

# mkl - make ~/l directory of convenience symlinks
# Steve Kinzler, kinzler@cs.indiana.edu, Oct 93/Jun 08
# http://www.cs.indiana.edu/~kinzler/home.html#homedir

cd      || exit
rm -fr l
mkdir l || exit
cd l    || exit

links=${HOMELS-../etc/links}
if test -f "$links"
then
	sed 's/#.*//' < "$links" | awk 'NF >= 2' |
	while read link path
	do
		ln -s "$path" "$link" 2> /dev/null
	done
fi

((ls $HOME; ls) | sort -u; ls $loclroot) |
sort | uniq -d | sed '/^\.$/d; /^\.\.$/d' |
while read file
do
	ln -s $loclroot/"$file" l"$file" 2> /dev/null
done

#local=${HOST-${HOSTNAME-`(hostname) 2> /dev/null`}}
#case "$local" in
#'')	local=`uname -n`;;
#esac
#local=`echo "$local" | sed 's/\..*//'`
#
#group=`hosts -l "$local" | awk '{ print $'"$grpcol }"`
#group=`hosts "$group"`
#group=`echo $group | sed 's/^/@/; s/ /@/g; s/$/@/'`
#
#homes=${HOMES-../etc/homes}
#if test -f "$homes"
#then
#	sed 's/#.*//; /^[ 	]*$/d' < "$homes" |
#	awk -F: '{ print $1, $2 }' |
#	while read host dir
#	do
#		case "$group" in
#		*@$host@*)	case "$host" in
#				$local)	ln -s .. "$host" 2> /dev/null;;
#				*)	ln -s $nfsroot/"$host$dir" "$host" \
#						2> /dev/null;;
#				esac
#		esac
#	done
#fi

safe=
(safe -d 3 /bin/csh -fc :) 2> /dev/null && safe='safe -q'

for link in *
do
	case "`$safe ls -dlL $link 2> /dev/null`" in
	''|l*|---------*)	rm $link;;
	esac
done