#!/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="search2.pl" METHOD=POST>
<H2>Search Homepage Directory</H2>
Search the directory for students with similar interests using
keywords. (Keywords must be seperated by spaces)
<HR>
Keywords: <INPUT TYPE="text" MAXLENGTH=80 NAME="keywords" SIZE=80>
<P>
Search Type:<BR>
<INPUT TYPE="Radio" NAME="boolean" VALUE="AND">
Return Records Matching ALL Keywords
<BR>
<INPUT TYPE="Radio" NAME="boolean" VALUE="OR" CHECKED>
Return Records Matching ANY of the Keywords 
<P>
<INPUT TYPE="submit" VALUE="Search!">
<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
}

