Mercurial > pub > Impl

annotate Lib/IMPL/Web/CGIApplication.pm @ 321:3dc9260017ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added JSON support for the request action
author cin
date Mon, 20 May 2013 01:14:27 +0400
parents 546957c50a36
children 63709a4e6da0
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
244
a02b110da931 refactoring
sergey
parents:
diff changeset
1 package IMPL::Web::CGIApplication;
a02b110da931 refactoring
sergey
parents:
diff changeset
2 use strict;
a02b110da931 refactoring
sergey
parents:
diff changeset
3
a02b110da931 refactoring
sergey
parents:
diff changeset
4 use IMPL::declare {
a02b110da931 refactoring
sergey
parents:
diff changeset
5 require => {
a02b110da931 refactoring
sergey
parents:
diff changeset
6 CGIWrapper => 'IMPL::Web::CGIWrapper'
a02b110da931 refactoring
sergey
parents:
diff changeset
7 },
a02b110da931 refactoring
sergey
parents:
diff changeset
8 base => [
a02b110da931 refactoring
sergey
parents:
diff changeset
9 'IMPL::Web::Application' => '@_'
a02b110da931 refactoring
sergey
parents:
diff changeset
10 ]
a02b110da931 refactoring
sergey
parents:
diff changeset
11 };
a02b110da931 refactoring
sergey
parents:
diff changeset
12
a02b110da931 refactoring
sergey
parents:
diff changeset
13 sub CTOR {
a02b110da931 refactoring
sergey
parents:
diff changeset
14 my ($this) = @_;
a02b110da931 refactoring
sergey
parents:
diff changeset
15
a02b110da931 refactoring
sergey
parents:
diff changeset
16 $this->output(\*STDOUT) unless $this->output;
a02b110da931 refactoring
sergey
parents:
diff changeset
17 }
a02b110da931 refactoring
sergey
parents:
diff changeset
18
285
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
19 sub Run {
244
a02b110da931 refactoring
sergey
parents:
diff changeset
20 my ($this) = @_;
a02b110da931 refactoring
sergey
parents:
diff changeset
21
a02b110da931 refactoring
sergey
parents:
diff changeset
22 my $query = CGIWrapper->new();
a02b110da931 refactoring
sergey
parents:
diff changeset
23
a02b110da931 refactoring
sergey
parents:
diff changeset
24 $query->charset($this->requestCharset) if $this->requestCharset;
a02b110da931 refactoring
sergey
parents:
diff changeset
25
285
546957c50a36 *IMPL::Web::Handler::TTView Reworked template selection mechanism
cin
parents: 244
diff changeset
26 $this->ProcessRequest($query);
244
a02b110da931 refactoring
sergey
parents:
diff changeset
27 }
a02b110da931 refactoring
sergey
parents:
diff changeset
28
a02b110da931 refactoring
sergey
parents:
diff changeset
29 1;