Revision 8 (by ahitrov@rambler.ru, 2010/03/29 11:46:38) Contenido UTF-8 core files
% if (@call)
% {
<& @call &>
% }
<%INIT>

	use vars qw( $keeper $request $project );
	$r->content_type('text/html');

	my @path = split('/', $m->dhandler_arg());
	my @call = ();

	if (length($path[0]) < 1) { $path[0] = 'index.html' };
	@call = (join('/',@path), %ARGS);

	if (! $m->comp_exists($call[0]))
	{
		$m->clear_buffer();
		$m->abort(404);
	}

</%INIT>