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

annotate Lib/IMPL/Web/Application/Action.pm @ 324:b1e7b55b4a38

reverted previous changes

author	cin
date	Sat, 25 May 2013 01:57:49 +0400
parents	b56b1ec33b59
children	97628101b765

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

Mercurial > pub > Impl

annotate Lib/IMPL/Web/Application/Action.pm @ 324:b1e7b55b4a38