diff options
Diffstat (limited to 'IkiWiki')
| -rw-r--r-- | IkiWiki/Setup.pm | 10 | ||||
| -rw-r--r-- | IkiWiki/Setup/Standard.pm | 8 |
2 files changed, 12 insertions, 6 deletions
diff --git a/IkiWiki/Setup.pm b/IkiWiki/Setup.pm index 9c45a8baf..adb8abb62 100644 --- a/IkiWiki/Setup.pm +++ b/IkiWiki/Setup.pm @@ -62,4 +62,14 @@ sub load ($) { # {{{ } } #}}} +sub dump ($) { #{{{ + my $file=IkiWiki::possibly_foolish_untaint(shift); + + require IkiWiki::Setup::Standard; + + open (OUT, ">", $file) || die "$file: $!"; + print OUT "$_\n" foreach IkiWiki::Setup::Standard::gendump(); + close OUT; +} + 1 diff --git a/IkiWiki/Setup/Standard.pm b/IkiWiki/Setup/Standard.pm index ed4331d61..22bfc38a4 100644 --- a/IkiWiki/Setup/Standard.pm +++ b/IkiWiki/Setup/Standard.pm @@ -71,9 +71,7 @@ sub dumpvalues ($@) { #{{{ return @ret; } #}}} -sub dump ($) { #{{{ - my $file=IkiWiki::possibly_foolish_untaint(shift); - +sub gendump () { #{{{ my %setup=(%config); my @ret; @@ -100,9 +98,7 @@ sub dump ($) { #{{{ use IkiWiki::Setup::Standard {"; push @ret, "}"; - open (OUT, ">", $file) || die "$file: $!"; - print OUT "$_\n" foreach @ret; - close OUT; + return @ret; } #}}} 1 |