#!/perl/bin

# $Header:   //reebok/xyzL/JavaComp/webpack/doc/common/search.pl   1.3   02 Oct 1997 11:38:08   rflynn  $
# generate page with populated list box
print "Content-type: text/html\n\n";
print <<'ending_print_tag';
<HTML><HEAD><TITLE>DPP Keyword Doc Search </TITLE>
</HEAD>
<BODY BGCOLOR="#ffffff" TEXT="#000000" LINK="#0000ff" LINK="#800080" BACKGROUND="kona_background.gif">
<p>Click an item and then click Show Me.</p>
<FORM METHOD="POST" ACTION="lookup.pl">
<SELECT NAME="name" size="9">
ending_print_tag
# open the keyword text file
$file = "kwds2.txt";
open (keyword_file, $file);
while(<keyword_file>)  {
# concatenate each data value with the <OPTION> HTML tag
$TAG = "<OPTION>" . $_ ;
print $TAG;
}
print <<'ending_print_tag';
</SELECT>
<input type=hidden NAME="limit-List" value=1000>
<P>
<INPUT TYPE="submit" VALUE="Show Me"> </FORM><P></BODY></HTML>
ending_print_tag
# untitled1.pl

