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

<%init>

  my $prj;
  if ( $r->uri =~ /^\/css\/(\w+)\// ) {
	$prj = $1;
	$request->{project} = $prj;
  } elsif ( $r->uri eq '/crossdomain.xml' ) {
  } elsif ( $r->uri =~ /\/(\w+)\// ) {
	$prj = $1;
	unless ( $m->comp( '/subs/get_project_data.msn', prj => $prj ) ) {
		warn "Не получается получить данные для проекта [$prj]. URI: [".$r->uri."]\n";
		&abort404;
	}
  } else {
	warn "Попытка обратиться к сайту мимо проекта\n"		if $DEBUG;
	&abort404;
  }
  if ( $r->uri =~ /\.css$/i ) {
        $r->content_type('text/css');
  } elsif ( $r->uri =~ /\.xml$/i ) {
        $r->content_type('text/xml; charset=utf-8');
  } elsif ( $r->uri =~ /\.html$/i || $r->uri =~ /\/$/ ) {
        $r->content_type('text/html; charset=utf-8');
  } else {
  }
  $m->call_next;

</%init>