annotate Lib/IMPL/Web/Application/Action.pm @ 98:00d88c5e8203

minor changes
author wizard
date Wed, 05 May 2010 01:07:31 +0400 (2010-05-04)
parents 9f5795a10939
children b56ebc31bf18
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
1 package IMPL::Web::Application::Action;
55
609b59c9f03c Web application
wizard
parents: 52
diff changeset
2 use strict;
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
3
62
c64bd1bf727d Web application
wizard
parents: 57
diff changeset
4 use base qw(IMPL::Object IMPL::Object::Autofill);
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
5
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
6 __PACKAGE__->PassThroughArgs;
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
7
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
8 use IMPL::Class::Property;
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
9
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
10 BEGIN {
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
11 public property application => prop_get | owner_set;
62
c64bd1bf727d Web application
wizard
parents: 57
diff changeset
12 public property query => prop_get | owner_set;
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
13 public property response => prop_get | owner_set;
65
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
14 public property responseFactory => prop_get | owner_set;
55
609b59c9f03c Web application
wizard
parents: 52
diff changeset
15
609b59c9f03c Web application
wizard
parents: 52
diff changeset
16 private property _entryPoint => prop_all;
609b59c9f03c Web application
wizard
parents: 52
diff changeset
17 }
609b59c9f03c Web application
wizard
parents: 52
diff changeset
18
65
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
19 sub CTOR {
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
20 my ($this) = @_;
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
21
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
22 $this->responseFactory('IMPL::Web::Application::Response') unless $this->responseFactory;
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
23 $this->response( $this->responseFactory->new(query => $this->query) );
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
24 }
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
25
55
609b59c9f03c Web application
wizard
parents: 52
diff changeset
26 sub Invoke {
609b59c9f03c Web application
wizard
parents: 52
diff changeset
27 my ($this) = @_;
609b59c9f03c Web application
wizard
parents: 52
diff changeset
28
609b59c9f03c Web application
wizard
parents: 52
diff changeset
29 if ($this->_entryPoint) {
609b59c9f03c Web application
wizard
parents: 52
diff changeset
30 $this->_entryPoint->();
609b59c9f03c Web application
wizard
parents: 52
diff changeset
31 } else {
609b59c9f03c Web application
wizard
parents: 52
diff changeset
32 die new IMPL::InvalidOperationException("At least one handler is required");
609b59c9f03c Web application
wizard
parents: 52
diff changeset
33 }
609b59c9f03c Web application
wizard
parents: 52
diff changeset
34 }
609b59c9f03c Web application
wizard
parents: 52
diff changeset
35
65
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
36 sub ReinitResponse {
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
37 my ($this) = @_;
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
38
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
39 die new IMPL::InvalidOperationException("Response already sent") if $this->response->isHeaderPrinted;
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
40
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
41 $this->response->Discard;
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
42 $this->response($this->responseFactory->new(query => $this->query));
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
43 }
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
44
55
609b59c9f03c Web application
wizard
parents: 52
diff changeset
45 sub ChainHandler {
609b59c9f03c Web application
wizard
parents: 52
diff changeset
46 my ($this,$handler) = @_;
609b59c9f03c Web application
wizard
parents: 52
diff changeset
47
609b59c9f03c Web application
wizard
parents: 52
diff changeset
48 my $delegateNext = $this->_entryPoint();
609b59c9f03c Web application
wizard
parents: 52
diff changeset
49
609b59c9f03c Web application
wizard
parents: 52
diff changeset
50 if (ref $handler eq 'CODE') {
56
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
51 $this->_entryPoint( sub {
55
609b59c9f03c Web application
wizard
parents: 52
diff changeset
52 $handler->($this,$delegateNext);
56
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
53 } );
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
54 } elsif (ref $handler and UNIVERSAL::isa($handler,'IMPL::Web::QueryHandler')) {
56
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
55 $this->_entryPoint( sub {
55
609b59c9f03c Web application
wizard
parents: 52
diff changeset
56 $handler->Invoke($this,$delegateNext);
56
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
57 } );
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
58 } elsif ($handler and not ref $handler) {
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
59
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
60 if (my $method = $this->can($handler) ) {
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
61 $this->_entryPoint( sub {
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
62 $method->($this,$delegateNext);
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
63 } );
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
64 } else {
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
65 {
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
66 no strict 'refs';
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
67 eval "require $handler; 1;" or die new IMPL::InvalidArgumentException("An invalid handler supplied",$handler,"Failed to load module") unless keys %{"${handler}::"};
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
68 }
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
69
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
70 if (UNIVERSAL::isa($handler,'IMPL::Web::QueryHandler')) {
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
71 $this->_entryPoint( sub {
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
72 $handler->Invoke($this,$delegateNext);
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
73 } );
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
74 } else {
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
75 die new IMPL::InvalidArgumentException("An invalid handler supplied",$handler);
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
76 }
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
77 }
55
609b59c9f03c Web application
wizard
parents: 52
diff changeset
78 } else {
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
79 die new IMPL::InvalidArgumentException("An invalid handler supplied",$handler);
55
609b59c9f03c Web application
wizard
parents: 52
diff changeset
80 }
609b59c9f03c Web application
wizard
parents: 52
diff changeset
81
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
82 }
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
83
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
84 1;
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
85
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
86 __END__
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
87
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
88 =pod
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
89
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
90 =head1 NAME
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
91
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
92 C<IMPL::Web::Application::Action> - ������� ������ C<CGI> �������.
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
93
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
94 =head1 DESCRIPTION
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
95
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
96 C<[Infrastructure]>
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
97
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
98 ���������� ������� ���������� �������. ������ ����������� ���������������� �������
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
99 ������� ������������, ��� ���� ����������� ���� �������� ���������.
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
100 ����������� ����������� � �������, �������� �� ����������.
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
101
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
102 �������� ������� ����� ���� �����, � ������� ����������
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
103
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
104 =begin code
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
105
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
106 IMPL::Web::QueryHandler::SecCallToMethod
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
107 IMPL::Web::QueryHandler::AuthenticateCookie
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
108 IMPL::Web::QueryHandler::PageFormat
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
109
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
110 =end code
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
111
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
112 ��� �������� � ��������� ������������������
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
113
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
114 =begin code
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
115
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
116 # the application creates a new Action object
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
117
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
118 my $action = $application->actionFactory->new(
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
119 action => $application, # the application passes self
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
120 query => $query # current CGI query
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
121 );
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
122
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
123 # forms query handlers stack
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
124
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
125 $action->ChainHandler($_) foreach qw (
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
126 IMPL::Web::QueryHandler::SecCallToMethod
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
127 IMPL::Web::QueryHandler::AuthenticateCookie
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
128 IMPL::Web::QueryHandler::PageFormat
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
129 );
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
130
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
131 # and finally invokes the action
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
132
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
133 $action->Invoke() {
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
134
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
135 # some internals
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
136
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
137 IMPL::Web::QueryHandler::PageFormat->Invoke($action,$nextHandlerIsAuthHandler) {
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
138
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
139 #some internals
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
140
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
141 my $result = $nextHandlerIsAuthHandler() {
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
142
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
143 # some internals
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
144
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
145 IMPL::Web::QueryHandler::AuthenticateCookie->Invoke($action,$nextHandlerIsSecCall) {
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
146
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
147 # some internals
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
148 # do auth and generate security $context
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
149
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
150 # impersonate $context and call the next handler
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
151 return $context->Impersonate($nextHandlerIsSecCall) {
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
152
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
153 # some internals
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
154
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
155 IMPL::Web::QueryHandler::SecCallToMethod->Invoke($action,undef) {
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
156
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
157 # next handler isn't present as it is the last hanler
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
158
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
159 # some internals
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
160 # calculate the $method and the $target from CGI request
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
161
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
162 IMPL::Security->AccessCheck($target,$method);
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
163 return $target->$method();
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
164
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
165 }
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
166
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
167 }
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
168
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
169 }
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
170 }
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
171
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
172 # some intenals
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
173 # formatted output to $action->response->streamBody
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
174 }
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
175 }
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
176
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
177 =end code
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
178
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
179 ��� ��� ������������ ����� ���� ���
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
180
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
181 =begin code
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
182
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
183 IMPL::Web::QueryHandler::SecCallToMethod
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
184 IMPL::Web::QueryHandler::AuthenticateCookie
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
185 IMPL::Web::QueryHandler::Filter->new( target => IMPL::Transform::ObjectToJSON->new() , method => 'Transform')
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
186 IMLP::Web::QueryHandler::JSONFormat
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
187
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
188
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
189 =end code
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
190
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
191 � ������ ������� ����� ���������� ����� ������, �� ��� ��������� ����� �������������
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
192 � ������� ��������� � ���������� JSON ���������������. ����� ������� ������ ������
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
193 �� ��������� ����� � �������� �������, ��� ������ ��������� �������������� �������.
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
194
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
195 =head1 MEMBERS
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
196
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
197 =head2 PROPERTIES
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
198
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
199 =over
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
200
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
201 =item C< [get] application>
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
202
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
203 ��������� ���������� ���������� ������� ������
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
204
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
205 =item C< [get] query >
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
206
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
207 ��������� C<CGI> �������
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
208
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
209 =item C< [get] response >
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
210
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
211 ����� �� C<CGI> ������� C<IMPL::Web::Application::Response>
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
212
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
213 =item C< [get] responseFactory >
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
214
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
215 ������� ������� �� ������, ������������ ��� �������� ������ ������
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
216 ���� ��� ��������������� �������� ������� C<IMPL::Web::Application::Action>,
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
217 ���� ��� ������ ������ C<ReinitResponse> � �������� �������.
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
218
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
219 �� ��������� ����� �������� C<IMPL::Web::Application::Response>
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
220
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
221 =back
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
222
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
223 =head2 METHODS
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
224
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
225 =over
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
226
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
227 =item C< ReinitResponse() >
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
228
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
229 ������ ������� ������ C<response> � �������� ������ ���� ������.
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
230
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
231 ������ �������� ������ ���������� ��� ��������� ������, �����
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
232 ��� �������������� ����� ��������� ��������. ������� ��������,
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
233 ��� ��� �������� �� ��������, ���� ����� �������� ��� ���������
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
234 ��������� �������. ����� ��������� ���������� C<IMPL::InvalidOperationException>.
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
235
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
236 =item C< ChainHandler($handler) >
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
237
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
238 ��������� ����� ���������� � �������. ���������� ������� ���������� � �����,
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
239 ������ ��������� ����������� ����� �������� ������.
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
240
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
241 =back
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
242
56
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
243 =head1 HANDLERS
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
244
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
245 =head2 subroutines
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
246
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
247 =over
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
248
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
249 =item CODE ref
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
250
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
251 ������ �� ��������� ����� �������� ������������, ��� ���� ������� ����� ������� �
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
252 ����� �����������: ������� �� action ������, � ������ ����� ���������� �����������.
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
253
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
254 =item Method Name
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
255
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
256 ��� ������, ���������� � ���� ������. � �������� ������� action ������ ����� �
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
257 ��������� ������, ����� ���� ������������ ������ �� ���� ����� ��� ������ � �����
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
258 �����������: ������� �� action ������, � ������ ����� ���������� �����������.
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
259
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
260 ���������� ����� ���������� ���������� C<< $action->MethodName($nextHandler) >>;
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
261
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
262 =back
117b6956d5a5 Web application in progress
wizard
parents: 55
diff changeset
263
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
264 =head2 C< IMPL::Web::QueryHandler >
57
bf59ee1cd506 Web application main class functionality
wizard
parents: 56
diff changeset
265
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
266 ����� ������ ������������� �� C< IMPL::Web::QueryHandler > ����� ����
57
bf59ee1cd506 Web application main class functionality
wizard
parents: 56
diff changeset
267 ����������� � �������� ����������� �������
bf59ee1cd506 Web application main class functionality
wizard
parents: 56
diff changeset
268
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
269 =cut