plugin safe/rebuild controls
parent
43307fb215
commit
9e0cbb73fe
|
@ -5,12 +5,6 @@ use warnings;
|
||||||
use strict;
|
use strict;
|
||||||
use IkiWiki 2.00;
|
use IkiWiki 2.00;
|
||||||
|
|
||||||
my @rcs_plugins=(qw{git svn bzr mercurial monotone tla norcs});
|
|
||||||
|
|
||||||
# amazon_s3 is not something that should be enabled via the web.
|
|
||||||
# external is not a standalone plugin.
|
|
||||||
my @force_plugins=(qw{amazon_s3 external});
|
|
||||||
|
|
||||||
sub import { #{{{
|
sub import { #{{{
|
||||||
hook(type => "getsetup", id => "websetup", call => \&getsetup);
|
hook(type => "getsetup", id => "websetup", call => \&getsetup);
|
||||||
hook(type => "checkconfig", id => "websetup", call => \&checkconfig);
|
hook(type => "checkconfig", id => "websetup", call => \&checkconfig);
|
||||||
|
@ -64,12 +58,13 @@ sub showfields ($$$@) { #{{{
|
||||||
my $enabled=shift;
|
my $enabled=shift;
|
||||||
|
|
||||||
my @show;
|
my @show;
|
||||||
|
my %plugininfo;
|
||||||
while (@_) {
|
while (@_) {
|
||||||
my $key=shift;
|
my $key=shift;
|
||||||
my %info=%{shift()};
|
my %info=%{shift()};
|
||||||
|
|
||||||
# skip internal settings
|
# skip internal settings
|
||||||
next if $info{type} eq "internal";
|
next if defined $info{type} && $info{type} eq "internal";
|
||||||
# XXX hashes not handled yet
|
# XXX hashes not handled yet
|
||||||
next if ref $config{$key} && ref $config{$key} eq 'HASH' || ref $info{example} eq 'HASH';
|
next if ref $config{$key} && ref $config{$key} eq 'HASH' || ref $info{example} eq 'HASH';
|
||||||
# maybe skip unsafe settings
|
# maybe skip unsafe settings
|
||||||
|
@ -79,24 +74,24 @@ sub showfields ($$$@) { #{{{
|
||||||
# these are handled specially, so don't show
|
# these are handled specially, so don't show
|
||||||
next if $key eq 'add_plugins' || $key eq 'disable_plugins';
|
next if $key eq 'add_plugins' || $key eq 'disable_plugins';
|
||||||
|
|
||||||
|
if ($key eq 'plugin') {
|
||||||
|
%plugininfo=%info;
|
||||||
|
next;
|
||||||
|
}
|
||||||
|
|
||||||
push @show, $key, \%info;
|
push @show, $key, \%info;
|
||||||
}
|
}
|
||||||
|
|
||||||
return unless @show;
|
my $plugin_forced=defined $plugin && (! $plugininfo{safe} ||
|
||||||
|
(exists $config{websetup_force_plugins} && grep { $_ eq $plugin } @{$config{websetup_force_plugins}}));
|
||||||
my $section=defined $plugin ? $plugin." ".gettext("plugin") : gettext("main");
|
if ($plugin_forced && ! $enabled) {
|
||||||
|
# plugin is disabled and cannot be turned on,
|
||||||
my %shownfields;
|
# so skip its configuration
|
||||||
if (defined $plugin) {
|
|
||||||
if (showplugintoggle($form, $plugin, $enabled, $section)) {
|
|
||||||
$shownfields{"enable.$plugin"}=[$plugin];
|
|
||||||
}
|
|
||||||
elsif (! $enabled) {
|
|
||||||
# plugin not enabled and cannot be, so skip showing
|
|
||||||
# its configuration
|
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
}
|
|
||||||
|
my %shownfields;
|
||||||
|
my $section=defined $plugin ? $plugin." ".gettext("plugin") : "main";
|
||||||
|
|
||||||
while (@show) {
|
while (@show) {
|
||||||
my $key=shift @show;
|
my $key=shift @show;
|
||||||
|
@ -169,40 +164,32 @@ sub showfields ($$$@) { #{{{
|
||||||
|
|
||||||
if (! $info{safe}) {
|
if (! $info{safe}) {
|
||||||
$form->field(name => $name, disabled => 1);
|
$form->field(name => $name, disabled => 1);
|
||||||
$form->text(gettext("Note: Disabled options cannot be configured here, but only by editing the setup file."));
|
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
$shownfields{$name}=[$key, \%info];
|
$shownfields{$name}=[$key, \%info];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
return %shownfields;
|
if (defined $plugin && (! $plugin_forced || $config{websetup_advanced})) {
|
||||||
} #}}}
|
my $name="enable.$plugin";
|
||||||
|
$section="plugins" unless %shownfields;
|
||||||
sub showplugintoggle ($$$$) { #{{{
|
|
||||||
my $form=shift;
|
|
||||||
my $plugin=shift;
|
|
||||||
my $enabled=shift;
|
|
||||||
my $section=shift;
|
|
||||||
|
|
||||||
if (exists $config{websetup_force_plugins} &&
|
|
||||||
grep { $_ eq $plugin } @{$config{websetup_force_plugins}}) {
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
if (grep { $_ eq $plugin } @force_plugins, @rcs_plugins) {
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
$form->field(
|
$form->field(
|
||||||
name => "enable.$plugin",
|
name => $name,
|
||||||
label => "",
|
label => "",
|
||||||
type => "checkbox",
|
type => "checkbox",
|
||||||
options => [ [ 1 => sprintf(gettext("enable %s?"), $plugin) ] ],
|
options => [ [ 1 => sprintf(gettext("enable %s?"), $plugin) ] ],
|
||||||
value => $enabled,
|
value => $enabled,
|
||||||
fieldset => $section,
|
fieldset => $section,
|
||||||
);
|
);
|
||||||
|
if ($plugin_forced) {
|
||||||
|
$form->field(name => $name, disabled => 1);
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
$shownfields{$name}=[$name, \%plugininfo];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
return 1;
|
return %shownfields;
|
||||||
} #}}}
|
} #}}}
|
||||||
|
|
||||||
sub showform ($$) { #{{{
|
sub showform ($$) { #{{{
|
||||||
|
@ -226,6 +213,10 @@ sub showform ($$) { #{{{
|
||||||
javascript => 0,
|
javascript => 0,
|
||||||
reset => 1,
|
reset => 1,
|
||||||
params => $cgi,
|
params => $cgi,
|
||||||
|
fieldsets => [
|
||||||
|
[main => gettext("main")],
|
||||||
|
[plugins => gettext("plugins")]
|
||||||
|
],
|
||||||
action => $config{cgiurl},
|
action => $config{cgiurl},
|
||||||
template => {type => 'div'},
|
template => {type => 'div'},
|
||||||
stylesheet => IkiWiki::baseurl()."style.css",
|
stylesheet => IkiWiki::baseurl()."style.css",
|
||||||
|
@ -272,9 +263,6 @@ sub showform ($$) { #{{{
|
||||||
my $plugin=$pair->[0];
|
my $plugin=$pair->[0];
|
||||||
my $setup=$pair->[1];
|
my $setup=$pair->[1];
|
||||||
|
|
||||||
# skip all rcs plugins except for the one in use
|
|
||||||
next if $plugin ne $config{rcs} && grep { $_ eq $plugin } @rcs_plugins;
|
|
||||||
|
|
||||||
my %shown=showfields($form, $plugin, $enabled_plugins{$plugin}, @{$setup});
|
my %shown=showfields($form, $plugin, $enabled_plugins{$plugin}, @{$setup});
|
||||||
if (%shown) {
|
if (%shown) {
|
||||||
delete $plugins{$plugin};
|
delete $plugins{$plugin};
|
||||||
|
@ -282,13 +270,6 @@ 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.$_"}=[$_];
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($form->submitted eq "Cancel") {
|
if ($form->submitted eq "Cancel") {
|
||||||
IkiWiki::redirect($cgi, $config{url});
|
IkiWiki::redirect($cgi, $config{url});
|
||||||
return;
|
return;
|
||||||
|
|
|
@ -72,11 +72,12 @@ sub merge ($) {
|
||||||
} #}}}
|
} #}}}
|
||||||
|
|
||||||
sub getsetup () { #{{{
|
sub getsetup () { #{{{
|
||||||
# Gets all available setup data from all plugins. Returns an ordered list of
|
# Gets all available setup data from all plugins. Returns an
|
||||||
# [plugin, setup] pairs.
|
# ordered list of [plugin, setup] pairs.
|
||||||
my @ret;
|
my @ret;
|
||||||
|
|
||||||
# disable logging to syslog while dumping, broken plugins may whine when loaded
|
# disable logging to syslog while dumping, broken plugins may
|
||||||
|
# whine when loaded
|
||||||
my $syslog=$config{syslog};
|
my $syslog=$config{syslog};
|
||||||
$config{syslog}=0;
|
$config{syslog}=0;
|
||||||
|
|
||||||
|
|
|
@ -62,7 +62,7 @@ sub dumpvalues ($@) { #{{{
|
||||||
my $key=shift;
|
my $key=shift;
|
||||||
my %info=%{shift()};
|
my %info=%{shift()};
|
||||||
|
|
||||||
next if $info{type} eq "internal";
|
next if $info{type} eq "internal" || $key eq "plugin";
|
||||||
|
|
||||||
push @ret, "\t# ".$info{description} if exists $info{description};
|
push @ret, "\t# ".$info{description} if exists $info{description};
|
||||||
|
|
||||||
|
|
|
@ -2,18 +2,15 @@
|
||||||
[[!tag type/useful]]
|
[[!tag type/useful]]
|
||||||
|
|
||||||
This plugin allows wiki admins to configure the wiki using a web interface,
|
This plugin allows wiki admins to configure the wiki using a web interface,
|
||||||
rather than editing the setup file directly. A "Wiki Setup" button is added to the
|
rather than editing the setup file directly. A "Wiki Setup" button is added
|
||||||
admins' preferences page.
|
to the admins' preferences page.
|
||||||
|
|
||||||
Most settings can be modified using the web interface. Some settings are
|
Most settings can be modified using the web interface. Plugins can be
|
||||||
not considered safe enough to be manipulated over the web; these are still
|
enabled and disabled using it too. Some settings are not considered safe
|
||||||
shown, by default, but cannot be modified. To hide them, set `websetup_show_unsafe`
|
enough to be manipulated over the web; these are still shown, by default,
|
||||||
to false in the setup file. A few settings have too complex a data type
|
but cannot be modified. To hide them, set `websetup_show_unsafe` to false
|
||||||
to be configured via the web.
|
in the setup file. A few settings have too complex a data type to be
|
||||||
|
configured via the web.
|
||||||
|
|
||||||
The web interface can also be used to enable and disable plugins, with
|
Plugins that should not be enabled/disabled via the web interface can be
|
||||||
limitations. The plugin for the [[revision_control_system|rcs]] being used
|
|
||||||
cannot be enabled/disabled, and no other rcs plugins can be enabled. A few
|
|
||||||
problematic/unsafe plugins are also blacklisted from being enabled. Other
|
|
||||||
plugins that should not be enabled/disabled via the web interface can be
|
|
||||||
listed in `websetup_force_plugins` in the setup file.
|
listed in `websetup_force_plugins` in the setup file.
|
||||||
|
|
|
@ -379,12 +379,13 @@ die if not, which will cause the plugin to not be offered in the configuration
|
||||||
interface.
|
interface.
|
||||||
|
|
||||||
The data returned is a list of `%config` options, followed by a hash
|
The data returned is a list of `%config` options, followed by a hash
|
||||||
describing the option. For example:
|
describing the option. There can also be an item named "plugin", which
|
||||||
|
describes the plugin as a whole. For example:
|
||||||
|
|
||||||
return
|
return
|
||||||
option_foo => {
|
option_foo => {
|
||||||
type => "boolean",
|
type => "boolean",
|
||||||
description => "enable foo",
|
description => "enable foo?",
|
||||||
advanced => 1,
|
advanced => 1,
|
||||||
safe => 1,
|
safe => 1,
|
||||||
rebuild => 1,
|
rebuild => 1,
|
||||||
|
@ -392,10 +393,15 @@ describing the option. For example:
|
||||||
option_bar => {
|
option_bar => {
|
||||||
type => "string",
|
type => "string",
|
||||||
example => "hello",
|
example => "hello",
|
||||||
description => "what to say",
|
description => "option bar",
|
||||||
safe => 1,
|
safe => 1,
|
||||||
rebuild => 0,
|
rebuild => 0,
|
||||||
},
|
},
|
||||||
|
plugin => {
|
||||||
|
description => "description of this plugin",
|
||||||
|
safe => 1,
|
||||||
|
rebuild => 1,
|
||||||
|
},
|
||||||
|
|
||||||
* `type` can be "boolean", "string", "integer", "pagespec",
|
* `type` can be "boolean", "string", "integer", "pagespec",
|
||||||
or "internal" (used for values that are not user-visible). The type is
|
or "internal" (used for values that are not user-visible). The type is
|
||||||
|
@ -410,7 +416,12 @@ describing the option. For example:
|
||||||
* `safe` should be false if the option should not be displayed in unsafe
|
* `safe` should be false if the option should not be displayed in unsafe
|
||||||
configuration methods, such as the web interface. Anything that specifies
|
configuration methods, such as the web interface. Anything that specifies
|
||||||
a command to run, a path on disk, or a regexp should be marked as unsafe.
|
a command to run, a path on disk, or a regexp should be marked as unsafe.
|
||||||
* `rebuild` should be true if changing the option will require a wiki rebuild.
|
If a plugin is marked as unsafe, that prevents it from being
|
||||||
|
enabled/disabled.
|
||||||
|
* `rebuild` should be true if changing the option (or enabling/disabling
|
||||||
|
the plugin) will require a wiki rebuild, false if no rebuild is needed,
|
||||||
|
and undef if a rebuild could be needed in some circumstances, but is not
|
||||||
|
strictly required.
|
||||||
|
|
||||||
## Plugin interface
|
## Plugin interface
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue