diff options
author | Joey Hess <joey@kitenet.net> | 2010-07-24 17:33:59 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-07-24 17:33:59 -0400 |
commit | 0aa621a833930795fd10c5a701b33b6a1705d03f (patch) | |
tree | 7da34800c93d338dfe57353ecbc9e1698e46b6e7 /IkiWiki | |
parent | a7454c0e3220153a1f770df796e45ef1c1ee95ae (diff) |
move wrapper building loop into Wrapper.pm
Diffstat (limited to 'IkiWiki')
-rw-r--r-- | IkiWiki/Wrapper.pm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/IkiWiki/Wrapper.pm b/IkiWiki/Wrapper.pm index bd134c9a3..927368fae 100644 --- a/IkiWiki/Wrapper.pm +++ b/IkiWiki/Wrapper.pm @@ -8,6 +8,26 @@ use File::Spec; use Data::Dumper; use IkiWiki; +sub gen_wrappers () { + debug(gettext("generating wrappers..")); + my %origconfig=(%config); + foreach my $wrapper (@{$config{wrappers}}) { + %config=(%origconfig, %{$wrapper}); + $config{verbose}=$config{setupverbose} + if exists $config{setupverbose}; + $config{syslog}=$config{setupsyslog} + if exists $config{setupsyslog}; + delete @config{qw(setupsyslog setupverbose wrappers genwrappers rebuild)}; + checkconfig(); + if (! $config{cgi} && ! $config{post_commit} && + ! $config{test_receive}) { + $config{post_commit}=1; + } + gen_wrapper(); + } + %config=(%origconfig); +} + sub gen_wrapper () { $config{srcdir}=File::Spec->rel2abs($config{srcdir}); $config{destdir}=File::Spec->rel2abs($config{destdir}); |