Mercurial > pub > Impl

annotate Lib/IMPL/Web/Application.pm @ 242:fe9d62d9054d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
requestCharset support
author sergey
date Thu, 18 Oct 2012 20:02:51 +0400
parents 3cebcf6fdb9b
children a02b110da931
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
1 package IMPL::Web::Application;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
2 use strict;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
3 use warnings;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
4
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
5 use CGI;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
6 use Carp qw(carp);
233
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 230
diff changeset
7 use IMPL::Const qw(:prop);
58
a35b60b16a99 Configuration, late activation
wizard
parents: 57
diff changeset
8
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
9 use IMPL::declare {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
10 require => {
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
11 TAction => 'IMPL::Web::Application::Action',
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
12 HttpResponse => 'IMPL::Web::HttpResponse',
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
13 TFactory => '-IMPL::Object::Factory',
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
14 Exception => 'IMPL::Exception',
230
6d8092d8ce1b *reworked IMPL::Security
sergey
parents: 229
diff changeset
15 InvalidOperationException => '-IMPL::InvalidOperationException',
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
16 Loader => 'IMPL::Code::Loader'
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
17 },
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
18 base => [
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
19 'IMPL::Config' => '@_',
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
20 'IMPL::Object::Singleton' => '@_'
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
21 ],
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
22 props => [
233
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 230
diff changeset
23 actionFactory => PROP_RW,
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 230
diff changeset
24 handlers => PROP_RW | PROP_LIST,
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 230
diff changeset
25 security => PROP_RW,
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 230
diff changeset
26 options => PROP_RW,
242
fe9d62d9054d requestCharset support
sergey
parents: 233
diff changeset
27 requestCharset => PROP_RW,
233
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 230
diff changeset
28 fetchRequestMethod => PROP_RW,
3cebcf6fdb9b refactoring, cleaning code
sergey
parents: 230
diff changeset
29 output => PROP_RW
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
30 ]
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
31 };
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
32
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
33 sub CTOR {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
34 my ($this) = @_;
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
35
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
36 die IMPL::InvalidArgumentException->new( "handlers",
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
37 "At least one handler should be supplied" )
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
38 unless $this->handlers->Count;
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
39
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
40 $this->actionFactory(TAction) unless $this->actionFactory;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
41 $this->fetchRequestMethod( \&defaultFetchRequest )
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
42 unless $this->fetchRequestMethod;
62
c64bd1bf727d Web application
wizard
parents: 60
diff changeset
43 }
c64bd1bf727d Web application
wizard
parents: 60
diff changeset
44
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
45 sub Run {
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
46 my ($this) = @_;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
47
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
48 my $handler;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
49
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
50 $handler = _ChainHandler( $_, $handler ) foreach $this->handlers;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
51
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
52 while ( my $query = $this->FetchRequest() ) {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
53
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
54 my $action = $this->actionFactory->new(
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
55 query => $query,
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
56 application => $this,
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
57 );
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
58
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
59 eval {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
60 my $result = $handler->($action);
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
61
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
62 die InvalidOperationException->new(
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
63 "Invalid handlers result. A reference to IMPL::Web::HttpResponse is expexted."
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
64 ) unless eval { $result->isa(HttpResponse) };
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
65
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
66 $result->PrintResponse( $this->output );
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
67 };
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
68 if ($@) {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
69 my $e = $@;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
70
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
71 HttpResponse->InternalError(
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
72 type => 'text/plain',
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
73 charset => 'utf-8',
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
74 body => $e
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
75 )->PrintResponse( $this->output );
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
76
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
77 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
78 }
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
79 }
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
80
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
81 sub _ChainHandler {
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
82 my ( $handler, $next ) = @_;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
83
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
84 if ( ref $handler eq 'CODE' ) {
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
85 return sub {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
86 my ($action) = @_;
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
87 return $handler->( $action, $next );
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
88 };
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
89 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
90 elsif ( eval { $handler->can('Invoke') } ) {
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
91 return sub {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
92 my ($action) = @_;
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
93 return $handler->Invoke( $action, $next );
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
94 };
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
95 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
96 elsif ( eval { $handler->isa(TFactory) } ) {
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
97 return sub {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
98 my ($action) = @_;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
99 my $inst = $handler->new();
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
100 return $inst->Invoke( $action, $next );
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
101 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
102 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
103 elsif ( $handler
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
104 and not ref $handler
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
105 and $handler =~ m/^(-)?(\w+(?:::\w+)*)$/ )
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
106 {
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
107 my $class = $2;
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
108 if ( not $1 ) {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
109 Loader->safe->Require($class);
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
110 die IMPL::InvalidArgumentException->(
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
111 "An invalid handler supplied", $handler
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
112 ) unless $class->can('Invoke');
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
113 }
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
114
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
115 return sub {
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
116 my ($action) = @_;
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
117 my $inst = $class->new();
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
118 return $inst->Invoke( $action, $next );
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
119 };
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
120 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
121 else {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
122 die new IMPL::InvalidArgumentException( "An invalid handler supplied",
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
123 $handler );
198
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
124 }
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
125 }
2ffe6f661605 Implemented IMPL::Web::Handler::RestController
cin
parents: 194
diff changeset
126
97
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 73
diff changeset
127 sub FetchRequest {
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
128 my ($this) = @_;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
129
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
130 if ( ref $this->fetchRequestMethod eq 'CODE' ) {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
131 return $this->fetchRequestMethod->($this);
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
132 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
133 else {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
134 die new IMPL::Exception(
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
135 "Unknown fetchRequestMethod type",
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
136 ref $this->fetchRequestMethod
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
137 );
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
138 }
97
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 73
diff changeset
139 }
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 73
diff changeset
140
57
bf59ee1cd506 Web application main class functionality
wizard
parents: 52
diff changeset
141 {
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
142 my $hasFetched = 0;
57
bf59ee1cd506 Web application main class functionality
wizard
parents: 52
diff changeset
143
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
144 sub defaultFetchRequest {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
145 my ($this) = @_;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
146 return undef if $hasFetched;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
147 $hasFetched = 1;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
148 $this->output(*STDOUT);
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
149 my $query = CGIWrapper->new();
242
fe9d62d9054d requestCharset support
sergey
parents: 233
diff changeset
150 $query->charset($this->requestCharset) if $this->requestCharset;
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
151 return $query;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
152 }
57
bf59ee1cd506 Web application main class functionality
wizard
parents: 52
diff changeset
153 }
bf59ee1cd506 Web application main class functionality
wizard
parents: 52
diff changeset
154
213
sergey
parents: 198
diff changeset
155 sub defaultErrorHandler {
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
156 my ( $this, $action, $e ) = @_;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
157 warn $e;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
158 if ( eval { $action->ReinitResponse(); 1; } ) {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
159 $action->response->contentType('text/plain');
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
160 $action->response->charset( $this->responseCharset );
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
161 $action->response->status(500);
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
162 my $hout = $action->response->streamBody;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
163 print $hout $e;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
164 $action->response->Complete();
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
165 }
97
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 73
diff changeset
166 }
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 73
diff changeset
167
130
06a34c197b05 Added support for utf-8 and old versions of CGI module
wizard
parents: 129
diff changeset
168 package CGIWrapper;
166
4267a2ac3d46 Added Class::Template,
wizard
parents: 138
diff changeset
169 use parent qw(CGI);
130
06a34c197b05 Added support for utf-8 and old versions of CGI module
wizard
parents: 129
diff changeset
170
06a34c197b05 Added support for utf-8 and old versions of CGI module
wizard
parents: 129
diff changeset
171 use Encode;
06a34c197b05 Added support for utf-8 and old versions of CGI module
wizard
parents: 129
diff changeset
172
138
c5bc900eefd3 IMPL::Web::Application: Fixed file uploading
wizard
parents: 130
diff changeset
173 our $NO_DECODE = 0;
c5bc900eefd3 IMPL::Web::Application: Fixed file uploading
wizard
parents: 130
diff changeset
174
130
06a34c197b05 Added support for utf-8 and old versions of CGI module
wizard
parents: 129
diff changeset
175 sub param {
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
176 my $this = shift;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
177
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
178 return $this->SUPER::param(@_) if $NO_DECODE;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
179
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
180 if (wantarray) {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
181 my @result = $this->SUPER::param(@_);
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
182
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
183 return map Encode::is_utf8($_)
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
184 ? $_
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
185 : Encode::decode( $this->charset, $_, Encode::LEAVE_SRC ), @result;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
186 }
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
187 else {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
188 my $result = $this->SUPER::param(@_);
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
189
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
190 return Encode::is_utf8($result)
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
191 ? $result
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
192 : Encode::decode( $this->charset, $result, Encode::LEAVE_SRC );
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
193 }
130
06a34c197b05 Added support for utf-8 and old versions of CGI module
wizard
parents: 129
diff changeset
194
06a34c197b05 Added support for utf-8 and old versions of CGI module
wizard
parents: 129
diff changeset
195 }
06a34c197b05 Added support for utf-8 and old versions of CGI module
wizard
parents: 129
diff changeset
196
138
c5bc900eefd3 IMPL::Web::Application: Fixed file uploading
wizard
parents: 130
diff changeset
197 sub upload {
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
198 my $this = shift;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
199
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
200 local $NO_DECODE = 1;
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
201 my $oldCharset = $this->charset();
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
202 $this->charset('ISO-8859-1');
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
203
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
204 my $fh = $this->SUPER::upload(@_);
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
205
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
206 $this->charset($oldCharset);
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
207 return $fh;
138
c5bc900eefd3 IMPL::Web::Application: Fixed file uploading
wizard
parents: 130
diff changeset
208 }
c5bc900eefd3 IMPL::Web::Application: Fixed file uploading
wizard
parents: 130
diff changeset
209
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
210 1;
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
211
52
15d720913562 security in work
wizard@linux-odin.local
parents: 49
diff changeset
212 __END__
15d720913562 security in work
wizard@linux-odin.local
parents: 49
diff changeset
213
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
214 =pod
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
215
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
216 =head1 NAME
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
217
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
218 C<IMPL::Web::Application> Класс для создания экземпляров приложения
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
219
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
220 =head1 SYNOPSIS
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
221
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
222 =begin code
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
223
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
224 use IMPL::require {
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
225 App => 'IMPL::Web::Application'
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
226 };
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
227
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
228 my $instance = App->spawn(); # will use ./IMPL/Web/Application.xml as configuration
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
229
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
230 $instance->Run;
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
231
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
232 =end code
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
233
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
234 =head1 DESCRIPTION
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
235
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
236 Создает экземпляр объекта, который получает и обрабатывает C<HTTP> запрос.
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
237 Приложение можно загрузить из C<xml> файла в котором описано состояние свойств,
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
238 для этого используется механизм C<IMPL::Serialization>.
67
9f5795a10939 Documentation, minor fixes
wizard
parents: 65
diff changeset
239
229
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
240 Приложение представлет собой модульную конструкцию, которая состоит из цепочки
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
241 обработчиков. Цепочка обработчиков вызывается снизу вверх, при этом каждый
47f77e6409f7 heavily reworked the resource model of the web application:
sergey
parents: 213
diff changeset
242 обработчик самостоятельно рекурсивно вызывает следующий (более высокого уровня).
49
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
243
16ada169ca75 migrating to the Eclipse IDE
wizard@linux-odin.local
parents: 47
diff changeset
244 =cut