#!/usr/local/bin/perl
# display free t-shirts page
$| = 1;

############
# DEFINITIONS

$header = "../resource/t-shirttop";
$footer = "../resource/t-shirtfoot";

############
# DEBUGGING

############
# PROGRAM

print "Content-type: text/html\n\n";
&WriteHeader;
&WriteForm;
&WriteFooter;

############
# SUB PROGRAMS

#### write page top
sub WriteHeader {
  open(IN,"$header") || &oops("cannot open header file $header");
  unless($D) { flock(IN,2) }
  @lines = <IN>;
  close(IN);
  foreach $line(@lines) {
    print "$line";
  }
}

#### write form for user info
sub WriteForm {
print<<"end_form";
  <FORM METHOD=POST ACTION="t-shirtreply.cgi" NAME="form" onSubmit="return CheckFields();">
  <input type=hidden name="netcreations" value="netcreations">
  <table border=0 cellpadding=2 cellspacing=0 width=600 bgcolor="#FFCC99">
  <tr><td align=right width=40% valign=top><font size=-1>Name:</font>
  </td><td width="60%"><input type=text size=20 name="name">
  </td></tr><tr><td align=right><font size=-1>Email Address:</font>
  </td><td nowrap><input type=text size=20 name="email"><small>AOL visitors:</small>
  </td></tr><tr><td align=right><font size=-1>Repeat Email Address:</font>
  </td><td><input type=text size=20 name="emailcheck"><small>be sure to include "\@aol.com"</small>
  </td></tr><tr><td align="right"><font size=-1>Zip / Postal Code:</font>
  </td><td><input type=text size=10 name="zip">
  </td></tr><tr><td align="right"><font size=-1>Gender:</font>
  </td><td><font size=-1><select name="sex"><option selected value="M">Male<option value="F">Female</select></font>
  </td></tr><tr><td align=right><font size=-1>Year of Birth:</font>
  </td><td><input type=text size=12 name="yearofbirth"><font size=-1> example: 1976</font>
  </td></tr><tr><td align="right"><font size=-1> Can you receive HTML email?</font>
  </td><td><font size=-1><input type=radio name="htmlemail" value="yes" checked> Yes &nbsp;  &nbsp; <input type="radio" name="htmlemail" value="no"> No </font>
  </td></tr></table>
  <br>
  <hr noshade width=90%>
  <br>

 <table border=0 cellpadding=2 cellspacing=0 width=600>
  <tr><th colspan=6>  Special Offers  </th></tr>
  <tr><td colspan=6>

   </td></tr><tr><td valign=top><input type=checkbox name="scratch" value=1>
   </td><td valign=top colspan=5><b><font color=FF0000 size=-1>FREE</font></b> &nbsp; &nbsp; <font size=-1><b> Local Coupons </b> Get Free Coupons from the stores in your area</font>


  </td></tr><tr><td valign=top><input type=checkbox name="essential" value=1>
  </td><td valign=top colspan=5><b><font color=FF0000 size=-1>FREE</font></b> &nbsp; &nbsp; <font size=-1><b>Scratch & Win Card</b> Win $30,000 instantly with Webstakes online "Scratch" & Win Card.</font>

  </td></tr><tr><td valign=top><input type=checkbox name="psychic" value=1>
  </td><td valign=top colspan=5><b><font color=FF0000 size=-1>FREE</font></b> &nbsp; &nbsp; <font size=-1><b> Family History</b> Get a Free 40 page Family History Kit (Free shipping  too) and links to Free T-shirts, Posters, and Decals from iGrandparents.com.</font>




  </td></tr><tr><td valign=top><input type=checkbox name="chadwick" value=1>
  </td><td valign=top colspan=5><b><font color=FF0000 size=-1>FREE</font></b> &nbsp; &nbsp; <font size=-1><b> Parent Magazine </b>- Join ClubMom and receive a complimentary one-year subscription to Parents Magazine (no strings attached)!</font>

  </td></tr><tr><td valign=top><input type=checkbox name="amazon" value=1>
  </td><td valign=top colspan=5><b><font color=FF0000 size=-1>FREE</font></b> &nbsp; &nbsp; <font size=-1><b> Car Quote </b> Get a Free Online Car Quote. Save \$1,000's on a new car...Even get a car below Wholesale!  FREE QUOTE!! </font>



  </td></tr><tr><td valign=top><input type=checkbox name="discountusa" value=1>
</td><td valign=top colspan=5><b><font color=FF0000 size=-1>FREE</font></b> &nbsp; &nbsp; <font size=-1><b> Chadwicks Catalog</b>  Chadwick's of Boston is the original off-price catalog for women.  Also, get a Free Newport News Catalog!</font>


  </td></tr></table>
  <br>

  <br>
  <table width=600 border=0 cellpadding=5 bgcolor="#FFCC99">
  <tr><th colspan=3> Select at least 5 interest to register for your 7 Free T-shirt Links & subscribe to our newsletter.

  </th></tr><tr><td colspan=3><center><font size=-1>  We'll email you customized Free Stuff &amp; Special Offers based on your interest<BR> (Please select all the interest areas that apply.)</font></center>

  </td></tr><tr><td width=200 valign=top><font size=-1 color=black>
<input type=CheckBox name="FreeStuff" value=1>FREE STUFF
<br><input type=CheckBox name="Debt" value=1>Debt Consolidation
<br><input type=CheckBox name="Credit" value=1>Credit Cards
<br><input type=CheckBox name="Surveys" value=1>Surveys
<br><input type=CheckBox name="Gifts" value=1>Gifts
<br><input type=CheckBox name="HomeOwners" value=1>Home Owners
<br><input type=CheckBox name="MLM" value=1>Multi-Level Marketing
<br><input type=CheckBox name="Entertainment" value=1>Entertainment
<br><input type=CheckBox name="Intbiz" value=1>Internet Business
<br><input type=CheckBox name="Shopping" value=1>Internet Shopping
<br><input type=CheckBox name="Astrology" value=1>Astrology
<br><input type=CheckBox name="Programmers" value=1>Programmers
</font>
</td><td width=200 valign=top><font size=-1 color=black>
<input type=CheckBox name="ITPros" value=1>IT Professionals
<br><input type=CheckBox name="SmallBusiness" value=1>Small Business
<br><input type=CheckBox name="Science" value=1>Science
<br><input type=CheckBox name="Investment" value=1>Investment
<br><input type=CheckBox name="Gardening" value=1>Gardening
<br><input type=CheckBox name="Health" value=1>Health
<br><input type=CheckBox name="Music" value=1>Music
<br><input type=CheckBox name="Auctions" value=1>Auctions
<br><input type=CheckBox name="WebProfits" value=1>Web Profits
<br><input type=CheckBox name="Dating" value=1>Dating
<br><input type=CheckBox name="High" value=1>High Speed Internet
<br><input type=CheckBox name="Biz" value=1>Biz Opportunities
</font>
</td><td width=200 valign=top><font size=-1 color=black>
<input type=CheckBox name="Webmasters" value=1>WEBMASTER
<br><input type=CheckBox name="Clothing" value=1>Clothing Catalogs
<br><input type=CheckBox name="Contests" value=1>Contests
<br><input type=CheckBox name="Lotteries" value=1>Gambling, Lotteries
<br><input type=CheckBox name="Pets" value=1>Pets
<br><input type=CheckBox name="Books" value=1>Books
<br><input type=CheckBox name="Imarket" value=1>Internet Marketing
<br><input type=CheckBox name="Affiliates" value=1>Affiliate Programs
<br><input type=CheckBox name="Home" value=1>Home Business
<br><input type=CheckBox name="Autos" value=1>Auto
<br><input type=CheckBox name="Ecommerce" value=1>E-Commerce
<br><input type=CheckBox name="Travel" value=1>Travel
</font>
</td></tr></table>


  <br><br><P align=center><INPUT TYPE=SUBMIT VALUE="Please Select Interests & Click Here"></FORM>

end_form
}

#### write page bottom
sub WriteFooter {

  open(IN,"$footer") || &oops("cannot open footer file $footer");
  unless($D) { flock(IN,2) }
  @lines = <IN>;
  close(IN);
  foreach $line(@lines) {
    print "$line\n";
  }
exit;
}

#### Method: oops

sub oops {
  my($goof) = @_;
print<<"eof";
<HEAD><TITLE>OOPS</TITLE>
</HEAD><BODY>
<H1>OOPS<H1><BR>$goof

</BODY>
</HTML>
eof
exit;
}