#!/bin/ksh
#	@(#)	Address book from SunHELP + ksh wrapper
#..#	systems:	
#..#	sites:		
#..#	level:		
#..#	publish:	y
#..#	keys:		
#..#	date:		Wed Sep 27 08:27:31 BST 2000
#..#	vers:		3


[ $0 = ${0#/} ] && this=$(pwd -H)/$0 || this=$0
tag=${0##*/}
tm=/tmp/${tag}
tmp=${tm}$$
rm -f ${tm}*

set -A AWK $(whence nawk)
[ ${#AWK[*]} -gt 0 -a "${AWK[0]}" != no ] && alias awk=${AWK[0]}

usage="Usage: $tag "

# set -- `getopt vxh $*`

pl="$(cd ${this%/*}/../pl; pwd)/${tag}.pl"

while [ $# -gt 0 ]; do
	case "$1" in
	-v|-x)	set "$1" ;;
	-vi)    lockvi $pl; exit ;;
	--vi)   lockvi $this $pl; exit ;;
	-view)	view $0; exit ;;
	-about)
		echo "$tag was culled from some magazine by"
		echo "Dennis L. Lund <dllund@hermes.nextel.com>"
		exit ;;
	-ver)
		ver=$(egrep '#..#[ 	]*vers:' $this)
		ver=${ver#"${ver%%[1-9]*}"}
		print "ksh  script ver = ${ver%%[!0-9]*}"
		ver=$(egrep '#..#[ 	]*vers:' $pl)
		ver=${ver#"${ver%%[1-9]*}"}
		print "perl script ver = ${ver%%[!0-9]*}"
		exit ;;
	-h)
		echo ""
		echo "$usage"
		echo ""
		echo ""
		exit ;;
	--)
		shift
		break ;;
	*)
		;;
	esac
	shift
done

exec $pl $*