annotate Lib/IMPL/Web/QueryHandler/PageFormat.pm @ 152:1e7f03414b65

DOM: schema improvements DOM: saving to XML::Writer feature
author wizard
date Thu, 23 Sep 2010 03:58:43 +0400
parents 60fd224f3e3c
children eb478083f72b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
1 package IMPL::Web::QueryHandler::PageFormat;
64
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
2 use base qw(IMPL::Web::QueryHandler IMPL::Object::Autofill);
136
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
3 use strict;
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
4
c64bd1bf727d Web application
wizard
parents:
diff changeset
5 __PACKAGE__->PassThroughArgs;
c64bd1bf727d Web application
wizard
parents:
diff changeset
6
140
fb896377389f to_json and escape_string functions for the templates
wizard
parents: 137
diff changeset
7 use JSON;
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
8 use IMPL::Class::Property;
77
9d24db321029 Refactoring Web::TT
wizard
parents: 65
diff changeset
9 use IMPL::Web::TT::Document;
136
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
10 use Template::Plugin::URL;
97
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
11 use IMPL::Security::Context;
65
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
12 use File::Spec;
146
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
13 use HTML::TreeBuilder;
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
14 use Error qw(:try);
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
15
136
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
16 $Template::Plugin::URL::JOINT = '&';
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
17
64
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
18 BEGIN {
65
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
19 public property templatesCharset => prop_all;
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
20 public property templatesBase => prop_all;
97
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
21 public property defaultTarget => prop_all;
116
1722ca51537c minor changes.
wizard
parents: 107
diff changeset
22 public property pathinfoPrefix => prop_all;
134
44977efed303 Significant performance optimizations
wizard
parents: 129
diff changeset
23 public property cache => prop_all;
146
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
24 public property preprocess => prop_all;
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
25 public property formatOutput => prop_all;
64
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
26 }
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
27
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
28 sub CTOR {
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
29 my ($this) = @_;
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
30
65
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
31 $this->templatesCharset('utf-8') unless $this->templatesCharset;
134
44977efed303 Significant performance optimizations
wizard
parents: 129
diff changeset
32 $this->cache(File::Spec->rel2abs($this->cache)) if $this->cache;
44977efed303 Significant performance optimizations
wizard
parents: 129
diff changeset
33 $this->templatesBase(File::Spec->rel2abs($this->templatesBase)) if $this->templatesBase;
64
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
34 }
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
35
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
36 sub Process {
c64bd1bf727d Web application
wizard
parents:
diff changeset
37 my ($this,$action,$nextHandler) = @_;
c64bd1bf727d Web application
wizard
parents:
diff changeset
38
146
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
39 my $doc = new IMPL::Web::TT::Document(cache => $this->cache, preprocess => $this->preprocess);
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
40
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
41 try {
97
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
42
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
43 $this->templatesBase($ENV{DOCUMENT_ROOT}) unless $this->templatesBase;
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
44
136
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
45 my ($requestUri) = split /\?/, $ENV{REQUEST_URI};
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
46
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
47 my $pathInfo;
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
48
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
49 if ( $requestUri eq $ENV{SCRIPT_NAME}.$ENV{PATH_INFO} ) {
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
50 # CGI with path info
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
51 $pathInfo = $ENV{PATH_INFO};
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
52 } else {
137
6975cd4973d1 minor fix
wizard
parents: 136
diff changeset
53 die "REQUEST_URI: $requestUri\nPATH_INFO: $ENV{PATH_INFO}" unless $requestUri eq $ENV{PATH_INFO};
136
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
54 }
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
55
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
56 my @root = ('');
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
57 my @base;
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
58
116
1722ca51537c minor changes.
wizard
parents: 107
diff changeset
59 if (my $rx = $this->pathinfoPrefix) {
136
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
60 $requestUri =~ s/^($rx)//;
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
61 push @root, grep $_, split /\//, $1 if $1;
116
1722ca51537c minor changes.
wizard
parents: 107
diff changeset
62 }
136
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
63
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
64 $pathInfo = $requestUri unless defined $pathInfo;
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
65
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
66 @base = grep $_, split /\//, ($pathInfo ? substr $requestUri,0, -length($pathInfo) : $requestUri);
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
67
116
1722ca51537c minor changes.
wizard
parents: 107
diff changeset
68 local $ENV{PATH_INFO} = $pathInfo || $this->defaultTarget;
97
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
69
127
0dce0470a3d8 In the IMPL::Web::ControllerUnit added the ability to notify a form about a wrong data from a transaction
wizard
parents: 121
diff changeset
70 my @path = grep $_, split /\//, ($ENV{PATH_INFO} || '') or die new IMPL::Exception("PATH_INFO is empty and no defaultTarget specified" );
0dce0470a3d8 In the IMPL::Web::ControllerUnit added the ability to notify a form about a wrong data from a transaction
wizard
parents: 121
diff changeset
71
0dce0470a3d8 In the IMPL::Web::ControllerUnit added the ability to notify a form about a wrong data from a transaction
wizard
parents: 121
diff changeset
72 my @pathContainer = @path;
0dce0470a3d8 In the IMPL::Web::ControllerUnit added the ability to notify a form about a wrong data from a transaction
wizard
parents: 121
diff changeset
73 pop @pathContainer;
65
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
74
121
92c850d0bdb9 Minor changes
wizard
parents: 116
diff changeset
75 $doc->LoadFile ( File::Spec->catfile($this->templatesBase,@path), $this->templatesCharset, $this->templatesBase );
140
fb896377389f to_json and escape_string functions for the templates
wizard
parents: 137
diff changeset
76
97
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
77 $doc->AddVar( result => $nextHandler->() );
144
b56ebc31bf18 Empty nodes no more created while transforming a post request to the DOM document
wizard
parents: 140
diff changeset
78 $doc->AddVar( action => $action );
129
e4f15cbc3f1a Fixed utf-8 problem
wizard
parents: 127
diff changeset
79 $doc->AddVar( app => $action->application );
140
fb896377389f to_json and escape_string functions for the templates
wizard
parents: 137
diff changeset
80
136
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
81 $doc->AddVar( absoluteUrl => sub { join '/', @root, $_[0] } );
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
82 $doc->AddVar( baseUrl => sub { join '/', @root, @base, $_[0] } );
f6af119ac741 url routines for templates
wizard
parents: 134
diff changeset
83 $doc->AddVar( relativeUrl => sub { join '/', @root, @base, @pathContainer,$_[0] } );
140
fb896377389f to_json and escape_string functions for the templates
wizard
parents: 137
diff changeset
84
fb896377389f to_json and escape_string functions for the templates
wizard
parents: 137
diff changeset
85 $doc->AddVar( user => IMPL::Security::Context->current->principal );
fb896377389f to_json and escape_string functions for the templates
wizard
parents: 137
diff changeset
86 $doc->AddVar( session => IMPL::Security::Context->current );
fb896377389f to_json and escape_string functions for the templates
wizard
parents: 137
diff changeset
87
fb896377389f to_json and escape_string functions for the templates
wizard
parents: 137
diff changeset
88 $doc->AddVar( to_json => \&to_json );
fb896377389f to_json and escape_string functions for the templates
wizard
parents: 137
diff changeset
89 $doc->AddVar( escape_string => sub { $_[0] =~ s/"/"/g; $_[0] } );
fb896377389f to_json and escape_string functions for the templates
wizard
parents: 137
diff changeset
90
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
91
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
92 $action->response->contentType('text/html');
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
93 my $hOut = $action->response->streamBody;
146
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
94 if ($this->formatOutput == 1) {
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
95 my $tree = new HTML::TreeBuilder();
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
96 try {
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
97 $tree->parse_content($doc->Render());
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
98 print $hOut $tree->as_HTML('<>&'," ",{});
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
99 } finally {
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
100 $tree->delete;
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
101 };
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
102 } elsif ($this->formatOutput() == 2 ) {
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
103 (my $data = $doc->Render()) =~ s/\s+/ /g;
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
104 print $hOut $data;
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
105 } else {
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
106 print $hOut $doc->Render();
60fd224f3e3c fixed cgi parameters processing
wizard
parents: 144
diff changeset
107 }
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
108 } finally {
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
109 $doc->Dispose;
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
110 };
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
111 }
c64bd1bf727d Web application
wizard
parents:
diff changeset
112
65
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
113 1;
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
114
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
115 __END__
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
116
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
117 =pod
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
118
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
119 =head1 NAME
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
120
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
121 C<IMPL::Web::QueryHandler::PageFormat> - Выдача результатов в виде HTML страницы, построенной из шаблона.
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
122
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
123 =head1 SYNOPSIS
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
124
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
125 В файле конфигурации приложения
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
126
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
127 =begin code xml
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
128
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
129 <handlersQuery type="IMPL::Object::List">
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
130 <item type="IMPL::Web::QueryHandler::PageFormat">
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
131 <charsetTemplates>utf-8</charsetTemplates>
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
132 </item>
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
133 </handlersQuery>
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
134
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
135 =end code xml
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
136
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
137 Программно
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
138
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
139 =begin code
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
140
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
141 my $app = new IMPL::Web::Application();
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
142 $app->handlersQuery->Add(
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
143 new IMPL::Web::QueryHandler::PageFormat( charsetTemplates=> 'utf-8' );
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
144 );
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
145
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
146 =end
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
147
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
148 =head1 DESCRIPTION
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
149
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
150 Обработчик запроса для веб приложения. Загружает шаблон, путь к котрому берется
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
151 из C<ENV{PATH_INFO}> относительно пути из свойства C<templatesBase>.
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
152
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
153 Наследуется от C<IMPL::Web::QueryHandler> для реализации функционала
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
154 обработчика запроса и переопределяет метод C<Process>.
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
155
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
156 C<Serializable>
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
157
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
158 =head1 MEMBERS
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
159
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
160 =over
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
161
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
162 =item C<CTOR(%props)>
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
163
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
164 Создает новый экземпляр и заполняет свойства.
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
165
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
166 =item C<[get,set] templatesCharset>
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
167
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
168 Кодировка шаблонов. По умолчанию utf-8.
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
169
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
170 =item C<[get,set] templatesBase>
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
171
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
172 Каталог относительно которого ищется шаблон.
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
173
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
174 =item C<[override] Process($action,$nextHandler)>
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
175
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
176 Метод, переопределяющий C<IMPL::Web::QueryHandler->Process> и которому передается управление
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
177 для выполнения действий.
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
178
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
179 =back
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
180
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
181 =cut