- my %setup=%{$_[1]};
-
-
- ::debug("generating wrappers..");
- foreach my $wrapper (@{$setup{wrapper}}) {
- ::gen_wrapper(%::config, %setup, %{$wrapper});
- }
-
- ::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;
- ::refresh();
-
- ::debug("done");
- ::saveindex();