Line # Revision Author
1 8 ahitrov@rambler.ru % if (@call)
2 % {
3 <& @call &>
4 % }
5 <%INIT>
6
7 use vars qw( $keeper $request $project );
8 $r->content_type('text/html');
9
10 my @path = split('/', $m->dhandler_arg());
11 my @call = ();
12
13 if (length($path[0]) < 1) { $path[0] = 'index.html' };
14 @call = (join('/',@path), %ARGS);
15
16 if (! $m->comp_exists($call[0]))
17 {
18 $m->clear_buffer();
19 $m->abort(404);
20 }
21
22 </%INIT>