#!/usr/local/bin/perl
# Search Webmin modules and help pages and text and config.info
BEGIN { push(@INC, ".."); };
use WebminCore;
&init_config();
&ReadParse();
$prod = &get_product_name();
$ucprod = ucfirst($prod);
&ui_print_header(undef, &text('wsearch_title', $ucprod), "", undef, 0, 1);
# Validate search text
$re = $in{'search'};
if ($re !~ /\S/) {
&error($text{'wsearch_esearch'});
}
$re =~ s/^\s+//;
$re =~ s/\s+$//;
# Search module names and add to results list
@rv = ( );
@mods = sort { $b->{'longdesc'} cmp $a->{'longdesc'} }
grep { !$_->{'clone'} } &get_available_module_infos();
foreach $m (@mods) {
if ($m->{'desc'} =~ /\Q$re\E/i) {
push(@rv, { 'mod' => $m,
'rank' => 10,
'type' => 'mod',
'link' => $m->{'dir'}.'/',
'text' => $m->{'desc'} });
}
}
# Search module configs and their help pages
foreach $m (@mods) {
%access = &get_module_acl(undef, $m);
next if ($access{'noconfig'});
$file = $prod eq 'webmin' ? "$m->{'dir'}/config.info"
: "$m->{'dir'}/uconfig.info";
%info = ( );
@info_order = ( );
&read_file($file, \%info, \@info_order);
foreach $o (@lang_order_list) {
&read_file("$file.$o", \%info);
}
$section = undef;
foreach $c (@info_order) {
@p = split(/,/, $info{$c});
if ($p[1] == 11) {
$section = $c;
}
if ($p[0] =~ /\Q$re\E/i) {
# Config description matches
push(@rv, { 'mod' => $m,
'rank' => 8,
'type' => 'config',
'link' => "config.cgi?module=$m->{'dir'}&".
"section=".&urlize($section)."#$c",
'text' => $p[0] });
}
$hfl = &help_file($mod->{'dir'}, "config_".$c);
($title, $help) = &help_file_match($hfl);
if ($help) {
# Config help matches
push(@rv, { 'mod' => $m,
'rank' => 6,
'type' => 'help',
'link' => "help.cgi/$m->{'dir'}/config_$c",
'desc' => &text('wsearch_helpfor', $p[0]),
'text' => $help,
});
}
}
}
# Search other help pages
%lang_order_list = map { $_, 1 } @lang_order_list;
foreach $m (@mods) {
$helpdir = &module_root_directory($m->{'dir'})."/help";
%donepage = ( );
opendir(DIR, $helpdir);
foreach $f (sort { length($b) <=> length($a) } readdir(DIR)) {
next if ($f =~ /^config_/); # For config help, already done
# Work out if we should grep this help page - don't do the same
# page twice for different languages
$grep = 0;
if ($f =~ /^(\S+)\.([^\.]+)\.html$/) {
($page, $lang) = ($1, $2);
if ($lang_order_list{$lang} && !$donepage{$page}++) {
$grep = 1;
}
}
elsif ($f =~ /^(\S+)\.html$/) {
$page = $1;
if (!$donepage{$page}++) {
$grep = 1;
}
}
# If yes, search it
if ($grep) {
($title, $help) = &help_file_match("$helpdir/$f");
if ($title) {
@cgis = &find_cgi_text(
[ "hlink\\(.*'$page'",
"hlink\\(.*\"$page\"",
], $m, 1);
# XXX delete this block
if (@cgis == 0) {
$link = "";
}
else {
$link = &ui_links_row([
map { my $s = $_;
$s =~ s/^\Q$m->{'dir'}\E\///;
"$s" } @cgis
]);
$link =~ s/
//;
$link = &text('wsearch_on', $link);
}
push(@rv, { 'mod' => $m,
'rank' => 6,
'type' => 'help',
'link' => "help.cgi/$m->{'dir'}/config_$c",
'desc' => $title,
'text' => $help,
'cgis' => \@cgis });
}
}
}
closedir(DIR);
}
# Then do text strings
MODULE: foreach $m (@mods) {
%mtext = &load_language($m->{'dir'});
foreach $k (keys %mtext) {
if ($mtext{$k} =~ /\Q$re\E/i) {
@cgis = &find_cgi_text(
[ "\$text{'$k'}",
"\$text{\"$k\"}",
"\$text{$k}" ], $m);
# XXX delete this block
if (@cgis == 0) {
$link = "$m->{'desc'}";
}
else {
$link = &ui_links_row([
map { my $s = $_;
$s =~ s/^\Q$m->{'dir'}\E\///;
"$s" } @cgis ]);
$link =~ s/
//;
}
push(@rv, { 'mod' => $m,
'rank' => 4,
'type' => 'text',
'desc' => $pagetitle, # XXX
'text' => $mtext{$k},
'cgis' => \@cgis });
}
}
}
# Sort results by relevancy
# XXX
@rv = sort { $a->{'rank'} <=> $b->{'rank'} } @rv;
# Show in table
if (@rv) {
# XXX next page link?
print &ui_columns_start(
[ $text{'wsearch_htext'}, $text{'wsearch_htype'},
$text{'wsearch_hcgis'} ], 100);
foreach my $r (@rv) {
# XXX
}
print &ui_columns_end();
}
else {
print "",&text('wsearch_enone',
"".&html_escape($re).""),"
\n";
}
&ui_print_footer();
# Returns text with the search term bolded, and truncated to 60 characters
sub highlight_text
{
local ($str, $len) = @_;
$len ||= 90;
local $hlen = $len / 2;
$str =~ s/<[^>]*>//g;
if ($str =~ /(.*)(\Q$re\E)(.*)/i) {
local ($before, $match, $after) = ($1, $2, $3);
if (length($before) > $hlen) {
$before = "...".substr($before, length($before)-$hlen);
}
if (length($after) > $hlen) {
$after = substr($after, 0, $hlen)."...";
}
$str = $before."".&html_escape($match)."".$after;
}
return $str;
}
sub match_row
{
local ($m, $link, $what, $text, $module_link) = @_;
print "$link\n";
if ($module_link) {
print " (".&text('wsearch_inmod',
"$m->{'desc'}").")";
}
print " /\n\n/gi;
$data =~ s/
\n";
if ($text) {
print &highlight_text($text),"
\n";
}
print "$m->{'desc'} - $what
\n";
$count++;
}
# find_cgi_text(®exps, module, re-mode)
# Returns the relative URLs of CGIs that matches some regexps, in the given
# module.
sub find_cgi_text
{
local ($res, $m, $remode) = @_;
local $mdir = &module_root_directory($m);
local @rv;
foreach my $f (glob("$mdir/*.cgi")) {
local $found = 0;
open(CGI, $f);
LINE: while(my $line =
/\n/gi;
$data =~ s/<[^>]+>//g;
if ($data =~ /\Q$re\E/i) {
return $title;
}
return undef;
}