summaryrefslogtreecommitdiff
path: root/IkiWiki
diff options
context:
space:
mode:
authorJoey Hess <joey@kodama.kitenet.net>2008-08-02 14:35:23 -0400
committerJoey Hess <joey@kodama.kitenet.net>2008-08-02 16:41:36 -0400
commitb0f4767448670ca53aa84e1748a887c7bfccd4f3 (patch)
treecfdfaef851fb7a526f39477e31c78ea8a9d22ae5 /IkiWiki
parent102f29e500df27a79b2895067f8a6a31bb2df7e6 (diff)
basic form display done
Diffstat (limited to 'IkiWiki')
-rw-r--r--IkiWiki/Plugin/websetup.pm60
1 files changed, 57 insertions, 3 deletions
diff --git a/IkiWiki/Plugin/websetup.pm b/IkiWiki/Plugin/websetup.pm
index e1536a1a7..a30475977 100644
--- a/IkiWiki/Plugin/websetup.pm
+++ b/IkiWiki/Plugin/websetup.pm
@@ -12,6 +12,56 @@ sub import { #{{{
call => \&formbuilder_setup);
} # }}}
+sub addfields ($$@) {
+ my $form=shift;
+ my $section=shift;
+
+ while (@_) {
+ my $key=shift;
+ my %info=%{shift()};
+
+ next if ! $info{safe} || $info{type} eq "internal";
+
+ my $description=exists $info{description_html} ? $info{description_html} : $info{description};
+
+ my $value=$config{$key};
+ # multiple plugins can have the same key
+ my $name=$section.".".$key;
+
+ if ($info{type} eq "string") {
+ $form->field(
+ name => $name,
+ label => $description,
+ comment => exists $info{example} && length $info{example} && $info{example} ne $value ? "<br/ ><small>Example: <tt>$info{example}</tt></small>" : "",
+ type => "text",
+ value => $value,
+ size => 60,
+ fieldset => $section,
+ );
+ }
+ elsif ($info{type} eq "integer") {
+ $form->field(
+ name => $name,
+ label => $description,
+ type => "text",
+ value => $value,
+ validate => '/^[0-9]+$/',
+ fieldset => $section,
+ );
+ }
+ elsif ($info{type} eq "boolean") {
+ $form->field(
+ name => $name,
+ label => "",
+ type => "checkbox",
+ value => $value,
+ options => [ [ 1 => $description ] ],
+ fieldset => $section,
+ );
+ }
+ }
+}
+
sub showform ($$) { #{{{
my $cgi=shift;
my $session=shift;
@@ -30,6 +80,7 @@ sub showform ($$) { #{{{
header => 0,
charset => "utf-8",
method => 'POST',
+ javascript => 0,
params => $cgi,
action => $config{cgiurl},
template => {type => 'div'},
@@ -46,9 +97,12 @@ sub showform ($$) { #{{{
$form->field(name => "do", type => "hidden", value => "setup",
force => 1);
-
- if (! $form->submitted) {
- # TODO
+ addfields($form, gettext("main"), IkiWiki::getsetup());
+ require IkiWiki::Setup;
+ foreach my $pair (IkiWiki::Setup::getsetup()) {
+ my $plugin=$pair->[0];
+ my $setup=$pair->[1];
+ addfields($form, $plugin." ".gettext("plugin"), @{$setup});
}
if ($form->submitted eq "Cancel") {