#!/usr/local/bin/perl
# Search Webmin modules and help pages and text and config.info
+$trust_unknown_referers = 1;
BEGIN { push(@INC, ".."); };
use WebminCore;
&init_config();
+do 'webmin-search-lib.pl';
&ReadParse();
$prod = &get_product_name();
$ucprod = ucfirst($prod);
-&ui_print_header(undef, &text('wsearch_title', $ucprod), "", undef, 0, 1);
+&ui_print_unbuffered_header(undef,
+ $in{'title'} || &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 first
-$count = 0;
-@mods = sort { $b->{'longdesc'} cmp $a->{'longdesc'} }
- grep { !$_->{'clone'} } &get_available_module_infos();
-foreach $m (@mods) {
- if ($m->{'desc'} =~ /\Q$re\E/i || $m->{'dir'} =~ /\Q$re\E/i) {
- &match_row(
- $m,
- "<a href='$m->{'dir'}/'>$m->{'desc'}</a>",
- $text{'wsearch_mtitle'},
- undef,
- 0,
- );
+# Find modules to search
+$mods = undef;
+if ($in{'mod'}) {
+ $mods = [ ];
+ my %infos = map { $_->{'dir'}, $_ } &get_all_module_infos();
+ foreach my $mn (split(/\0/, $in{'mod'})) {
+ my $minfo = $infos{$mn};
+ push(@$mods, $minfo) if ($minfo);
}
}
-# Then do module configs
-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) {
- &match_row(
- $m,
- "<a href='config.cgi?module=$m->{'dir'}&".
- "section=".&urlize($section)."#$c'>$p[0]</a>",
- $text{'wsearch_config_'.$prod},
- $p[0],
- 1,
- );
- $cgis[0]}
- }
- }
+# Do the search
+print &text('wsearch_searching', "<i>".&html_escape($re)."</i>"),"\n";
+@rv = &search_webmin($re, \&print_search_dot, $mods);
+print &text('wsearch_found', scalar(@rv)),"<p>\n";
-# Then do 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)) {
- # 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;
- }
+# Show in table
+if (@rv) {
+ print &ui_columns_start(
+ [ $text{'wsearch_htext'}, $text{'wsearch_htype'},
+ $text{'wsearch_hmod'}, $text{'wsearch_hcgis'} ], 100);
+ foreach my $r (@rv) {
+ $hi = &highlight_text($r->{'text'});
+ if ($r->{'link'}) {
+ $hi = "<a href='$r->{'link'}'>$hi</a>";
}
-
- # If yes, search it
- if ($grep) {
- $data = &read_file_contents("$helpdir/$f");
- if ($data =~ /<header>([^<]*)<\/header>/) {
- $title = $1;
+ @links = ( );
+ foreach my $c (@{$r->{'cgis'}}) {
+ ($cmod, $cpage) = split(/\//, $c);
+ ($cpage, $cargs) = split(/\?/, $cpage);
+ $ctitle = &cgi_page_title($cmod, $cpage) || $cpage;
+ if ($r->{'mod'}->{'installed'}) {
+ $cargs ||= &cgi_page_args($cmod, $cpage);
}
else {
- $title = $f;
+ # For modules that aren't installed, linking
+ # to a CGI is likely useless
+ $cargs ||= "none";
}
- $data =~ s/\s+/ /g;
- $data =~ s/<p>/\n\n/gi;
- $data =~ s/<br>/\n/gi;
- $data =~ s/<[^>]+>//g;
- if ($data =~ /\Q$re\E/i) {
- &match_row(
- $m,
- &hlink($title, $page, $m->{'dir'}),
- $text{'wsearch_help'},
- $data,
- 1,
- );
- }
- }
- }
- 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);
- if (@cgis == 0) {
- $link = "<a href='$m->{'dir'}/'>$m->{'desc'}</a>";
+ if ($cargs eq "none") {
+ push(@links, $ctitle);
}
else {
- $link = &ui_links_row([
- map { "<a href='$_'>$_</a>" } @cgis ]);
- $link =~ s/<br>//;
+ $cargs = "?".$cargs if ($cargs ne '' &&
+ $cargs !~ /^(\/|%2F)/);
+ push(@links,
+ "<a href='$cmod/$cpage$cargs'>$ctitle</a>");
}
- &match_row(
- $m,
- $link,
- $text{'wsearch_text'},
- $mtext{$k},
- @cgis ? 1 : 0,
- );
- #next MODULE;
}
+ if (@links > 2) {
+ @links = ( @links[0..1], "..." );
+ }
+ print &ui_columns_row([
+ $hi,
+ $text{'wsearch_type_'.$r->{'type'}},
+ "<a href='$r->{'mod'}->{'dir'}/'>$r->{'mod'}->{'desc'}</a>",
+ &ui_links_row(\@links),
+ ]);
}
+ print &ui_columns_end();
}
-
-if (!$count) {
+else {
print "<b>",&text('wsearch_enone',
"<tt>".&html_escape($re)."</tt>"),"</b><p>\n";
}
&ui_print_footer();
-# Returns text with the search term bolded, and truncated to 60 characters
-sub highlight_text
+# print_search_dot()
+# Print one dot per second
+sub print_search_dot
{
-local ($str, $len) = @_;
-$len ||= 90;
-local $hlen = $len / 2;
-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."<b>".&html_escape($match)."</b>".$after;
- }
-return $str;
-}
-
-sub match_row
-{
-local ($m, $link, $what, $text, $module_link) = @_;
-print "<font size=+1>$link</font>\n";
-if ($module_link) {
- print " (".&text('wsearch_inmod',
- "<a href='$m->{'dir'}/'>$m->{'desc'}</a>").")";
- }
-print "<br>\n";
-if ($text) {
- print &highlight_text($text),"<br>\n";
- }
-print "<font color=#4EBF37>$m->{'desc'} - $what</font><br> <br>\n";
-$count++;
-}
-
-# find_cgi_text(®exps, module)
-# Returns the relative URLs of CGIs that matches some regexps, in the given
-# module.
-sub find_cgi_text
-{
-local ($res, $m) = @_;
-local $mdir = &module_root_directory($m);
-local @rv;
-foreach my $f (glob("$mdir/*.cgi")) {
- local $found = 0;
- open(CGI, $f);
- LINE: while(my $line = <CGI>) {
- foreach my $r (@$res) {
- if (index($line, $r) >= 0) {
- $found++;
- last LINE;
- }
- }
- }
- close(CGI);
- if ($found) {
- local $url = $f;
- $url =~ s/^\Q$root_directory\E\///;
- push(@rv, $url);
- }
+local $now = time();
+if ($now > $last_print_search_dot) {
+ print ". ";
+ $last_print_search_dot = $now;
}
-return @rv;
}
projects / webmin.git / blobdiff