mirror of
https://github.com/webmin/webmin.git
synced 2025-07-23 00:30:33 +00:00
82 lines
2.1 KiB
Perl
Executable File
82 lines
2.1 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# index.cgi
|
|
# Display the manual pages search form
|
|
|
|
require './man-lib.pl';
|
|
&ui_print_header(undef, $text{'index_title'}, "", "intro", $module_info{'usermin'} ? 0 : 1, 1);
|
|
|
|
# build list of available search options
|
|
@search = ( "man", "help" );
|
|
foreach $d (split(/\s+/, $config{'doc_dir'})) {
|
|
if (-d $d) {
|
|
push(@search, "doc");
|
|
last;
|
|
}
|
|
}
|
|
foreach $h (split(/\s+/, $config{'howto_dir'})) {
|
|
if (-d $h) {
|
|
push(@search, "howto");
|
|
last;
|
|
}
|
|
}
|
|
if (-d $config{'kde_dir'}) {
|
|
push(@search, "kde");
|
|
}
|
|
if (-d $config{'kernel_dir'}) {
|
|
push(@search, "kernel");
|
|
}
|
|
if ($perl_doc) {
|
|
push(@search, "perl");
|
|
}
|
|
if (-d $config{'custom_dir'}) {
|
|
push(@search, "custom");
|
|
}
|
|
push(@search, "google");
|
|
|
|
# display the search form
|
|
print &ui_form_start("search.cgi");
|
|
print &ui_table_start($text{'index_header'}, undef, 2);
|
|
|
|
# Search box and boolean mode
|
|
print &ui_table_row($text{'index_for'},
|
|
&ui_textbox("for", undef, 50)."<br>".
|
|
&ui_radio("and", 1, [ [ 1, $text{'index_and'} ],
|
|
[ 0, $text{'index_or'} ] ]));
|
|
|
|
# Exact match
|
|
print &ui_table_row($text{'index_type'},
|
|
&ui_radio("exact", 1, [ [ 1, $text{'index_name'} ],
|
|
[ 0, $text{'index_data'} ] ]));
|
|
|
|
# Sections to search
|
|
$sects = "";
|
|
foreach $s (@search) {
|
|
$txt = $text{"index_${s}"};
|
|
$txt = $config{'custom_desc'}
|
|
if ($s eq "custom" && $config{'custom_desc'});
|
|
$sects .= &ui_checkbox("section", $s, $txt, $s eq 'man')."<br>\n";
|
|
}
|
|
print &ui_table_row($text{'index_where'}, $sects);
|
|
|
|
print &ui_table_end();
|
|
print &ui_form_end([ [ undef, $text{'index_search'} ] ]);
|
|
|
|
# Form to control search from other modules
|
|
if (!$module_info{'usermin'} && $access{'allow'}) {
|
|
@check = $config{'check'} ? split(/\s+/, $config{'check'}) : @search;
|
|
print &ui_hr();
|
|
print &ui_form_start("save_check.cgi");
|
|
print &ui_hidden("count", scalar(@search));
|
|
print "<b>$text{'index_others'}</b><br>\n";
|
|
@grid = ( );
|
|
foreach $s (@search) {
|
|
push(@grid, &ui_checkbox("check", $s, $text{"index_other_${s}"},
|
|
&indexof($s, @check) >= 0));
|
|
}
|
|
print &ui_grid_table(\@grid, 3);
|
|
print &ui_form_end([ [ undef, $text{'save'} ] ]);
|
|
}
|
|
|
|
&ui_print_footer("/", $text{'index'});
|
|
|