Mercurial > pub > Impl

annotate Lib/IMPL/Web/Application/Action.pm @ 329:50ff1595bd62

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed bug when transforming list properties
author sergey
date Mon, 03 Jun 2013 18:03:54 +0400
parents b1e7b55b4a38
children 97628101b765
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
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 194
diff changeset
4 use Carp qw(carp);
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
5
238
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
6 use IMPL::Const qw(:prop);
256
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 245
diff changeset
7 use IMPL::Web::CGIWrapper();
266
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
8 use URI;
321
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
9 use JSON;
238
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
10
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
11 use IMPL::declare {
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
12 base => [
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
13 'IMPL::Object' => undef,
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
14 'IMPL::Object::Autofill' => '@_'
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
15 ],
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
16 props => [
324
b1e7b55b4a38 reverted previous changes
cin
parents: 323
diff changeset
17 application => PROP_RW,
244
a02b110da931 refactoring
sergey
parents: 238
diff changeset
18 query => PROP_RO,
321
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
19 context => PROP_RW,
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
20 _jsonData => PROP_RW,
238
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
21 ]
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
22 };
55
609b59c9f03c Web application
wizard
parents: 52
diff changeset
23
65
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
24 sub CTOR {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
25 my ($this) = @_;
244
a02b110da931 refactoring
sergey
parents: 238
diff changeset
26
a02b110da931 refactoring
sergey
parents: 238
diff changeset
27 $this->context({});
65
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
28 }
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
29
144
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 67
diff changeset
30 sub cookie {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
31 my ($this,$name,$rx) = @_;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
32
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
33 $this->_launder(scalar( $this->query->cookie($name) ), $rx );
144
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 67
diff changeset
34 }
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 67
diff changeset
35
320
28eba7e0c592 *web application action: added method to access HTTP request header.
sergey
parents: 268
diff changeset
36 sub header {
28eba7e0c592 *web application action: added method to access HTTP request header.
sergey
parents: 268
diff changeset
37 my ($this,$header) = @_;
28eba7e0c592 *web application action: added method to access HTTP request header.
sergey
parents: 268
diff changeset
38
28eba7e0c592 *web application action: added method to access HTTP request header.
sergey
parents: 268
diff changeset
39 $this->query->https ? $this->query->https($header) : $this->query->http($header);
28eba7e0c592 *web application action: added method to access HTTP request header.
sergey
parents: 268
diff changeset
40 }
28eba7e0c592 *web application action: added method to access HTTP request header.
sergey
parents: 268
diff changeset
41
28eba7e0c592 *web application action: added method to access HTTP request header.
sergey
parents: 268
diff changeset
42 sub isSecure {
28eba7e0c592 *web application action: added method to access HTTP request header.
sergey
parents: 268
diff changeset
43 shift->query->https ? 1 : 0;
28eba7e0c592 *web application action: added method to access HTTP request header.
sergey
parents: 268
diff changeset
44 }
28eba7e0c592 *web application action: added method to access HTTP request header.
sergey
parents: 268
diff changeset
45
323
b56b1ec33b59 minor changes to support JSON in transformation from a query to an object
sergey
parents: 322
diff changeset
46 sub isJson {
b56b1ec33b59 minor changes to support JSON in transformation from a query to an object
sergey
parents: 322
diff changeset
47 return shift->contentType =~ m{^application/json} ? 1 : 0;
b56b1ec33b59 minor changes to support JSON in transformation from a query to an object
sergey
parents: 322
diff changeset
48 }
b56b1ec33b59 minor changes to support JSON in transformation from a query to an object
sergey
parents: 322
diff changeset
49
144
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 67
diff changeset
50 sub param {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
51 my ($this,$name,$rx) = @_;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
52
245
7c517134c42f Added Unsupported media type Web exception
sergey
parents: 244
diff changeset
53 my $value;
7c517134c42f Added Unsupported media type Web exception
sergey
parents: 244
diff changeset
54
7c517134c42f Added Unsupported media type Web exception
sergey
parents: 244
diff changeset
55 if (
7c517134c42f Added Unsupported media type Web exception
sergey
parents: 244
diff changeset
56 $this->requestMethod eq 'GET'
7c517134c42f Added Unsupported media type Web exception
sergey
parents: 244
diff changeset
57 or
321
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
58 $this->contentType eq 'multipart/form-data'
245
7c517134c42f Added Unsupported media type Web exception
sergey
parents: 244
diff changeset
59 or
321
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
60 $this->contentType eq 'application/x-www-form-urlencoded'
245
7c517134c42f Added Unsupported media type Web exception
sergey
parents: 244
diff changeset
61 ) {
7c517134c42f Added Unsupported media type Web exception
sergey
parents: 244
diff changeset
62 $value = scalar( $this->query->param($name) );
7c517134c42f Added Unsupported media type Web exception
sergey
parents: 244
diff changeset
63 } else {
7c517134c42f Added Unsupported media type Web exception
sergey
parents: 244
diff changeset
64 $value = scalar( $this->query->url_param($name) );
7c517134c42f Added Unsupported media type Web exception
sergey
parents: 244
diff changeset
65 }
7c517134c42f Added Unsupported media type Web exception
sergey
parents: 244
diff changeset
66
7c517134c42f Added Unsupported media type Web exception
sergey
parents: 244
diff changeset
67 $this->_launder($value, $rx );
144
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 67
diff changeset
68 }
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 67
diff changeset
69
266
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
70 sub urlParam {
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
71 my ($this,$name,$rx) = @_;
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
72
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
73 $this->_launder(scalar( $this->query->url_param($name) ), $rx);
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
74 }
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
75
322
cca158327c47 added OutOfRangeException
cin
parents: 321
diff changeset
76 sub urlParams {
cca158327c47 added OutOfRangeException
cin
parents: 321
diff changeset
77 shift->query->url_param();
cca158327c47 added OutOfRangeException
cin
parents: 321
diff changeset
78 }
cca158327c47 added OutOfRangeException
cin
parents: 321
diff changeset
79
256
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 245
diff changeset
80 sub rawData {
321
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
81 my ($this, $decode) = @_;
256
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 245
diff changeset
82
321
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
83 local $IMPL::Web::CGIWrapper::NO_DECODE = $decode ? 0 : 1;
256
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 245
diff changeset
84 if ($this->requestMethod eq 'POST') {
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 245
diff changeset
85 return $this->query->param('POSTDATA');
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 245
diff changeset
86 } elsif($this->requestMethod eq 'PUT') {
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 245
diff changeset
87 return $this->query->param('PUTDATA');
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 245
diff changeset
88 }
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 245
diff changeset
89 }
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 245
diff changeset
90
321
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
91 sub jsonData {
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
92 my ($this) = @_;
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
93
323
b56b1ec33b59 minor changes to support JSON in transformation from a query to an object
sergey
parents: 322
diff changeset
94 if ($this->isJson ) {
321
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
95 my $data = $this->_jsonData;
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
96 unless($data) {
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
97 $data = JSON->new()->decode($this->rawData('decode encoding'));
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
98 $this->_jsonData($data);
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
99 }
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
100
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
101 return $data;
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
102 }
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
103
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
104 return;
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
105 }
3dc9260017ad Added JSON support for the request action
cin
parents: 320
diff changeset
106
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
107 sub requestMethod {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
108 my ($this) = @_;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
109 return $this->query->request_method;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
110 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
111
256
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 245
diff changeset
112 sub contentType {
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 245
diff changeset
113 return shift->query->content_type();
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 245
diff changeset
114 }
32aceba4ee6d corrected ViewHandlers to handle cookies and headers.
sergey
parents: 245
diff changeset
115
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
116 sub pathInfo {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
117 my ($this) = @_;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
118 return $this->query->path_info;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
119 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
120
238
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
121 sub baseUrl {
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
122 my ($this) = @_;
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
123
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
124 return $this->query->url(-base => 1);
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
125 }
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
126
266
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
127 sub applicationUrl {
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
128 shift->application->baseUrl;
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
129 }
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
130
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
131 sub applicationFullUrl {
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
132 my ($this) = @_;
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
133
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
134 return URI->new_abs($this->application->baseUrl, $this->query->url(-base => 1));
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
135 }
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
136
268
4abda21186cd *refactoring IMPL::Web: added 'application' property to resources
cin
parents: 266
diff changeset
137 # creates an url that contains server, schema and path parts
266
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
138 sub CreateFullUrl {
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
139 my ($this,$path) = @_;
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
140
268
4abda21186cd *refactoring IMPL::Web: added 'application' property to resources
cin
parents: 266
diff changeset
141 return $path ? URI->new_abs($path,$this->applicationFullUrl) : $this->applicationFullUrl;
266
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
142 }
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
143
268
4abda21186cd *refactoring IMPL::Web: added 'application' property to resources
cin
parents: 266
diff changeset
144 # creates an url that contains only a path part
266
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
145 sub CreateAbsoluteUrl {
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
146 my ($this,$path) = @_;
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
147
268
4abda21186cd *refactoring IMPL::Web: added 'application' property to resources
cin
parents: 266
diff changeset
148 return $path ? URI->new_abs($path,$this->applicationUrl) : $this->applicationUrl;
266
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
149 }
89179bb8c388 *corrected TTView to handle plain (and undefined) values
cin
parents: 256
diff changeset
150
144
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 67
diff changeset
151 sub _launder {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
152 my ($this,$value,$rx) = @_;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
153
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
154 if ( $value ) {
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
155 if ($rx) {
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
156 if ( my @result = ($value =~ m/$rx/) ) {
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
157 return @result > 1 ? \@result : $result[0];
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
158 } else {
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
159 return;
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
160 }
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
161 } else {
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
162 return $value;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
163 }
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
164 } else {
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
165 return;
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
166 }
144
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 67
diff changeset
167 }
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 67
diff changeset
168
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
169 1;
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
170
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
171 __END__
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
172
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
173 =pod
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
174
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
175 =head1 NAME
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
176
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 173
diff changeset
177 C<IMPL::Web::Application::Action> - Обертка вокруг C<CGI> запроса.
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
178
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
179 =head1 DESCRIPTION
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
180
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
181 C<[Infrastructure]>
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 194
diff changeset
182 Свзяывет CGI запрос, приложение, орабатывающее его и ответ, который будет отправлен клиенту.
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
183
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
184 =head1 MEMBERS
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
185
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
186 =head2 C<CTOR(%args)>
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
187
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
188 Инициализирует новый экземпляр. Именованными параметрами передаются значения
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
189 свойств.
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
190
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
191 =head2 C< [get]application>
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
192
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 173
diff changeset
193 Экземпляр приложения создавшего текущий объект
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
194
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
195 =item C< [get] query >
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
196
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 173
diff changeset
197 Экземпляр C<CGI> запроса
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
198
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
199 =back
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
200
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
201
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 173
diff changeset
202 =cut