From b073359b18be7940d5138037a6423b8c45bfa39f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 26 Jul 2008 15:39:41 -0400 Subject: refactor --- IkiWiki/Setup.pm | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'IkiWiki/Setup.pm') 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 -- cgit v1.2.3