mirror of
https://github.com/webmin/webmin.git
synced 2025-08-17 19:06:28 +00:00
30 lines
1.1 KiB
Perl
Executable File
30 lines
1.1 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# index.cgi
|
|
# Display the help search form
|
|
|
|
require './help-lib.pl';
|
|
&ui_print_header(undef, $text{'index_title'}, "", "intro", 0, 1);
|
|
|
|
print "<form action=search.cgi>\n";
|
|
print "<table border>\n";
|
|
print "<tr $tb> <td><b>$text{'index_header'}</b></td> </tr>\n";
|
|
print "<tr $cb> <td><table>\n";
|
|
print "<tr> <td><b>$text{'index_terms'}</b></td>\n";
|
|
print "<td><input name=terms size=50></td> </tr>\n";
|
|
print "<tr> <td valign=top><b>$text{'index_mods'}</b></td>\n";
|
|
print "<td><input type=radio name=all value=1 checked> $text{'index_all'}\n";
|
|
print " <input type=radio name=all value=0> $text{'index_sel'}<br>\n";
|
|
print " <select name=mods size=5 multiple>\n";
|
|
foreach $m (&list_modules()) {
|
|
printf "<option value=%s>%s\n",
|
|
$m->[0], $m->[1]->{'desc'};
|
|
}
|
|
print "</select></td> </tr>\n";
|
|
print "<tr> <td colspan=2 align=right>",
|
|
"<input type=reset value=\"$text{'index_reset'}\">\n",
|
|
"<input type=submit value=\"$text{'index_search'}\"></td> </tr>\n";
|
|
print "</table></td></tr></table></form>\n";
|
|
|
|
&ui_print_footer("/", $text{'index'});
|
|
|