X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/5513fb46543f28e531ed4ac0826e4651b10af702..47d179802d5f78365fa7077ae64de35f2892a1e4:/IkiWiki/Setup/Standard.pm?ds=sidebyside diff --git a/IkiWiki/Setup/Standard.pm b/IkiWiki/Setup/Standard.pm index d5135f3eb..f67c3829b 100644 --- a/IkiWiki/Setup/Standard.pm +++ b/IkiWiki/Setup/Standard.pm @@ -1,47 +1,15 @@ #!/usr/bin/perl # Standard ikiwiki setup module. # Parameters to import should be all the standard ikiwiki config stuff, -# plus hashes for cgiwrapper and svnwrapper, which specify any differing -# config stuff for them and cause the wrappers to be made. +# plus an array of wrappers to set up. + +package IkiWiki::Setup::Standard; use warnings; use strict; -use IkiWiki::Wrapper; -use IkiWiki::Render; - -package IkiWiki::Setup::Standard; sub import { - IkiWiki::setup_standard(@_); -} - -package IkiWiki; - -sub setup_standard { - my %setup=%{$_[1]}; - - debug("generating wrappers.."); - my %startconfig=(%config); - foreach my $wrapper (@{$setup{wrappers}}) { - %config=(%startconfig, verbose => 0, %setup, %{$wrapper}); - checkoptions(); - gen_wrapper(); - } - %config=(%startconfig); - - debug("rebuilding wiki.."); - foreach my $c (keys %setup) { - $config{$c}=possibly_foolish_untaint($setup{$c}) - if defined $setup{$c} && ! ref $setup{$c}; - } - $config{rebuild}=1; - - checkoptions(); - lockwiki(); - refresh(); - - debug("done"); - saveindex(); + $IkiWiki::Setup::raw_setup=$_[1]; } 1