annotate Lib/IMPL/Web/QueryHandler/PageFormat.pm @ 116:1722ca51537c

minor changes. Auth no more throws an exception when fails
author wizard
date Mon, 31 May 2010 08:30:39 +0400
parents 0e72ad99eef7
children 92c850d0bdb9
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);
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
3
c64bd1bf727d Web application
wizard
parents:
diff changeset
4 __PACKAGE__->PassThroughArgs;
c64bd1bf727d Web application
wizard
parents:
diff changeset
5
c64bd1bf727d Web application
wizard
parents:
diff changeset
6 use IMPL::Class::Property;
77
9d24db321029 Refactoring Web::TT
wizard
parents: 65
diff changeset
7 use IMPL::Web::TT::Document;
97
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
8 use IMPL::Security::Context;
65
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
9 use File::Spec;
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
10 use Error qw(:try);
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
11
64
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
12 BEGIN {
65
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
13 public property templatesCharset => prop_all;
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
14 public property templatesBase => prop_all;
97
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
15 public property defaultTarget => prop_all;
116
1722ca51537c minor changes.
wizard
parents: 107
diff changeset
16 public property pathinfoPrefix => prop_all;
64
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
17 }
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
18
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
19 sub CTOR {
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
20 my ($this) = @_;
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
21
65
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
22 $this->templatesCharset('utf-8') unless $this->templatesCharset;
64
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
23 }
259cd3df6e53 Doc generation
wizard
parents: 63
diff changeset
24
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
25 sub Process {
c64bd1bf727d Web application
wizard
parents:
diff changeset
26 my ($this,$action,$nextHandler) = @_;
c64bd1bf727d Web application
wizard
parents:
diff changeset
27
77
9d24db321029 Refactoring Web::TT
wizard
parents: 65
diff changeset
28 my $doc = new IMPL::Web::TT::Document();
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
29
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
30 try {
97
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
31
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
32 $this->templatesBase($ENV{DOCUMENT_ROOT}) unless $this->templatesBase;
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
33
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
34 my $pathInfo = $ENV{PATH_INFO};
116
1722ca51537c minor changes.
wizard
parents: 107
diff changeset
35 my $prefixRoot = "";
1722ca51537c minor changes.
wizard
parents: 107
diff changeset
36 if (my $rx = $this->pathinfoPrefix) {
1722ca51537c minor changes.
wizard
parents: 107
diff changeset
37 $pathInfo =~ s/($rx)//;
1722ca51537c minor changes.
wizard
parents: 107
diff changeset
38 $prefixRoot = $1 if $1;
1722ca51537c minor changes.
wizard
parents: 107
diff changeset
39 }
1722ca51537c minor changes.
wizard
parents: 107
diff changeset
40 local $ENV{PATH_INFO} = $pathInfo || $this->defaultTarget;
97
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
41
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
42 my @path = split /\//, ($ENV{PATH_INFO} || '') or die new IMPL::Exception("PATH_INFO is empty and no defaultTarget specified" );
65
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
43
77
9d24db321029 Refactoring Web::TT
wizard
parents: 65
diff changeset
44 $doc->LoadFile ( File::Spec->catfile($this->templatesBase,@path), $this->templatesCharset );
97
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
45 $doc->AddVar( result => $nextHandler->() );
116
1722ca51537c minor changes.
wizard
parents: 107
diff changeset
46 $doc->AddVar( absoluteUrl => sub { "$prefixRoot/$_[0]" } );
97
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
47 {
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
48 local $@;
116
1722ca51537c minor changes.
wizard
parents: 107
diff changeset
49 $doc->AddVar( user => IMPL::Security::Context->current->principal );
1722ca51537c minor changes.
wizard
parents: 107
diff changeset
50 $doc->AddVar( session => IMPL::Security::Context->current );
97
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
51 warn $@ if $@;
964587c5183c Added SecureCall to Web QueryHandlers stack
wizard
parents: 77
diff changeset
52 }
63
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
53
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
54 $action->response->contentType('text/html');
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
55 my $hOut = $action->response->streamBody;
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
56 print $hOut $doc->Render();
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
57 } finally {
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
58 $doc->Dispose;
76b878ad6596 Added serialization support for the IMPL::Object::List
wizard
parents: 62
diff changeset
59 };
62
c64bd1bf727d Web application
wizard
parents:
diff changeset
60 }
c64bd1bf727d Web application
wizard
parents:
diff changeset
61
65
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
62 1;
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
63
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
64 __END__
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
65
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
66 =pod
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
67
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
68 =head1 NAME
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
69
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
70 C<IMPL::Web::QueryHandler::PageFormat> - Выдача результатов в виде HTML страницы, построенной из шаблона.
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
71
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
72 =head1 SYNOPSIS
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
73
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
74 В файле конфигурации приложения
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
75
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
76 =begin code xml
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
77
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
78 <handlersQuery type="IMPL::Object::List">
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
79 <item type="IMPL::Web::QueryHandler::PageFormat">
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
80 <charsetTemplates>utf-8</charsetTemplates>
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
81 </item>
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
82 </handlersQuery>
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
83
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
84 =end code xml
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
85
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
86 Программно
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
87
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
88 =begin code
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
89
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
90 my $app = new IMPL::Web::Application();
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
91 $app->handlersQuery->Add(
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
92 new IMPL::Web::QueryHandler::PageFormat( charsetTemplates=> 'utf-8' );
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
93 );
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
94
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
95 =end
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
96
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
97 =head1 DESCRIPTION
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
98
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
99 Обработчик запроса для веб приложения. Загружает шаблон, путь к котрому берется
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
100 из C<ENV{PATH_INFO}> относительно пути из свойства C<templatesBase>.
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
101
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
102 Наследуется от C<IMPL::Web::QueryHandler> для реализации функционала
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
103 обработчика запроса и переопределяет метод C<Process>.
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
104
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
105 C<Serializable>
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
106
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
107 =head1 MEMBERS
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
108
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
109 =over
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
110
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
111 =item C<CTOR(%props)>
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
112
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
113 Создает новый экземпляр и заполняет свойства.
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
114
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
115 =item C<[get,set] templatesCharset>
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
116
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
117 Кодировка шаблонов. По умолчанию utf-8.
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
118
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
119 =item C<[get,set] templatesBase>
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
120
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
121 Каталог относительно которого ищется шаблон.
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
122
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
123 =item C<[override] Process($action,$nextHandler)>
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
124
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
125 Метод, переопределяющий C<IMPL::Web::QueryHandler->Process> и которому передается управление
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
126 для выполнения действий.
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
127
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
128 =back
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
129
2840c4c85db8 Application configuration improvements
wizard
parents: 64
diff changeset
130 =cut