summaryrefslogtreecommitdiff
path: root/IkiWiki
diff options
context:
space:
mode:
Diffstat (limited to 'IkiWiki')
-rw-r--r--IkiWiki/Setup.pm10
-rw-r--r--IkiWiki/Setup/Standard.pm8
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