view Lib/Engine/Output/Page.pm @ 78:a5cb84374d40

TT::Control in work
author wizard
date Fri, 02 Apr 2010 20:19:17 +0400
parents 16ada169ca75
children
line wrap: on
line source

package Engine;
our $Encoding;

package Engine::Output::Page;
use strict;

use Common;
use DOM;

sub Print {
    my ($class,$Query,$Action) = @_;
    
    if (DOM::Site->can('LoadPage')) {
        my $pageId = $Action->RequestURI->path;
        DOM::Site->RegisterObject("Request",$Action);
        my $Page = DOM::Site->LoadPage($pageId);
        print $Query->header(-status => 200);
        undef $@;
        eval {
            $Page->Properties->{Encoding} = $Engine::Encoding;
            $Page->Render(*STDOUT);
        };
        if ($@) {
            print $Query->start_html('Error processing template');
            print $Query->p("Page: $pageId");
            print $Query->p("Error: $@");
            print $Query->end_html;
        }
    } else {
        die new Exception('The site doesn\'t support page output');
    }
}

1;