Mercurial > pub > Impl

diff 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
line wrap: on
line diff
--- a/Lib/IMPL/Web/QueryHandler/PageFormat.pm	Fri Mar 12 16:23:46 2010 +0300
+++ b/Lib/IMPL/Web/QueryHandler/PageFormat.pm	Mon Mar 15 02:38:09 2010 +0300
@@ -4,12 +4,24 @@
 __PACKAGE__->PassThroughArgs;
 
 use IMPL::Class::Property;
-use URI;
+use IMPL::Web::TDocument;
+use Error qw(:try);
 
 sub Process {
 	my ($this,$action,$nextHandler) = @_;
 	
+	my $doc = new IMPL::Web::TDocument();
 	
+	try {
+		$doc->loadFile ( $ENV{PATH_TRANSLATED}, 'cp1251' );
+		
+		$action->response->contentType('text/html');
+		my $hOut = $action->response->streamBody;
+		
+		print $hOut $doc->Render();
+	} finally {
+		$doc->Dispose;
+	};
 }
 
 1;
\ No newline at end of file