allow multiple setup file types, and support safe parsing

[git.ikiwiki.info.git] / IkiWiki / Setup / Standard.pm

diff --git a/IkiWiki/Setup/Standard.pm b/IkiWiki/Setup/Standard.pm
index bdf52f25a58da20e688b1081cf18de4b4cc568ad..4022ff03cb14941296e03f87288e3f2e2f890130 100644 (file)
--- a/IkiWiki/Setup/Standard.pm
+++ b/IkiWiki/Setup/Standard.pm
@@ -82,8 +82,10 @@ sub dumpvalues ($@) {
        return @ret;
 }
 
-sub gendump ($) {
+sub gendump ($$) {
+       my $class=shift;
        my $description=shift;
+
        my %setup=(%config);
        my @ret;
        
@@ -102,12 +104,12 @@ sub gendump ($) {
                my $section=$s{plugin}->{section};
                push @{$section_plugins{$section}}, $plugin;
                if (@{$section_plugins{$section}} == 1) {
-                       push @ret, "", "\t#", "\t# $section plugins",
+                       push @ret, "", "\t".("#" x 70), "\t# $section plugins",
                                sub {
-                                       wrap("\t#   (", "\t#   ",
+                                       wrap("\t#   (", "\t#    ",
                                                join(", ", @{$section_plugins{$section}})).")"
                                },
-                               "\t#";
+                               "\t".("#" x 70);
                }
 
                my @values=dumpvalues(\%setup, @{$setup});