Mercurial > pub > Impl

comparison Lib/IMPL/Web/QueryHandler/PageFormat.pm @ 63:76b878ad6596

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added serialization support for the IMPL::Object::List More intelligent Exception message Fixed encoding support in the actions Improoved tests Minor fixes
author wizard
date Mon, 15 Mar 2010 02:38:09 +0300
parents c64bd1bf727d
children 259cd3df6e53
comparison
equal deleted inserted replaced
62:c64bd1bf727d 63:76b878ad6596
2 use base qw(IMPL::Web::QueryHandler); 2 use base qw(IMPL::Web::QueryHandler);
3 3
4 __PACKAGE__->PassThroughArgs; 4 __PACKAGE__->PassThroughArgs;
5 5
6 use IMPL::Class::Property; 6 use IMPL::Class::Property;
7 use URI; 7 use IMPL::Web::TDocument;
8 use Error qw(:try);
8 9
9 sub Process { 10 sub Process {
10 my ($this,$action,$nextHandler) = @_; 11 my ($this,$action,$nextHandler) = @_;
11 12
13 my $doc = new IMPL::Web::TDocument();
12 14
15 try {
16 $doc->loadFile ( $ENV{PATH_TRANSLATED}, 'cp1251' );
17
18 $action->response->contentType('text/html');
19 my $hOut = $action->response->streamBody;
20
21 print $hOut $doc->Render();
22 } finally {
23 $doc->Dispose;
24 };
13 } 25 }
14 26
15 1; 27 1;