ikiwiki/IkiWiki/Setup.pm

#!/usr/bin/perl

use warnings;
use strict;

package IkiWiki;

sub setup () { # {{{
	my $setup=possibly_foolish_untaint($config{setup});
	delete $config{setup};
	open (IN, $setup) || error("read $setup: $!\n");
	my $code;
	{
		local $/=undef;
		$code=<IN>;
	}
	($code)=$code=~/(.*)/s;
	close IN;

	eval $code;
	error($@) if $@;
	exit;
} #}}}

1
Major code reoganisation, splitting up the single big file. The two goals kept in mind during this are a) to reduce load time for common cases like cgi and post-commit and b) make the code easier to navigate. This also modularises RCS support to the extent that it should be possible to drop in a module for some RCS other than svn, add a switch for it, and it pretty much just work. High chance I missed an edge case that breaks something, this is only barely tested at this point. 2006-03-23 07:51:15 +01:00			`#!/usr/bin/perl`

			`use warnings;`
			`use strict;`

			`package IkiWiki;`

			`sub setup () { # {{{`
			`my $setup=possibly_foolish_untaint($config{setup});`
			`delete $config{setup};`
			`open (IN, $setup) \|\| error("read $setup: $!\n");`
fixes 2006-03-24 03:42:19 +01:00			`my $code;`
			`{`
			`local $/=undef;`
			`$code=<IN>;`
			`}`
Major code reoganisation, splitting up the single big file. The two goals kept in mind during this are a) to reduce load time for common cases like cgi and post-commit and b) make the code easier to navigate. This also modularises RCS support to the extent that it should be possible to drop in a module for some RCS other than svn, add a switch for it, and it pretty much just work. High chance I missed an edge case that breaks something, this is only barely tested at this point. 2006-03-23 07:51:15 +01:00			`($code)=$code=~/(.*)/s;`
			`close IN;`

			`eval $code;`
			`error($@) if $@;`
			`exit;`
			`} #}}}`

			`1`