X-Git-Url: https://sipb.mit.edu/gitweb.cgi/ikiwiki.git/blobdiff_plain/5dbd053da36d9ab7afc41540ef075c3b7b78ddf4..dec9b4e2c9eab4fd5cbd661eb475d96e9e5ca8c0:/IkiWiki/Setup.pm diff --git a/IkiWiki/Setup.pm b/IkiWiki/Setup.pm index 02a462082..f8bb664c4 100644 --- a/IkiWiki/Setup.pm +++ b/IkiWiki/Setup.pm @@ -8,10 +8,12 @@ use warnings; use strict; use IkiWiki; use open qw{:utf8 :std}; +use File::Spec; sub load ($) { # {{{ my $setup=IkiWiki::possibly_foolish_untaint(shift); - delete $config{setup}; + $config{setupfile}=File::Spec->rel2abs($setup); + #translators: The first parameter is a filename, and the second #translators: is a (probably not translated) error message. open (IN, $setup) || error(sprintf(gettext("cannot read %s: %s"), $setup, $!)); @@ -72,13 +74,14 @@ sub merge ($) { } #}}} sub getsetup () { #{{{ - # Gets all available setup data from all plugins. Returns an ordered list of - # [plugin, setup] pairs. + # Gets all available setup data from all plugins. Returns an + # ordered list of [plugin, setup] pairs. my @ret; - # disable logging to syslog while dumping, broken plugins may whine when loaded + # disable logging to syslog while dumping, broken plugins may + # whine when loaded my $syslog=$config{syslog}; - $config{syslog}=0; + $config{syslog}=undef; # Load all plugins, so that all setup options are available. my @plugins=grep { $_ ne $config{rcs} } sort(IkiWiki::listplugins());