Mercurial > pub > Impl

comparison Lib/IMPL/Web/Application/Action.pm @ 62:c64bd1bf727d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Web application Page query handler
author wizard
date Fri, 12 Mar 2010 16:23:46 +0300
parents bf59ee1cd506
children 76b878ad6596
comparison
equal deleted inserted replaced
61:8d0ae27d15c1 62:c64bd1bf727d
1 package IMPL::Web::Application::Action; 1 package IMPL::Web::Application::Action;
2 use strict; 2 use strict;
3 3
4 use base qw(IMPL::Object); 4 use base qw(IMPL::Object IMPL::Object::Autofill);
5 5
6 use IMPL::Class::Property; 6 use IMPL::Class::Property;
7 7
8 BEGIN { 8 BEGIN {
9 public property application => prop_get | owner_set; 9 public property application => prop_get | owner_set;
10 public property request => prop_get | owner_set; 10 public property query => prop_get | owner_set;
11 public property response => prop_get | owner_set; 11 public property response => prop_get | owner_set;
12 12
13 private property _entryPoint => prop_all; 13 private property _entryPoint => prop_all;
14 } 14 }
15 15
71 71
72 Action->Invoke() { 72 Action->Invoke() {
73 TDocumentOut->Invoke($Action,$nextHandler) { 73 TDocumentOut->Invoke($Action,$nextHandler) {
74 my $result = $nextHandler() { 74 my $result = $nextHandler() {
75 $AuthenticateMethod($Action,$nextHandler) { 75 $AuthenticateMethod($Action,$nextHandler) {
76 my $context = $Action->application->security->Authenticate($Action->request,$Action->response); 76 my $context = $Action->application->security->Authenticate($Action->query,$Action->response);
77 return $context->Impersonate($nextHandler) { 77 return $context->Impersonate($nextHandler) {
78 $objSecCallToMethod->Invoke($Action,undef) { 78 $objSecCallToMethod->Invoke($Action,undef) {
79 IMPL::Security->AccessCheck($target,$method); 79 IMPL::Security->AccessCheck($target,$method);
80 return $target->$method(); 80 return $target->$method();
81 } 81 }