Repository List / Contenido / utf8 / samples / promosuite / comps / www / dhandler @ r296

<& @call &>
%#<pre><% Dumper(\@call) %></pre>
%#<pre><% Dumper($request->{project_profile}) %></pre>
<%args>
</%args>
<%init>

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

  shift @path;
  if ( @path ) {
	@call = (join('/', @path), %ARGS);
  } else {
	@call = ('index.html', %ARGS);
  }
  &abort404	unless $m->comp_exists($call[0]);
  if ( $state->development ) {
	unless ( $path[-1] =~ /\.(jpg|png|gif|swf)$/i ) {
		$r->content_type('text/html');
	}
  }

</%init>