Mercurial > pub > Impl

annotate Lib/IMPL/Web/Handler/TTView.pm @ 208:3d433a977e3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
corrected RestController for empty PAT_INFO corrected charset for ErrorHandler
author sergey
date Fri, 18 May 2012 18:43:00 +0400
parents c8fe3f84feba
children 47f77e6409f7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
199
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
1 package IMPL::Web::Handler::TTView;
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
2 use strict;
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
3
204
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
4 use List::Util qw(first);
199
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
5 use IMPL::lang qw(:declare :constants);
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
6 use IMPL::declare {
205
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
7 require => {
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
8 Factory => 'IMPL::Object::Factory'
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
9 },
199
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
10 base => {
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
11 'IMPL::Object' => undef,
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
12 'IMPL::Object::Autofill' => '@_',
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
13 'IMPL::Object::Serializable' => undef
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
14 }
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
15 };
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
16
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
17 BEGIN {
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
18 public property contentType => PROP_GET | PROP_OWNERSET;
203
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
19 public property loader => PROP_GET | PROP_OWNERSET;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
20 public property selectors => PROP_GET | PROP_LIST | PROP_OWNERSET;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
21 public property defaultDocument => PROP_ALL;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
22 public property indexResource => PROP_ALL;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
23 private property _selectorsCache => PROP_ALL;
204
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
24 private property _classTemplates => PROP_ALL;
203
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
25 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
26
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
27 sub CTOR {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
28 my ($this) = @_;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
29
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
30 $this->indexResource('index') unless $this->indexResource;
199
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
31 }
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
32
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
33 sub Invoke {
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
34 my ($this,$action,$next) = @_;
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
35
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
36 my $result = $next ? $next->($action) : undef;
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
37
205
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
38 my $vars = {
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
39 data => $result,
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
40 action => $action,
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
41 app => $action->application,
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
42 LoadFactory => sub {
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
43 my $class = shift;
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
44
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
45 my $module = $class;
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
46
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
47 $module =~ s/::/\//g;
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
48 $module .= ".pm";
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
49
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
50 require $module;
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
51 return Factory->new($class);
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
52 }
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
53 };
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
54
203
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
55 my $doc = $this->loader->document(
204
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
56 $this->SelectView($action,ref $result),
205
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
57 $vars
199
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
58 );
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
59
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
60 $action->response->contentType($this->contentType);
199
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
61
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
62 my $hout = $action->response->streamBody;
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
63
205
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
64 print $hout $doc->Render($vars);
199
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
65 }
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
66
203
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
67 sub SelectView {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
68 my ($this,$action,$class) = @_;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
69
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
70 my @path = split /\//, $action->query->path_info(), -1;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
71
205
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
72 shift @path; # remove always empty leading segment
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
73
203
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
74 my $last = pop @path;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
75 $last =~ s/\.\w+$//;
205
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
76 $last ||= $this->indexResource;
203
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
77 push @path,$last;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
78
204
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
79 $this->BuildCache unless $this->_selectorsCache;
203
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
80 my $cache = $this->_selectorsCache;
204
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
81
205
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
82 @path = reverse @path;
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
83
204
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
84 foreach my $subclass ( $class ? (_GetHierarchy($class), '-default') : '-plain') {
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
85 my @results;
205
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
86 push @results, { result => $this->_classTemplates->{$subclass}, level => 0 } if $this->_classTemplates->{$subclass};
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
87 if ($cache->{$subclass}) {
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
88 my $alternatives = [ { selector => $cache->{$subclass}, immediate => 1 } ];
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
89 $alternatives = $this->MatchAlternatives($_,$alternatives,\@results) foreach @path;
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
90 }
203
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
91
204
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
92 if (@results) {
205
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
93 @results = sort { $b->{level} <=> $a->{level} } @results;
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
94 return (shift @results)->{result};
204
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
95 }
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
96 }
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
97
205
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
98 return $this->defaultDocument;
203
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
99 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
100
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
101 sub _GetHierarchy {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
102 my ($class) = @_;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
103 return unless $class;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
104
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
105 no strict 'refs';
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
106
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
107 return $class, map { _GetHierarchy($_) } @{"${class}::ISA"};
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
108 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
109
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
110 sub BuildCache {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
111 my ($this) = @_;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
112
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
113 my @selectors;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
114
204
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
115 my $cache = $this->_selectorsCache({});
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
116 $this->_classTemplates({});
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
117
203
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
118 foreach my $selector ($this->selectors) {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
119 if (not ref $selector) {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
120
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
121 my ($path,$data) = split(/\s*=>\s*/, $selector);
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
122
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
123 my @path = split(/\s+/,$path);
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
124
204
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
125 my $class;
203
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
126
204
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
127 # if this selector has a class part
205
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
128 if ($path[$#path] =~ m/^\@(.*)/) {
203
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
129 $class = $1;
205
891c04080658 IMPL::Web::View fixed template selection, release candidate
sergey
parents: 204
diff changeset
130 pop @path;
203
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
131 } else {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
132 $class = '-default';
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
133 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
134
204
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
135 #if this selector has a path
203
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
136 if (@path) {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
137 @path = reverse @path;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
138 my $last = pop @path;
204
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
139 my $t = ( $cache->{$class} ||= {} );
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
140 my $level = 1;
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
141 foreach my $prim (@path ) {
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
142 $t = ($t->{$prim}->{next} ||= {});
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
143 $level ++;
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
144 }
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
145 $t->{$last}->{level} = $level;
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
146 $t->{$last}->{data} = $data;
203
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
147
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
148 } else {
204
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
149 # we dont have a selector, only class
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
150
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
151 $this->_classTemplates->{$class} = $data;
203
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
152 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
153
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
154 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
155 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
156 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
157
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
158 sub MatchAlternatives {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
159 my ($this,$segment,$alternatives,$results) = @_;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
160
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
161 my @next;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
162
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
163 foreach my $alt (@$alternatives) {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
164 while (my ($selector,$match) = each %{$alt->{selector}} ) {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
165
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
166
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
167 my $context = {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
168 vars => \%{ $alt->{vars} || {} },
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
169 selector => $match->{next}
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
170 };
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
171
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
172 if ($selector =~ s/^>//) {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
173 $context->{immediate} = 1;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
174 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
175
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
176 if (my ($name,$rx) = ($selector =~ m/^\{(?:(\w+)\:)?(.*)\}$/) ) {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
177 #this is a regexp
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
178
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
179 if ( my @captures = ($segment =~ m/($rx)/) ) {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
180 $context->{success} = 1;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
181
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
182 if ($name) {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
183 $context->{vars}->{$name} = \@captures;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
184 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
185 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
186 } else {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
187 #this is a segment name
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
188 if ($segment eq $selector) {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
189 $context->{success} = 1;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
190 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
191 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
192
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
193 # test if there were a match
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
194 if (delete $context->{success}) {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
195 if (my $data = $match->{data}) {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
196 # interpolate data
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
197 $data =~ s/{(\w+)(?:\:(\d+))?}/
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
198 my ($name,$index) = ($1,$2 || 0);
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
199
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
200 if ($context->{vars}{$name}) {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
201 $context->{vars}{$name}[$index];
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
202 } else {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
203 "";
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
204 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
205 /gex;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
206
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
207 push @$results, { level => $match->{level}, result => $data };
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
208 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
209 push @next, $context if $context->{selector};
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
210 } else {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
211 #repeat current alternative if it's not required to be immediate
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
212 push @next, {
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
213 selector => { $selector, $match },
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
214 vars => $alt->{vars}
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
215 } unless $alt->{immediate};
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
216 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
217 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
218 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
219
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
220 return \@next;
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
221 }
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
222
199
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
223 1;
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
224
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
225 __END__
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
226
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
227 =pod
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
228
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
229 =head1 NAME
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
230
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
231 C<IMPL::Web::Handler::TTView> - использует шаблоны для построения представления.
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
232
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
233 =head1 SYNOPSIS
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
234
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
235 =begin code xml
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
236
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
237 <item id="html-view" type="IMPL::Web::Handler::TTView">
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
238 <contentType>text/html</contentType>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
239 <loader id="tt-loader" type="IMPL::Web::View::TTLoader">
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
240 <options type="HASH">
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
241 <INCLUDE_PATH type="IMPL::Config::Reference">
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
242 <target>IMPL::Config</target>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
243 <AppBase>view</AppBase>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
244 </INCLUDE_PATH>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
245 <INTERPOLATE>1</INTERPOLATE>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
246 <POST_CHOMP>1</POST_CHOMP>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
247 <ENCODING>utf-8</ENCODING>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
248 </options>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
249 <ext>.tt</ext>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
250 <initializer>global.tt</initializer>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
251 <layoutBase>layouts</layoutBase>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
252 </loader>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
253 <defaultDocument>default</defaultDocument>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
254 <selectors type="ARRAY">
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
255 <item>@HASH => dump</item>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
256 <item>@My::Data::Product => product/info</item>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
257 <item>{action:.*} @My::Data::Product => product/{action}</item>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
258 </selectors>
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
259 </item>
199
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
260
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
261 =end code xml
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
262
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
263 =head1 DESCRIPTION
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
264
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
265 Подбирает шаблон для представления результата, полученного при выполнении следующего обработчика. При
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
266 выборе используется принцип похожий на селекторы C<CSS>, основывающийся на именах ресурсов и их типах
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
267 данных.
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
268
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
269 =head1 SELECTORS
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
270
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
271 =begin text
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
272
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
273 [url-template] [class] => template
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
274
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
275 shoes => product/list
199
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
276 {action:*.} @My::Data::Product => product/{action}
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
277
206
c8fe3f84feba +IMPL::Web::Handlers::ViewSelector
sergey
parents: 205
diff changeset
278 stuff >list => product/list
204
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents: 203
diff changeset
279 details => product/details
203
68a59c3358ff Implemented templates selection mechanism
sergey
parents: 200
diff changeset
280
199
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
281 =end text
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
282
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
283
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
284 =cut
e743a8481327 Added REST support for forms (with only get and post methods)
sergey
parents:
diff changeset
285