#!/bin/ksh # The Party Program--Invitations to friends from the "guest" file #guestfile=~/shell/guestsguestfile=./guestsif [[ ! -a "$guestfile" ]] then	print "${guestfile##*/} non-existent"	exit 1fiexport PLACE="Sarotini's"(( Time=$(date +%H) + 1 ))set -A foods cheese crackers shrimp drinks "hot dogs" sandwiches typeset -i n=0for person in $(< $guestfile) do	if  [[ $person = root ]]	then		continue	else 		# Start of here document		mail -v -s "Party" $person <<- FINIS 		Hi ${person}! Please join me at $PLACE for a party! 		Meet me at $Time o'clock.		I'll bring the ice cream. Would you please bring 		${foods[$n]} and anything else you would like to eat? Let		me know if you can 					make it.		       Hope to see you soon.		                Your pal,		                ellie@`hostname`		FINIS		n=n+1			if (( ${#foods[*]} == $n )) 		then		   set -A foods cheese crackers shrimp drinks "hot dogs"		   sandwiches		fi	 fidoneprint "Bye..."