refactor
parent
b073359b18
commit
cab1ac75c9
|
@ -66,9 +66,10 @@ sub dump ($) { #{{{
|
||||||
my $file=IkiWiki::possibly_foolish_untaint(shift);
|
my $file=IkiWiki::possibly_foolish_untaint(shift);
|
||||||
|
|
||||||
require IkiWiki::Setup::Standard;
|
require IkiWiki::Setup::Standard;
|
||||||
|
my @dump=IkiWiki::Setup::Standard::gendump("Setup file for ikiwiki.");
|
||||||
|
|
||||||
open (OUT, ">", $file) || die "$file: $!";
|
open (OUT, ">", $file) || die "$file: $!";
|
||||||
print OUT "$_\n" foreach IkiWiki::Setup::Standard::gendump();
|
print OUT "$_\n" foreach @dump;
|
||||||
close OUT;
|
close OUT;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
@ -71,7 +71,8 @@ sub dumpvalues ($@) { #{{{
|
||||||
return @ret;
|
return @ret;
|
||||||
} #}}}
|
} #}}}
|
||||||
|
|
||||||
sub gendump () { #{{{
|
sub gendump ($) { #{{{
|
||||||
|
my $description=shift;
|
||||||
my %setup=(%config);
|
my %setup=(%config);
|
||||||
my @ret;
|
my @ret;
|
||||||
|
|
||||||
|
@ -88,14 +89,15 @@ sub gendump () { #{{{
|
||||||
push @ret, "";
|
push @ret, "";
|
||||||
}
|
}
|
||||||
|
|
||||||
unshift @ret, "#!/usr/bin/perl
|
unshift @ret,
|
||||||
# Setup file for ikiwiki.
|
"#!/usr/bin/perl",
|
||||||
# Passing this to ikiwiki --setup will make ikiwiki generate wrappers and
|
"# $description",
|
||||||
# build the wiki.
|
"#",
|
||||||
#
|
"# Passing this to ikiwiki --setup will make ikiwiki generate",
|
||||||
# Remember to re-run ikiwiki --setup any time you edit this file.
|
"# wrappers and build the wiki.",
|
||||||
|
"#",
|
||||||
use IkiWiki::Setup::Standard {";
|
"# Remember to re-run ikiwiki --setup any time you edit this file.",
|
||||||
|
"use IkiWiki::Setup::Standard {";
|
||||||
push @ret, "}";
|
push @ret, "}";
|
||||||
|
|
||||||
return @ret;
|
return @ret;
|
||||||
|
|
Loading…
Reference in New Issue