Mercurial > pub > Impl
view Lib/IMPL/Web/QueryHandler/PathInfoRewrite.pm @ 241:f48a1a9f4fa2
+Added ViewResult to allow implementation of the view environment.
*TTDocuments now storing creation parameters
*TTControls automatically propagating layout and title meta to their attributes
+Added UnauthorizaedException web exception
*minor fixes
author | sergey |
---|---|
date | Thu, 18 Oct 2012 04:49:55 +0400 |
parents | 4d0e1962161c |
children |
line wrap: on
line source
package IMPL::Web::QueryHandler::PathInfoRewrite; use strict; use parent qw(IMPL::Web::QueryHandler); __PACKAGE__->PassThroughArgs; use IMPL::Class::Property; BEGIN { public property pathinfoPrefix => prop_all; } sub Process { my ($this,$query,$nextHandler) = @_; my $pathInfo = $ENV{PATH_INFO}; if (my $rx = $this->pathinfoPrefix) { $pathInfo =~ s/^($rx)//; } local $ENV{PATH_INFO} = $pathInfo; scalar $nextHandler->(); } 1;