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); 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;
} }

20
IkiWiki/Setup/Standard.pm
View File

@ -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;