summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--IkiWiki/Setup.pm94
-rw-r--r--IkiWiki/Setup/Standard.pm94
2 files changed, 96 insertions, 92 deletions
diff --git a/IkiWiki/Setup.pm b/IkiWiki/Setup.pm
index 3accf3591..369ff44d0 100644
--- a/IkiWiki/Setup.pm
+++ b/IkiWiki/Setup.pm
@@ -13,28 +13,28 @@ use open qw{:utf8 :std};
use File::Spec;
sub load ($;$) {
- my $setup=IkiWiki::possibly_foolish_untaint(shift);
+ my $file=IkiWiki::possibly_foolish_untaint(shift);
my $safemode=shift;
- $config{setupfile}=File::Spec->rel2abs($setup);
+ $config{setupfile}=File::Spec->rel2abs($file);
#translators: The first parameter is a filename, and the second
#translators: is a (probably not translated) error message.
- open (IN, $setup) || error(sprintf(gettext("cannot read %s: %s"), $setup, $!));
+ open (IN, $file) || error(sprintf(gettext("cannot read %s: %s"), $file, $!));
my $content;
{
local $/=undef;
- $content=<IN> || error("$setup: $!");
+ $content=<IN> || error("$file: $!");
}
close IN;
if ($content=~/(use\s+)?(IkiWiki::Setup::\w+)/) {
$config{setuptype}=$2;
if ($1) {
- error sprintf(gettext("cannot load %s in safe mode"), $setup)
+ error sprintf(gettext("cannot load %s in safe mode"), $file)
if $safemode;
eval IkiWiki::possibly_foolish_untaint($content);
- error("$setup: ".$@) if $@;
+ error("$file: ".$@) if $@;
}
else {
eval qq{require $config{setuptype}};
@@ -43,10 +43,22 @@ sub load ($;$) {
}
}
else {
- error sprintf(gettext("failed to parse %s"), $setup);
+ error sprintf(gettext("failed to parse %s"), $file);
}
}
+sub dump ($) {
+ my $file=IkiWiki::possibly_foolish_untaint(shift);
+
+ eval qq{require $config{setuptype}};
+ error $@ if $@;
+ my @dump=$config{setuptype}->gendump("Setup file for ikiwiki.");
+
+ open (OUT, ">", $file) || die "$file: $!";
+ print OUT "$_\n" foreach @dump;
+ close OUT;
+}
+
sub merge ($) {
# Merge setup into existing config and untaint.
my %setup=%{shift()};
@@ -147,16 +159,68 @@ sub getsetup () {
} keys %sections;
}
-sub dump ($) {
- my $file=IkiWiki::possibly_foolish_untaint(shift);
+sub commented_dump ($) {
+ my $dumpline=shift;
+
+ my %setup=(%config);
+ my @ret;
- eval qq{require $config{setuptype}};
- error $@ if $@;
- my @dump=$config{setuptype}->gendump("Setup file for ikiwiki.");
+ # disable logging to syslog while dumping
+ $config{syslog}=undef;
+
+ eval q{use Text::Wrap};
+ die $@ if $@;
+
+ my %section_plugins;
+ push @ret, commented_dumpvalues($dumpline, \%setup, IkiWiki::getsetup());
+ foreach my $pair (IkiWiki::Setup::getsetup()) {
+ my $plugin=$pair->[0];
+ my $setup=$pair->[1];
+ my %s=@{$setup};
+ my $section=$s{plugin}->{section};
+ push @{$section_plugins{$section}}, $plugin;
+ if (@{$section_plugins{$section}} == 1) {
+ push @ret, "", "\t".("#" x 70), "\t# $section plugins",
+ sub {
+ wrap("\t# (", "\t# ",
+ join(", ", @{$section_plugins{$section}})).")"
+ },
+ "\t".("#" x 70);
+ }
- open (OUT, ">", $file) || die "$file: $!";
- print OUT "$_\n" foreach @dump;
- close OUT;
+ my @values=commented_dumpvalues($dumpline, \%setup, @{$setup});
+ if (@values) {
+ push @ret, "", "\t# $plugin plugin", @values;
+ }
+ }
+
+ return map { ref $_ ? $_->() : $_ } @ret;
+}
+
+sub commented_dumpvalues ($$@) {
+ my $dumpline=shift;
+ my $setup=shift;
+ my @ret;
+ while (@_) {
+ my $key=shift;
+ my %info=%{shift()};
+
+ next if $key eq "plugin" || $info{type} eq "internal";
+
+ push @ret, "\t# ".$info{description} if exists $info{description};
+
+ if (exists $setup->{$key} && defined $setup->{$key}) {
+ push @ret, $dumpline->($key, $setup->{$key}, $info{type}, "");
+ delete $setup->{$key};
+ }
+ elsif (exists $info{example}) {
+ push @ret, $dumpline->($key, $info{example}, $info{type}, "#");
+ }
+ else {
+ push @ret, $dumpline->($key, "", $info{type}, "#");
+ }
+ }
+ return @ret;
}
1
diff --git a/IkiWiki/Setup/Standard.pm b/IkiWiki/Setup/Standard.pm
index 4022ff03c..9c177e497 100644
--- a/IkiWiki/Setup/Standard.pm
+++ b/IkiWiki/Setup/Standard.pm
@@ -1,7 +1,6 @@
#!/usr/bin/perl
# Standard ikiwiki setup module.
-# Parameters to import should be all the standard ikiwiki config stuff,
-# plus an array of wrappers to set up.
+# Parameters to import should be all the standard ikiwiki config stuff.
package IkiWiki::Setup::Standard;
@@ -13,6 +12,22 @@ sub import {
IkiWiki::Setup::merge($_[1]);
}
+sub gendump ($$) {
+ my $class=shift;
+ my $description=shift;
+
+ "#!/usr/bin/perl",
+ "# $description",
+ "#",
+ "# Passing this to ikiwiki --setup will make ikiwiki generate",
+ "# wrappers and build the wiki.",
+ "#",
+ "# Remember to re-run ikiwiki --setup any time you edit this file.",
+ "use IkiWiki::Setup::Standard {",
+ IkiWiki::Setup::commented_dump(\&dumpline),
+ "}";
+}
+
sub dumpline ($$$$) {
my $key=shift;
my $value=shift;
@@ -57,79 +72,4 @@ sub dumpline ($$$$) {
return "\t$prefix$key => $dumpedvalue,";
}
-sub dumpvalues ($@) {
- my $setup=shift;
- my @ret;
- while (@_) {
- my $key=shift;
- my %info=%{shift()};
-
- next if $key eq "plugin" || $info{type} eq "internal";
-
- push @ret, "\t# ".$info{description} if exists $info{description};
-
- if (exists $setup->{$key} && defined $setup->{$key}) {
- push @ret, dumpline($key, $setup->{$key}, $info{type}, "");
- delete $setup->{$key};
- }
- elsif (exists $info{example}) {
- push @ret, dumpline($key, $info{example}, $info{type}, "#");
- }
- else {
- push @ret, dumpline($key, "", $info{type}, "#");
- }
- }
- return @ret;
-}
-
-sub gendump ($$) {
- my $class=shift;
- my $description=shift;
-
- my %setup=(%config);
- my @ret;
-
- # disable logging to syslog while dumping
- $config{syslog}=undef;
-
- eval q{use Text::Wrap};
- die $@ if $@;
-
- my %section_plugins;
- push @ret, dumpvalues(\%setup, IkiWiki::getsetup());
- foreach my $pair (IkiWiki::Setup::getsetup()) {
- my $plugin=$pair->[0];
- my $setup=$pair->[1];
- my %s=@{$setup};
- my $section=$s{plugin}->{section};
- push @{$section_plugins{$section}}, $plugin;
- if (@{$section_plugins{$section}} == 1) {
- push @ret, "", "\t".("#" x 70), "\t# $section plugins",
- sub {
- wrap("\t# (", "\t# ",
- join(", ", @{$section_plugins{$section}})).")"
- },
- "\t".("#" x 70);
- }
-
- my @values=dumpvalues(\%setup, @{$setup});
- if (@values) {
- push @ret, "", "\t# $plugin plugin", @values;
- }
- }
-
- unshift @ret,
- "#!/usr/bin/perl",
- "# $description",
- "#",
- "# Passing this to ikiwiki --setup will make ikiwiki generate",
- "# wrappers and build the wiki.",
- "#",
- "# Remember to re-run ikiwiki --setup any time you edit this file.",
- "use IkiWiki::Setup::Standard {";
- push @ret, "}";
-
- return map { ref $_ ? $_->() : $_ } @ret;
-}
-
1