From 7baa6320e0dfb97bde1af3a3bbc46ace53f19093 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kodama.kitenet.net>
Date: Sat, 2 Aug 2008 23:32:40 -0400
Subject: [PATCH] rebuild detection

---
 IkiWiki/Plugin/websetup.pm | 43 +++++++++++++++++++++++++++++++-------
 1 file changed, 35 insertions(+), 8 deletions(-)

diff --git a/IkiWiki/Plugin/websetup.pm b/IkiWiki/Plugin/websetup.pm
index 24ccee40f..a0c396067 100644
--- a/IkiWiki/Plugin/websetup.pm
+++ b/IkiWiki/Plugin/websetup.pm
@@ -85,7 +85,7 @@ sub showfields ($$$@) { #{{{
 	my %shownfields;
 	if (defined $plugin) {
 		if (showplugintoggle($form, $plugin, $enabled, $section)) {
-			$shownfields{"enable.$plugin"}=$plugin;
+			$shownfields{"enable.$plugin"}=[$plugin];
 		}
 		elsif (! $enabled) {
 		    # plugin not enabled and cannot be, so skip showing
@@ -154,7 +154,7 @@ sub showfields ($$$@) { #{{{
 			$form->text(gettext("Note: Disabled options cannot be configured here, but only by editing the setup file."));
 		}
 		else {
-			$shownfields{$name}=$key;
+			$shownfields{$name}=[$key, \%info];
 		}
 	}
 
@@ -249,7 +249,7 @@ sub showform ($$) { #{{{
 	# list all remaining plugins (with no setup options) at the end
 	foreach (sort keys %plugins) {
 		if (showplugintoggle($form, $_, $enabled_plugins{$_}, gettext("other plugins"))) {
-			$fields{"enable.$_"}=$_;
+			$fields{"enable.$_"}=[$_];
 		}
 	}
 	
@@ -257,24 +257,51 @@ sub showform ($$) { #{{{
 		IkiWiki::redirect($cgi, $config{url});
 		return;
 	}
-	elsif ($form->submitted eq 'Save Setup' && $form->validate) {
+	elsif (($form->submitted eq 'Save Setup' || $form->submitted eq 'Rebuild Wiki') && $form->validate) {
+		my %rebuild;
 		foreach my $field (keys %fields) {
 			# TODO plugin enable/disable
 			next if $field=~/^enable\./; # plugin
 
-			my $key=$fields{$field};
+			my $key=$fields{$field}->[0];
+			my %info=%{$fields{$field}->[1]};
 			my $value=$form->field($field);
 
+			if (! $info{safe}) {
+				error("unsafe field $key"); # should never happen
+			}
+
 			next unless defined $value;
 			# Avoid setting fields to empty strings,
 			# if they were not set before.
 			next if ! defined $config{$key} && ! length $value;
 
+			if ($info{rebuild} && (! defined $config{$key} || $config{$key} ne $value)) {
+				$rebuild{$field}=1;
+			}
+
 			$config{$key}=$value;
 		}
-		# TODO save to real path
-		IkiWiki::Setup::dump("/tmp/s");
-		$form->text(gettext("Setup saved."));
+
+		if (%rebuild && $form->submitted eq 'Save Setup') {
+			$form->text(gettext("The configuration changes shown below require a wiki rebuild to take effect."));
+			foreach my $field ($form->field) {
+				next if $rebuild{$field};
+				$form->field(name => $field, type => "hidden",
+					force => 1);
+			}
+			$form->reset(0); # doesn't really make sense here
+			$buttons=["Rebuild Wiki", "Cancel"];
+		}
+		else {
+			# TODO save to real path
+			IkiWiki::Setup::dump("/tmp/s");
+			$form->text(gettext("Setup saved."));
+
+			if (%rebuild) {
+				# TODO rebuild
+			}
+		}
 	}
 
 	IkiWiki::showform($form, $buttons, $session, $cgi);
-- 
2.26.2