add example wrapper and fix formatting
parent
c56618133c
commit
38618838c9
|
@ -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,
|
||||
|
|
|
@ -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,";
|
||||
|
|
Loading…
Reference in New Issue