refactor

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

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

ikiwiki.in

@@ -150,8 +150,8 @@ sub main () { #{{{
 	}
 
 	if ($config{dumpsetup}) {
-		require IkiWiki::Setup::Standard;
-		IkiWiki::Setup::Standard::dump($config{dumpsetup});
+		require IkiWiki::Setup;
+		IkiWiki::Setup::dump($config{dumpsetup});
 	}
 	elsif ($config{wrapper}) {
 		lockwiki();