#!/usr/bin/perl # AUTHOR: STEVE DEGRAEVE 7/98 # update 8/25/98: added loging of user info open (FILE,"fortunes.txt") || die "Can't Open Fortunes File $!\n"; @LINES=; close(FILE); $SIZE=@LINES; $i = int (rand $SIZE); $mywarning = $LINES[$i]; print "Content-type: text/html\n\n"; print " Your Fortune "; open (FILE,"../../body.txt") or print "uhoh."; local $/; $includedhtml=; close(FILE); print $includedhtml; print "
"; open (FILE,"../../navigation.txt") or print "uhoh."; local $/; $includedhtml=; close(FILE); print $includedhtml; print "
"; print <

$mywarning

another fortune END print "
"; open (FILE,"../../footer.txt") or print "uhoh."; local $/; $includedhtml=; close(FILE); print $includedhtml; print "";