V10/man/adm/makelinks

y=$1
cd $1
case $2 in
"")	set $1 .
esac
/usr/man/adm/secindex $2|
sed '
s/\(.*\) \(.*\)\.\(.*\)/\1.\3 \2.\3/
/^\(.*\) \1$/d
' | while
	read x
	case $x in
	"")	break
	esac
do
	set $x
	if newer $2 $1
	then 	rm $1
		ln $2 $1
	fi 2>/dev/null
done