Mercurial > pub > Impl

annotate Lib/IMPL/Web/Application.pm @ 395:212cc86e470b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Code cleanup DateTime locale support for HTTP requests
author sergey
date Thu, 20 Feb 2014 01:33:03 +0400
parents ec58c47edb52
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
1 package IMPL::Web::Application;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
2 use strict;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
3 use warnings;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
4
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
5 use CGI;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
6 use Carp qw(carp);
233
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 230
diff changeset
7 use IMPL::Const qw(:prop);
58
a35b60b16a99 Configuration, late activation
wizard
parents: 57
diff changeset
8
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
9 use IMPL::declare {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
10 require => {
244
a02b110da931 refactoring
sergey
parents: 242
diff changeset
11 Locator => 'IMPL::Web::AutoLocator',
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
12 TAction => 'IMPL::Web::Application::Action',
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
13 HttpResponse => 'IMPL::Web::HttpResponse',
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
14 TFactory => '-IMPL::Object::Factory',
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
15 Exception => 'IMPL::Exception',
285
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
16 ArgException => '-IMPL::InvalidArgumentException',
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 229
diff changeset
17 InvalidOperationException => '-IMPL::InvalidOperationException',
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
18 Loader => 'IMPL::Code::Loader'
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
19 },
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
20 base => [
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
21 'IMPL::Config' => '@_',
285
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
22 'IMPL::Object::Singleton' => undef
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
23 ],
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
24 props => [
244
a02b110da931 refactoring
sergey
parents: 242
diff changeset
25 baseUrl => PROP_RW,
233
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 230
diff changeset
26 actionFactory => PROP_RW,
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 230
diff changeset
27 handlers => PROP_RW | PROP_LIST,
357
ec58c47edb52 web security: code cleanup, refactoring
cin
parents: 339
diff changeset
28 securityFactory => PROP_RW,
244
a02b110da931 refactoring
sergey
parents: 242
diff changeset
29 output => PROP_RW,
285
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
30 location => PROP_RO,
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
31 _handler => PROP_RW
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
32 ]
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
33 };
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
34
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
35 sub CTOR {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
36 my ($this) = @_;
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
37
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
38 die IMPL::InvalidArgumentException->new( "handlers",
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
39 "At least one handler should be supplied" )
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
40 unless $this->handlers->Count;
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
41
244
a02b110da931 refactoring
sergey
parents: 242
diff changeset
42 $this->baseUrl('/') unless $this->baseUrl;
a02b110da931 refactoring
sergey
parents: 242
diff changeset
43
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
44 $this->actionFactory(TAction) unless $this->actionFactory;
244
a02b110da931 refactoring
sergey
parents: 242
diff changeset
45 $this->location(Locator->new(base => $this->baseUrl));
62
c64bd1bf727d Web application
wizard
parents: 60
diff changeset
46 }
c64bd1bf727d Web application
wizard
parents: 60
diff changeset
47
357
ec58c47edb52 web security: code cleanup, refactoring
cin
parents: 339
diff changeset
48 sub CreateSecurity {
ec58c47edb52 web security: code cleanup, refactoring
cin
parents: 339
diff changeset
49 my $factory = shift->securityFactory;
ec58c47edb52 web security: code cleanup, refactoring
cin
parents: 339
diff changeset
50 return $factory ? $factory->new() : undef;
ec58c47edb52 web security: code cleanup, refactoring
cin
parents: 339
diff changeset
51 }
ec58c47edb52 web security: code cleanup, refactoring
cin
parents: 339
diff changeset
52
285
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
53 sub ProcessRequest {
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
54 my ($this,$q) = @_;
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
55
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
56 die ArgException->new(q => 'A query is required')
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
57 unless $q;
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
58
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
59 my $handler = $this->_handler;
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
60 unless ($handler) {
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
61 $handler = _ChainHandler( $_, $handler ) foreach $this->handlers;
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
62 $this->_handler($handler);
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
63 }
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
64
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
65 my $action = $this->actionFactory->new(
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
66 query => $q,
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
67 application => $this,
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
68 );
328
63709a4e6da0 Security framework refactoring
cin
parents: 285
diff changeset
69
285
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
70 eval {
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
71 my $result = $handler->($action);
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
72
285
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
73 die InvalidOperationException->new("Invalid handlers result. A reference to IMPL::Web::HttpResponse is expexted.")
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
74 unless eval { $result->isa(HttpResponse) };
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
75
285
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
76 $result->PrintResponse( $this->output );
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
77 };
328
63709a4e6da0 Security framework refactoring
cin
parents: 285
diff changeset
78
339
97628101b765 refactoring: application now holds a security object factory rather than a security object
cin
parents: 328
diff changeset
79 $action->Dispose();
97628101b765 refactoring: application now holds a security object factory rather than a security object
cin
parents: 328
diff changeset
80
285
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
81 if ($@) {
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
82 my $e = $@;
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
83
285
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
84 HttpResponse->InternalError(
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
85 type => 'text/plain',
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
86 charset => 'utf-8',
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
87 body => $e
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
88 )->PrintResponse( $this->output );
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
89
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
90 }
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
91 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
92
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
93 sub _ChainHandler {
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
94 my ( $handler, $next ) = @_;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
95
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
96 if ( ref $handler eq 'CODE' ) {
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
97 return sub {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
98 my ($action) = @_;
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
99 return $handler->( $action, $next );
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
100 };
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
101 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
102 elsif ( eval { $handler->can('Invoke') } ) {
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
103 return sub {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
104 my ($action) = @_;
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
105 return $handler->Invoke( $action, $next );
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
106 };
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
107 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
108 elsif ( eval { $handler->isa(TFactory) } ) {
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
109 return sub {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
110 my ($action) = @_;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
111 my $inst = $handler->new();
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
112 return $inst->Invoke( $action, $next );
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
113 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
114 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
115 elsif ( $handler
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
116 and not ref $handler
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
117 and $handler =~ m/^(-)?(\w+(?:::\w+)*)$/ )
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
118 {
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
119 my $class = $2;
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
120 if ( not $1 ) {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
121 Loader->safe->Require($class);
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
122 die IMPL::InvalidArgumentException->(
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
123 "An invalid handler supplied", $handler
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
124 ) unless $class->can('Invoke');
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
125 }
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
126
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
127 return sub {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
128 my ($action) = @_;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
129 my $inst = $class->new();
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
130 return $inst->Invoke( $action, $next );
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
131 };
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
132 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
133 else {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
134 die new IMPL::InvalidArgumentException( "An invalid handler supplied",
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
135 $handler );
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
136 }
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
137 }
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
138
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
139 1;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
140
52
15d720913562 security in work
wizard@linux-odin.local
parents: 49
diff changeset
141 __END__
15d720913562 security in work
wizard@linux-odin.local
parents: 49
diff changeset
142
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
143 =pod
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
144
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
145 =head1 NAME
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
146
285
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
147 C<IMPL::Web::Application> Базовай класс для веб-приложения
244
a02b110da931 refactoring
sergey
parents: 242
diff changeset
148
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
149 =cut