Mercurial > pub > Impl
diff Lib/Engine/Output/Page.pm @ 49:16ada169ca75
migrating to the Eclipse IDE
author | wizard@linux-odin.local |
---|---|
date | Fri, 26 Feb 2010 10:49:21 +0300 |
parents | 03e58a454b20 |
children |
line wrap: on
line diff
--- a/Lib/Engine/Output/Page.pm Fri Feb 26 01:43:42 2010 +0300 +++ b/Lib/Engine/Output/Page.pm Fri Feb 26 10:49:21 2010 +0300 @@ -1,34 +1,34 @@ -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; +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;