add example wrapper and fix formatting

master
Joey Hess 2008-07-26 19:49:45 -04:00
parent c56618133c
commit 38618838c9
2 changed files with 17 additions and 1 deletions

View File

@ -119,7 +119,13 @@ sub getsetup () { #{{{
},
wrappers => {
type => "string",
default => undef,
example => [
{
cgi => 1,
wrapper => "/var/www/wiki/ikiwiki.cgi",
wrappermode => "06755",
},
],
description => "definitions of wrappers to generate",
safe => 0,
rebuild => 0,

View File

@ -40,7 +40,17 @@ sub dumpline ($$$$) { #{{{
else {
$dumpedvalue=Dumper($value);
chomp $dumpedvalue;
if (length $prefix) {
# add to second and subsequent lines
my @lines=split(/\n/, $dumpedvalue);
$dumpedvalue="";
for (my $x=0; $x <= $#lines; $x++) {
$lines[$x] =~ s/^\t//;
$dumpedvalue.="\t".($x ? $prefix : "").$lines[$x]."\n";
}
}
$dumpedvalue=~s/^\t//;
chomp $dumpedvalue;
}
return "\t$prefix$key => $dumpedvalue,";