home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / lotus / eSuite.exe / eSuiteDPP / doc / devpack / search.pl < prev    next >
Perl Script  |  1998-01-06  |  932b  |  30 lines
  1. #!/perl/bin
  2.  
  3. # $Header:   //reebok/xyzL/JavaComp/webpack/doc/common/search.pl   1.3   02 Oct 1997 11:38:08   rflynn  $
  4. # generate page with populated list box
  5. print "Content-type: text/html\n\n";
  6. print <<'ending_print_tag';
  7. <HTML><HEAD><TITLE>DPP Keyword Doc Search </TITLE>
  8. </HEAD>
  9. <BODY BGCOLOR="#ffffff" TEXT="#000000" LINK="#0000ff" LINK="#800080" BACKGROUND="kona_background.gif">
  10. <p>Click an item and then click Show Me.</p>
  11. <FORM METHOD="POST" ACTION="lookup.pl">
  12. <SELECT NAME="name" size="9">
  13. ending_print_tag
  14. # open the keyword text file
  15. $file = "kwds2.txt";
  16. open (keyword_file, $file);
  17. while(<keyword_file>)  {
  18. # concatenate each data value with the <OPTION> HTML tag
  19. $TAG = "<OPTION>" . $_ ;
  20. print $TAG;
  21. }
  22. print <<'ending_print_tag';
  23. </SELECT>
  24. <input type=hidden NAME="limit-List" value=1000>
  25. <P>
  26. <INPUT TYPE="submit" VALUE="Show Me"> </FORM><P></BODY></HTML>
  27. ending_print_tag
  28. # untitled1.pl
  29.  
  30.