#!/home/bin/
# This script generates a HTML FORM, with itself as the "ACTION"
# When this script is called it checks the STDIN for data it may
# be passing to itself. If there is none, it generates the FORM
# plus some help text on how to use it. If it does see search
# keys in STDIN ($keys) it will again print the FORM, skip the
# help text, open the data file, search for matches, and print
# them as a HTML table.
#require("cgilib.pl");
#******************************************************************
#**************** Main Rtn ***********************
#******************************************************************
print "Content-Type: text/html\n\n";
$phone="/home/docs/resources/data/swosufac.dat";
print("\n");
print("Results\n");
print("\n");
print("\n");
print("![\"SWOSU\"](\"/images/swbanner.jpg\")
\n");
print("\n");
&GET_STATE_INFO;
print "\n";
print "Faculty/Staff Directory Look Up
\n";
print "\n";
print "Enter Search Keys
\n";
print "\n";
if ( $keys eq "")
{
print "
";
print "Enter Search words separated by spaces, Search words will be";
print " AND'ed together (only those names that contain all the keys";
print " will be returned.)";
print "";
print "The Name field will be searched.
";
}
else
{
print "
";
print "Search Results";
print "\n";
print "| Name | \n";
print "Office | \n";
print "Phone Number | \n";
print "Title | \n";
print "Email Address | \n";
print "HomePage | \n";
&SEARCH_FOR_MATCH($keys);
print "
\n";
}
print "";
print "
\n";
print "Please send comments or suggestions to Webmaster\n";
print "\n";
print "Southwestern Oklahoma State University
\n";
print "100 Campus Drive
\n";
print "Weatherford, OK 73096
\n";
print "\n";
print "\n";
print("\n");
print("