pub/Impl: Lib/IMPL/Web/Application/Action.pm annotate

annotate Lib/IMPL/Web/Application/Action.pm @ 322:cca158327c47

added OutOfRangeException

author	cin
date	Tue, 21 May 2013 10:04:11 +0400
parents	3dc9260017ad
children	b56b1ec33b59

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 => [
b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	17 application => PROP_RO,
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
144 b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document wizard parents: 67 diff changeset	46 sub param {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	47 my ($this,$name,$rx) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	48
245 7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	49 my $value;
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	50
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	51 if (
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	52 $this->requestMethod eq 'GET'
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	53 or
321 3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	54 $this->contentType eq 'multipart/form-data'
245 7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	55 or
321 3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	56 $this->contentType eq 'application/x-www-form-urlencoded'
245 7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	57 ) {
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	58 $value = scalar( $this->query->param($name) );
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	59 } else {
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	60 $value = scalar( $this->query->url_param($name) );
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
7c517134c42f Added Unsupported media type Web exception sergey parents: 244 diff changeset	63 $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	64 }
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document wizard parents: 67 diff changeset	65
266 89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	66 sub urlParam {
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	67 my ($this,$name,$rx) = @_;
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	68
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	69 $this->_launder(scalar( $this->query->url_param($name) ), $rx);
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	70 }
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	71
322 cca158327c47 added OutOfRangeException cin parents: 321 diff changeset	72 sub urlParams {
cca158327c47 added OutOfRangeException cin parents: 321 diff changeset	73 shift->query->url_param();
cca158327c47 added OutOfRangeException cin parents: 321 diff changeset	74 }
cca158327c47 added OutOfRangeException cin parents: 321 diff changeset	75
256 32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	76 sub rawData {
321 3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	77 my ($this, $decode) = @_;
256 32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	78
321 3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	79 local $IMPL::Web::CGIWrapper::NO_DECODE = $decode ? 0 : 1;
256 32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	80 if ($this->requestMethod eq 'POST') {
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	81 return $this->query->param('POSTDATA');
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	82 } elsif($this->requestMethod eq 'PUT') {
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	83 return $this->query->param('PUTDATA');
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	84 }
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	85 }
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	86
321 3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	87 sub jsonData {
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	88 my ($this) = @_;
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	89
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	90 if ($this->contentType =~ m{^application/json} ) {
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	91 my $data = $this->_jsonData;
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	92 unless($data) {
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	93 $data = JSON->new()->decode($this->rawData('decode encoding'));
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	94 $this->_jsonData($data);
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	95 }
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	96
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	97 return $data;
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	98 }
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 return;
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	101 }
3dc9260017ad Added JSON support for the request action cin parents: 320 diff changeset	102
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	103 sub requestMethod {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	104 my ($this) = @_;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	105 return $this->query->request_method;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	106 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	107
256 32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	108 sub contentType {
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	109 return shift->query->content_type();
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	110 }
32aceba4ee6d corrected ViewHandlers to handle cookies and headers. sergey parents: 245 diff changeset	111
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	112 sub pathInfo {
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	113 my ($this) = @_;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	114 return $this->query->path_info;
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	115 }
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	116
238 b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	117 sub baseUrl {
b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	118 my ($this) = @_;
b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	119
b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	120 return $this->query->url(-base => 1);
b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	121 }
b8c724f6de36 DOM model refactoring sergey parents: 230 diff changeset	122
266 89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	123 sub applicationUrl {
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	124 shift->application->baseUrl;
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	125 }
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	126
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	127 sub applicationFullUrl {
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	128 my ($this) = @_;
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 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	131 }
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	132
268 4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 266 diff changeset	133 # 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	134 sub CreateFullUrl {
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	135 my ($this,$path) = @_;
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 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	138 }
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	139
268 4abda21186cd refactoring IMPL::Web: added 'application' property to resources cin* parents: 266 diff changeset	140 # creates an url that contains only a path part
266 89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	141 sub CreateAbsoluteUrl {
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	142 my ($this,$path) = @_;
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 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	145 }
89179bb8c388 corrected TTView to handle plain (and undefined) values cin* parents: 256 diff changeset	146
144 b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document wizard parents: 67 diff changeset	147 sub _launder {
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	148 my ($this,$value,$rx) = @_;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	149
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	150 if ( $value ) {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	151 if ($rx) {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	152 if ( my @result = ($value =~ m/$rx/) ) {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	153 return @result > 1 ? \@result : $result[0];
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	154 } else {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	155 return;
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	156 }
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	157 } else {
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	158 return $value;
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	159 }
4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	160 } else {
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	161 return;
194 4d0e1962161c Replaced tabs with spaces cin parents: 180 diff changeset	162 }
144 b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document wizard parents: 67 diff changeset	163 }
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document wizard parents: 67 diff changeset	164
52 15d720913562 security in work wizard@linux-odin.local parents: diff changeset	165 1;
15d720913562 security in work wizard@linux-odin.local parents: diff changeset	166
15d720913562 security in work wizard@linux-odin.local parents: diff changeset	167 __END__
15d720913562 security in work wizard@linux-odin.local parents: diff changeset	168
15d720913562 security in work wizard@linux-odin.local parents: diff changeset	169 =pod
15d720913562 security in work wizard@linux-odin.local parents: diff changeset	170
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	171 =head1 NAME
9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	172
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	173 C<IMPL::Web::Application::Action> - Обертка вокруг C<CGI> запроса.
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	174
52 15d720913562 security in work wizard@linux-odin.local parents: diff changeset	175 =head1 DESCRIPTION
15d720913562 security in work wizard@linux-odin.local parents: diff changeset	176
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	177 C<[Infrastructure]>
206 c8fe3f84feba +IMPL::Web::Handlers::ViewSelector sergey parents: 194 diff changeset	178 Свзяывет CGI запрос, приложение, орабатывающее его и ответ, который будет отправлен клиенту.
52 15d720913562 security in work wizard@linux-odin.local parents: diff changeset	179
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	180 =head1 MEMBERS
9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	181
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	182 =head2 C<CTOR(%args)>
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	183
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	184 Инициализирует новый экземпляр. Именованными параметрами передаются значения
47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	185 свойств.
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	186
229 47f77e6409f7 heavily reworked the resource model of the web application: sergey parents: 206 diff changeset	187 =head2 C< [get]application>
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	188
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	189 Экземпляр приложения создавшего текущий объект
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	190
9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	191 =item C< [get] query >
9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	192
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	193 Экземпляр C<CGI> запроса
67 9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	194
9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	195 =back
9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	196
9f5795a10939 Documentation, minor fixes wizard parents: 65 diff changeset	197
180 d1676be8afcc Перекодировка в utf-8 sourcer parents: 173 diff changeset	198 =cut

Mercurial > pub > Impl

annotate Lib/IMPL/Web/Application/Action.pm @ 322:cca158327c47