help/index.cgi

   1 #!/usr/local/bin/perl
   2 # index.cgi
   3 # Display the help search form
   4
   5 require './help-lib.pl';
   6 &ui_print_header(undef, $text{'index_title'}, "", "intro", 0, 1);
   7
   8 print "<form action=search.cgi>\n";
   9 print "<table border>\n";
  10 print "<tr $tb> <td><b>$text{'index_header'}</b></td> </tr>\n";
  11 print "<tr $cb> <td><table>\n";
  12 print "<tr> <td><b>$text{'index_terms'}</b></td>\n";
  13 print "<td><input name=terms size=50></td> </tr>\n";
  14 print "<tr> <td valign=top><b>$text{'index_mods'}</b></td>\n";
  15 print "<td><input type=radio name=all value=1 checked> $text{'index_all'}\n";
  16 print "&nbsp;<input type=radio name=all value=0> $text{'index_sel'}<br>\n";
  17 print "&nbsp;&nbsp;&nbsp;<select name=mods size=5 multiple>\n";
  18 foreach $m (&list_modules()) {
  19         printf "<option value=%s>%s\n",
  20                 $m->[0], $m->[1]->{'desc'};
  21         }
  22 print "</select></td> </tr>\n";
  23 print "<tr> <td colspan=2 align=right>",
  24       "<input type=reset value=\"$text{'index_reset'}\">\n",
  25       "<input type=submit value=\"$text{'index_search'}\"></td> </tr>\n";
  26 print "</table></td></tr></table></form>\n";
  27
  28 &ui_print_footer("/", $text{'index'});
  29