X-Git-Url: https://sipb.mit.edu/gitweb.cgi/ikiwiki.git/blobdiff_plain/35ee7e44a62f9126a83c1243b549d47cc5ca7b43..d4c61b72813b880d86b316770f2e3819a6428202:/IkiWiki/Plugin/search.pm

diff --git a/IkiWiki/Plugin/search.pm b/IkiWiki/Plugin/search.pm
index 3cfc301e2..d35c33e76 100644
--- a/IkiWiki/Plugin/search.pm
+++ b/IkiWiki/Plugin/search.pm
@@ -31,7 +31,7 @@ sub getopt () { #{{{
 sub checkconfig () { #{{{
 	foreach my $required (qw(url cgiurl)) {
 		if (! length $config{$required}) {
-			error("Must specify $required when using the search plugin\n");
+			error(sprintf(gettext("Must specify %s when using the search plugin"), $required));
 		}
 	}
 } #}}}
@@ -55,13 +55,13 @@ sub pagetemplate (@) { #{{{
 } #}}}
 
 sub delete (@) { #{{{
-	debug("cleaning hyperestraier search index");
+	debug(gettext("cleaning hyperestraier search index"));
 	estcmd("purge -cl");
 	estcfg();
 } #}}}
 
 sub change (@) { #{{{
-	debug("updating hyperestraier search index");
+	debug(gettext("updating hyperestraier search index"));
 	estcmd("gather -cm -bc -cl -sd",
 		map {
 			Encode::encode_utf8($config{destdir}."/".$_)
@@ -74,7 +74,7 @@ sub change (@) { #{{{
 sub cgi ($) { #{{{
 	my $cgi=shift;
 
-	if (defined $cgi->param('phrase')) {
+	if (defined $cgi->param('phrase') || defined $cgi->param("navi")) {
 		# only works for GET requests
 		chdir("$config{wikistatedir}/hyperestraier") || error("chdir: $!");
 		exec("./".IkiWiki::basename($config{cgiurl})) || error("estseek.cgi failed");
@@ -89,14 +89,20 @@ sub estcfg () { #{{{
 	my $estdir="$config{wikistatedir}/hyperestraier";
 	my $cgi=IkiWiki::basename($config{cgiurl});
 	$cgi=~s/\..*$//;
-	open(TEMPLATE, ">:utf8", "$estdir/$cgi.tmpl") ||
-		error("write $estdir/$cgi.tmpl: $!");
+
+	my $newfile="$estdir/$cgi.tmpl.new";
+	my $cleanup = sub { unlink($newfile) };
+	open(TEMPLATE, ">:utf8", $newfile) || error("open $newfile: $!", $cleanup);
 	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: $!");
+		baseurl => IkiWiki::dirname($config{cgiurl})."/") ||
+			error("write $newfile: $!", $cleanup);
+	close TEMPLATE || error("save $newfile: $!", $cleanup);
+	rename($newfile, "$estdir/$cgi.tmpl") ||
+		error("rename $newfile: $!", $cleanup);
+	
+	$newfile="$estdir/$cgi.conf";
+	open(TEMPLATE, ">$newfile") || error("open $newfile: $!", $cleanup);
 	my $template=template("estseek.conf");
 	eval q{use Cwd 'abs_path'};
 	$template->param(
@@ -105,13 +111,15 @@ sub estcfg () { #{{{
 		destdir => abs_path($config{destdir}),
 		url => $config{url},
 	);
-	print TEMPLATE $template->output;
-	close TEMPLATE;
+	print TEMPLATE $template->output || error("write $newfile: $!", $cleanup);
+	close TEMPLATE || error("save $newfile: $!", $cleanup);
+	rename($newfile, "$estdir/$cgi.conf") ||
+		error("rename $newfile: $!", $cleanup);
+
 	$cgi="$estdir/".IkiWiki::basename($config{cgiurl});
 	unlink($cgi);
 	my $estseek = defined $config{estseek} ? $config{estseek} : '/usr/lib/estraier/estseek.cgi';
-	symlink($estseek, $cgi) ||
-		error("symlink $estseek $cgi: $!");
+	symlink($estseek, $cgi) || error("symlink $estseek $cgi: $!");
 } # }}}
 
 sub estcmd ($;@) { #{{{