urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

refactor

master
Joey Hess 2008-07-26 15:43:25 -04:00
parent b073359b18
commit cab1ac75c9
2 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
IkiWiki/Setup.pm
View File

@ -66,9 +66,10 @@ sub dump ($) { #{{{
my $file=IkiWiki::possibly_foolish_untaint(shift);
require IkiWiki::Setup::Standard;
my @dump=IkiWiki::Setup::Standard::gendump("Setup file for ikiwiki.");
open (OUT, ">", $file) || die "$file: $!";
print OUT "$_\n" foreach IkiWiki::Setup::Standard::gendump();
print OUT "$_\n" foreach @dump;
close OUT;
}

20
IkiWiki/Setup/Standard.pm
View File

@ -71,7 +71,8 @@ sub dumpvalues ($@) { #{{{
return @ret;
} #}}}
sub gendump () { #{{{
sub gendump ($) { #{{{
my $description=shift;
my %setup=(%config);
my @ret;
@ -88,14 +89,15 @@ sub gendump () { #{{{
push @ret, "";
}
unshift @ret, "#!/usr/bin/perl
# Setup file for ikiwiki.
# Passing this to ikiwiki --setup will make ikiwiki generate wrappers and
# build the wiki.
#
# Remember to re-run ikiwiki --setup any time you edit this file.
use IkiWiki::Setup::Standard {";
unshift @ret,
"#!/usr/bin/perl",
"# $description",
"#",
"# Passing this to ikiwiki --setup will make ikiwiki generate",
"# wrappers and build the wiki.",
"#",
"# Remember to re-run ikiwiki --setup any time you edit this file.",
"use IkiWiki::Setup::Standard {";
push @ret, "}";
return @ret;