Mercurial > pub > Impl

annotate Lib/IMPL/Web/Application/Action.pm @ 244:a02b110da931

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
refactoring fixed binding to CGI query parameters with multiple values
author sergey
date Mon, 22 Oct 2012 04:09:27 +0400
parents b8c724f6de36
children 7c517134c42f
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);
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
7
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
8 use IMPL::declare {
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
9 base => [
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
10 'IMPL::Object' => undef,
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
11 'IMPL::Object::Autofill' => '@_'
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
12 ],
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
13 props => [
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
14 application => PROP_RO,
244
a02b110da931 refactoring
sergey
parents: 238
diff changeset
15 query => PROP_RO,
a02b110da931 refactoring
sergey
parents: 238
diff changeset
16 context => PROP_RW
238
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
17 ]
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
18 };
55
609b59c9f03c Web application
wizard
parents: 52
diff changeset
19
65
2840c4c85db8 Application configuration improvements
wizard
parents: 63
diff changeset
20 sub CTOR {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
21 my ($this) = @_;
244
a02b110da931 refactoring
sergey
parents: 238
diff changeset
22
a02b110da931 refactoring
sergey
parents: 238
diff changeset
23 $this->context({});
65
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
144
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 67
diff changeset
26 sub cookie {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
27 my ($this,$name,$rx) = @_;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
28
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
29 $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
30 }
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 67
diff changeset
31
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 67
diff changeset
32 sub param {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
33 my ($this,$name,$rx) = @_;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
34
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
35 $this->_launder(scalar( $this->query->param($name) ), $rx );
144
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 67
diff changeset
36 }
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 67
diff changeset
37
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
38 sub requestMethod {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
39 my ($this) = @_;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
40 return $this->query->request_method;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
41 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
42
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
43 sub pathInfo {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
44 my ($this) = @_;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
45 return $this->query->path_info;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
46 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
47
238
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
48 sub baseUrl {
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
49 my ($this) = @_;
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
50
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
51 return $this->query->url(-base => 1);
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
52 }
b8c724f6de36 DOM model refactoring
sergey
parents: 230
diff changeset
53
144
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 67
diff changeset
54 sub _launder {
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
55 my ($this,$value,$rx) = @_;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
56
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
57 if ( $value ) {
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
58 if ($rx) {
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
59 if ( my @result = ($value =~ m/$rx/) ) {
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
60 return @result > 1 ? \@result : $result[0];
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
61 } else {
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
62 return;
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
63 }
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
64 } else {
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
65 return $value;
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
66 }
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
67 } else {
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
68 return;
194
4d0e1962161c Replaced tabs with spaces
cin
parents: 180
diff changeset
69 }
144
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 67
diff changeset
70 }
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 67
diff changeset
71
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
72 1;
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
73
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
74 __END__
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
75
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
76 =pod
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
77
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
78 =head1 NAME
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
79
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 173
diff changeset
80 C<IMPL::Web::Application::Action> - Обертка вокруг C<CGI> запроса.
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
81
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
82 =head1 DESCRIPTION
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
83
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
84 C<[Infrastructure]>
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 194
diff changeset
85 Свзяывет CGI запрос, приложение, орабатывающее его и ответ, который будет отправлен клиенту.
52
15d720913562 security in work
wizard@linux-odin.local
parents:
diff changeset
86
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
87 =head1 MEMBERS
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
88
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
89 =head2 C<CTOR(%args)>
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
90
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
91 Инициализирует новый экземпляр. Именованными параметрами передаются значения
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
92 свойств.
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
93
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 206
diff changeset
94 =head2 C< [get]application>
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
95
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 173
diff changeset
96 Экземпляр приложения создавшего текущий объект
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
97
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
98 =item C< [get] query >
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
99
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 173
diff changeset
100 Экземпляр C<CGI> запроса
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
101
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
102 =back
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
103
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
104
180
d1676be8afcc Перекодировка в utf-8
sourcer
parents: 173
diff changeset
105 =cut