#!/usr/local/bin/perl5

#
# Add new data to the report
#

use CGI;
my $q = new CGI;

$report = "ffc_bios.html";

open (OUT, ">>$report") or die "cannot open $report...";

print OUT 
    "<HR>\n",
    "<TABLE BORDER>\n",
    "<TR>\n",
    "<TH>Name:</TH>\n",
    "<TD>\n",
    "<PRE>", $q->param('name'), "</PRE>",
    "</TD>\n",	
    "</TR>\n",
    
    "<TR>\n",
    "<TH>Birthday (MM/DD/YY):</TH>\n",
    "<TD>\n",
    $q->param('mon'), "/\n",
    $q->param('day'), "/\n", 
    $q->param('yr'), 
    "</TD>\n",	
    "</TR>\n",
    
    "<TR>\n",
    "<TH>Life Story:</TH>\n",
    "<TD>\n",
    "<PRE>", $q->param('ls'), "</PRE>",
    "</TD>\n",	
    "</TR>\n",
    
    "<TR>\n",
    "<TH>Hobbies:</TH>\n",
    "<TD>\n",
    "<PRE>", $q->param('h'), "</PRE>",
    "</TD>\n",	
    "</TR>\n",
    
    "<TR>\n",
    "<TH>Areas of Expertise:</TH>\n",
    "<TD>\n",
    "<PRE>", $q->param('ae'), "</PRE>",
    "</TD>\n",	
    "</TR>\n",
    
    "<TR>\n",
    "<TH>Piece of Wisdom:</TH>\n",
    "<TD>\n",
    "<PRE>", $q->param('pw'), "</PRE>",
    "</TD>\n",	
    "</TR>\n",
    
    "<TR>\n",
    "<TH>Advise:</TH>\n",
    "<TD>\n",
    "<PRE>", $q->param('a'), "</PRE>",
    "</TD>\n",	
    "</TR>\n",
    
    "<TR>\n",
    "<TH>Interesting Story:</TH>\n",
    "<TD>\n",
    "<PRE>", $q->param('is'), "</PRE>",
    "</TD>\n",	
    "</TR>\n",
    
    "<TR>\n",
    "<TH>Things you do for fun:</TH>\n",
    "<TD>\n",
    "<PRE>", $q->param('th'), "</PRE>",
    "</TD>\n",	
    "</TR>\n",
    
    "</TABLE>\n",
    "<P>";

close(OUT);

print $q->header;
print $q->start_html(-title=>'Form submitted',
		     -bgcolor=>'white');
print 
    "<H1>Thanks for filling this out!</H1>\n\n",
    "<P>\n",
    "<H3>You can check the FFC members' bios <A HREF='ffc_bios.html'>here</A>...</H3><p>\n",
    "<H2><A HREF=http://www.geocities.com/SiliconValley/Bay/1020>Click here to return to the Friends an
d Family Club home page</A></H2>";