| Line # | Revision | Author | |
|---|---|---|---|
| 1 | 3 | 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> |