#!/srvtools/http/bin/perl
#  Falke Bruinsma (falke@innersource.com)
#  Inner Source Computer Services, Inc. (http://www.innersource.com)
#

require 'cgi-lib.pl';
require 'defines.pl';

MAIN:
{
  print &PrintHeader;
  print <<EOF;

<HTML>
<HEAD>
<TITLE>Student Homepage Directory</TITLE>
</HEAD> 
<BODY>

<FORM ACTION="submit2.pl" METHOD=POST>
<H2>Add new entry to The Student Homepage Directory</H2>
<HR>
     Below is the info that will be used by everybody to search for students
with similar interests.  So in the "Info about Yourself" section at the end,
write a paragraph about yourself, or put in a series of keywords of hobbies &
interests, or whatever you want.
<HR>
Lastname: <INPUT TYPE="text" MAXLENGTH=20 NAME="lastname" SIZE=20>
<BR>
Firstname: <INPUT TYPE="text" MAXLENGTH=20 NAME="firstname" SIZE=20>
<BR>
URL: <INPUT TYPE="text" MAXLENGTH=80 NAME="url" SIZE=80 value="http://">
<BR>
Homepage Title: <INPUT TYPE="text" MAXLENGTH=80 NAME="title" SIZE=80>
<BR>
Email: <INPUT TYPE="text" MAXLENGTH=80 NAME="email" SIZE=80>
<BR>
Year of birth: <INPUT TYPE="text" MAXLENGTH=4 NAME="dob" SIZE=4>
<BR>
Sex: <SELECT NAME="sex">
<OPTION>
<OPTION>Male
<OPTION>Female
</SELECT>
<BR>
State: <INPUT TYPE="text" MAXLENGTH=2 NAME="state" SIZE=2>
State if in US, Country if outside US. (Use two digit code;i.e.
NY for New York State and CA for Canada).
A list of <A HREF="$home/abbrev.html">abbreviations</A> is available for 
countries if you are unsure of the correct code.
<BR>
Info about yourself:
<TEXTAREA NAME="info" ROWS="5" COLS="70">
</TEXTAREA>
<P>
<INPUT TYPE="submit" VALUE="Submit">
<INPUT TYPE="reset" VALUE="Clear Fields">
</FORM>
<HR>
Back to:
<A HREF="$home/homepages/index.html">Student Homepage Directory</A> |
<A HREF="$home/index.html">
The Student Center Main Page</A> |
<A HREF="$home/hub.html">
Student HUB</A>
</BODY>
</HTML>
EOF
}

