#!/bin/sh

zcl=/afs/athena.mit.edu/activity/s/sca/Workers/96/zephyr-contact-log
startline=`grep -n $1 $zcl`

if [ -z $startline ]
	then
		echo No contact yet.  Amend log?
		read amendlogyn
		if [ $amendlogyn = "y" -o $amendlogyn = "Y" ]
			then
			emacs $zcl
		fi
		exit 0
fi

startline=`echo $startline | awk -F: ' { print $1 } ' `

endline=`tail +$startline $zcl | grep -n "\="`

if [ ! -z $endline ]
	then
		endline=`echo $endline | awk -F: ' { print $1 } ' `
		spnlines=`expr $endline - $startline `
		tail +$startline $zcl | head -$spnlines
	else
		tail +$startline $zcl
fi

echo ""
echo "Add?? "
read addyn

if [ $addyn = "Y" -o $addyn = "y" ]
	then
	/afs/athena.mit.edu/activity/s/sca/bin/zc-add $1
fi