#!/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 "=====================================" 
		echo "=====================================" >> $zcl
		echo "Scadian name?"
		read scaname
		if [ -z $scaname ]
			then
			scaname="--------"
		fi
		echo "Real name?"
		read realname
		echo "Username: "$1"	"Scaname: "$scaname"	"Realname: "$realname >> $zcl
		foo=0
	else
		startline=`echo $startline | awk -F: ' { print $1 } ' `
		endline=`tail +$startline $zcl | grep -n "\="`
		mv $zcl $zcl~
		cat $zcl~ | head -`exp $endline - 1 ` > $zcl
		foo=1
fi

echo "Contact: "$USER"	"Date: "`date` >> $zcl
echo "Enter comments.  End with a dot on a line by itself."
endofline=0
while [ $endofline = 0 ]
	do
		read commentline
		if [ $commentline = "." ]
			then
			endofline=1
		fi
		echo ">"$commentline >> $zcl
done


if [ $foo = 1]
	then
		tail +$endline $zcl~ >> $zcl
fi