package IMPL::Web::QueryHandler::PageFormat;
use base qw(IMPL::Web::QueryHandler);

__PACKAGE__->PassThroughArgs;

use IMPL::Class::Property;
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;