* Implemented expiry options for aggregate plugin.

[git.ikiwiki.info.git] / IkiWiki / Plugin / search.pm

diff --git a/IkiWiki/Plugin/search.pm b/IkiWiki/Plugin/search.pm
index c94974ac4b608bfbf122f4455a0fe3fc0fcc71a6..a57a8404819b07f8449b634e0de32772a8c76ff8 100644 (file)
--- a/IkiWiki/Plugin/search.pm
+++ b/IkiWiki/Plugin/search.pm
@@ -7,56 +7,67 @@ use strict;
 use IkiWiki;
 
 sub import { #{{{
 use IkiWiki;
 
 sub import { #{{{

-       IkiWiki::hook(type => "checkconfig", id => "hyperestraier",
+       hook(type => "getopt", id => "hyperestraier",
+               call => \&getopt);
+       hook(type => "checkconfig", id => "hyperestraier",

                call => \&checkconfig);
                call => \&checkconfig);

-       IkiWiki::hook(type => "pagetemplate", id => "hyperestraier",
+       hook(type => "pagetemplate", id => "hyperestraier",

                call => \&pagetemplate);
                call => \&pagetemplate);

-       IkiWiki::hook(type => "delete", id => "hyperestraier",
+       hook(type => "delete", id => "hyperestraier",

                call => \&delete);
                call => \&delete);

-       IkiWiki::hook(type => "change", id => "hyperestraier",
+       hook(type => "change", id => "hyperestraier",

                call => \&change);
                call => \&change);

-       IkiWiki::hook(type => "cgi", id => "hyperestraier",
+       hook(type => "cgi", id => "hyperestraier",

                call => \&cgi);
 } # }}}
 
                call => \&cgi);
 } # }}}
 

+sub getopt () { #{{{
+        eval q{use Getopt::Long};
+        Getopt::Long::Configure('pass_through');
+        GetOptions("estseek=s" => \$config{estseek});
+} #}}}
+

 sub checkconfig () { #{{{
        foreach my $required (qw(url cgiurl)) {
 sub checkconfig () { #{{{
        foreach my $required (qw(url cgiurl)) {

-               if (! length $IkiWiki::config{$required}) {
-                       IkiWiki::error("Must specify $required when using the search plugin\n");
+               if (! length $config{$required}) {
+                       error("Must specify $required when using the search plugin\n");

                }
        }
 } #}}}
 
                }
        }
 } #}}}
 

-sub pagetemplate ($$) { #{{{
-       my $page=shift;
-       my $template=shift;
+my $form;
+sub pagetemplate (@) { #{{{
+       my %params=@_;
+       my $page=$params{page};
+       my $template=$params{template};

 
        # Add search box to page header.
 
        # Add search box to page header.

-       $template->param(searchform => qq{
-<form method="get" action="$IkiWiki::config{cgiurl}" id="searchform">
-<div>
-<input type="text" name="phrase" value="" size="16" />
-<input type="hidden" name="enc" value="UTF-8" />
-<input type="hidden" name="do" value="hyperestraier" />
-</div>
-</form>
-});
+       if ($template->query(name => "searchform")) {
+               if (! defined $form) {
+                       my $searchform = template("searchform.tmpl", blind_cache => 1);
+                       $searchform->param(searchaction => $config{cgiurl});
+                       $form=$searchform->output;
+               }
+
+               $template->param(searchform => $form);
+       }

 } #}}}
 
 sub delete (@) { #{{{
 } #}}}
 
 sub delete (@) { #{{{

-       IkiWiki::debug("cleaning hyperestraier search index");
-       IkiWiki::estcmd("purge -cl");
-       IkiWiki::estcfg();
+       debug("cleaning hyperestraier search index");
+       estcmd("purge -cl");
+       estcfg();

 } #}}}
 
 sub change (@) { #{{{
 } #}}}
 
 sub change (@) { #{{{

-       IkiWiki::debug("updating hyperestraier search index");
-       IkiWiki::estcmd("gather -cm -bc -cl -sd",
+       debug("updating hyperestraier search index");
+       estcmd("gather -cm -bc -cl -sd",

                map {
                map {

-                       $IkiWiki::config{destdir}."/".$IkiWiki::renderedfiles{IkiWiki::pagename($_)}
+                       Encode::encode_utf8($config{destdir}."/".$_)
+                               foreach @{$renderedfiles{pagename($_)}};

                } @_
        );
                } @_
        );

-       IkiWiki::estcfg();
+       estcfg();

 } #}}}
 
 sub cgi ($) { #{{{
 } #}}}
 
 sub cgi ($) { #{{{


@@ -64,32 +75,28 @@ sub cgi ($) { #{{{
 
        if (defined $cgi->param('phrase')) {
                # only works for GET requests
 
        if (defined $cgi->param('phrase')) {
                # only works for GET requests

-               chdir("$IkiWiki::config{wikistatedir}/hyperestraier") || IkiWiki::error("chdir: $!");
-               exec("./".IkiWiki::basename($IkiWiki::config{cgiurl})) || IkiWiki::error("estseek.cgi failed");
+               chdir("$config{wikistatedir}/hyperestraier") || error("chdir: $!");
+               exec("./".IkiWiki::basename($config{cgiurl})) || error("estseek.cgi failed");

        }
 } #}}}
 
        }
 } #}}}
 

-# Easier to keep these in the IkiWiki namespace.
-package IkiWiki;
-

 my $configured=0;
 sub estcfg () { #{{{
        return if $configured;
        $configured=1;
        
        my $estdir="$config{wikistatedir}/hyperestraier";
 my $configured=0;
 sub estcfg () { #{{{
        return if $configured;
        $configured=1;
        
        my $estdir="$config{wikistatedir}/hyperestraier";

-       my $cgi=basename($config{cgiurl});
+       my $cgi=IkiWiki::basename($config{cgiurl});

        $cgi=~s/\..*$//;
        $cgi=~s/\..*$//;

-       open(TEMPLATE, ">$estdir/$cgi.tmpl") ||
+       open(TEMPLATE, ">:utf8", "$estdir/$cgi.tmpl") ||

                error("write $estdir/$cgi.tmpl: $!");
                error("write $estdir/$cgi.tmpl: $!");

-       print TEMPLATE misctemplate("search", 
-               "<!--ESTFORM-->\n\n<!--ESTRESULT-->\n\n<!--ESTINFO-->\n\n");
+       print TEMPLATE IkiWiki::misctemplate("search", 
+               "<!--ESTFORM-->\n\n<!--ESTRESULT-->\n\n<!--ESTINFO-->\n\n",
+               baseurl => IkiWiki::dirname($config{cgiurl})."/");

        close TEMPLATE;
        open(TEMPLATE, ">$estdir/$cgi.conf") ||
                error("write $estdir/$cgi.conf: $!");
        close TEMPLATE;
        open(TEMPLATE, ">$estdir/$cgi.conf") ||
                error("write $estdir/$cgi.conf: $!");

-       my $template=HTML::Template->new(
-               filename => "$config{templatedir}/estseek.conf"
-       );
+       my $template=template("estseek.conf");

        eval q{use Cwd 'abs_path'};
        $template->param(
                index => $estdir,
        eval q{use Cwd 'abs_path'};
        $template->param(
                index => $estdir,


@@ -99,10 +106,11 @@ sub estcfg () { #{{{
        );
        print TEMPLATE $template->output;
        close TEMPLATE;
        );
        print TEMPLATE $template->output;
        close TEMPLATE;

-       $cgi="$estdir/".basename($config{cgiurl});
+       $cgi="$estdir/".IkiWiki::basename($config{cgiurl});

        unlink($cgi);
        unlink($cgi);

-       symlink("/usr/lib/estraier/estseek.cgi", $cgi) ||
-               error("symlink $cgi: $!");
+       my $estseek = defined $config{estseek} ? $config{estseek} : '/usr/lib/estraier/estseek.cgi';
+       symlink($estseek, $cgi) ||
+               error("symlink $estseek $cgi: $!");

 } # }}}
 
 sub estcmd ($;@) { #{{{
 } # }}}
 
 sub estcmd ($;@) { #{{{