X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FView%2FTT.pm;h=3fbfbd6c66e4271f2e8b15aeff214dcac4e7b7a8;hb=cfd4b58bb2ac71335a701fb6db2f1c062e27bf3e;hp=042a1b5824da5e0cd16921c6da0920fa9386d78b;hpb=9def4d1b9f2f3dd6d2f0f789610954209b133703;p=maypole.git diff --git a/lib/Maypole/View/TT.pm b/lib/Maypole/View/TT.pm index 042a1b5..3fbfbd6 100644 --- a/lib/Maypole/View/TT.pm +++ b/lib/Maypole/View/TT.pm @@ -3,35 +3,88 @@ use base 'Maypole::View::Base'; use Maypole::Constants; use Template; use File::Spec::Functions qw(catdir tmpdir); +use Template::Constants qw( :all ); + +our $error_template; +{ local $/; $error_template = ; } + +our $VERSION = '2.12'; + +my $debug_flags = DEBUG_ON; use strict; -our $VERSION = "1." . sprintf "%04d", q$Rev$ =~ /: (\d+)/; sub template { - my ( $self, $r ) = @_; - + my ( $self, $r ) = @_; + unless ($self->{tt}) { my $view_options = $r->config->view_options || {}; - $self->{provider} ||= Template::Provider->new(); - $self->{tt} ||= Template->new({ - COMPILE_DIR => catdir(tmpdir(), $r->config->application_name), - %$view_options, - LOAD_TEMPLATES => [ $self->{provider} ], - }); + if ($r->debug) { + $view_options->{DEBUG} = $debug_flags; + } + $self->{provider} = Template::Provider->new($view_options); + $self->{tt} = Template->new({ + %$view_options, + LOAD_TEMPLATES => [ $self->{provider} ], + }); + } - $self->{provider}->include_path([ $self->paths($r) ]); + $self->{provider}->include_path([ $self->paths($r) ]); + my $template_file = $r->template; + + my $ext = $r->config->template_extension; + $template_file .= $ext if defined $ext; + + my $output; + my $processed_ok = eval{$self->{tt}->process($template_file, { $self->vars($r) }, \$output );}; + if ($processed_ok) { + $r->{output} = $output; + return OK; + } else { + if ($@) { + my $error = "fatal error in template '$template_file' : $@\nTT paths : " . join(', ',$self->paths($r)) . "\n"; + $r->warn($error); + $r->{error} = $error; + } else { + my $error = "TT error for template '$template_file'\n" . $self->{tt}->error . "\nTT paths : " . join(', ',$self->paths($r)) . "\n"; + $r->warn($error); + $r->{error} = $error; + } + return ERROR; + } +} + + +sub report_error { + my ($self, $r, $error, $type) = @_; my $output; - if ($self->{tt}->process( $r->template, { $self->vars($r) }, \$output )) { + + # Need to be very careful here. + my $tt = Template->new; + unless (ref $r->{config}) { + warn "no config for this request\n"; + $error .= '
There was a problem finding configuration for this request'; + $r->{config} ||= {}; + } + + $r->warn("report_error - reporting error to user : $error\n"); + + if ($tt->process(\$error_template, + { err_type => $type, error => $error, + config => $r->{config}, + request => $r, + paths => [ $self->paths($r) ], + eval{$self->vars($r)} }, \$output )) { $r->{output} = $output; + if ($tt->error) { $r->{output} = "Even the error template + errored - ".$tt->error.""; } + $r->{content_type} ||= "text/html"; + $r->{document_encoding} ||= "utf-8"; return OK; } - else { - $r->{error} = $self->{tt}->error; - return ERROR; - } + return ERROR; } -1; =head1 NAME @@ -47,16 +100,27 @@ Maypole::View::TT - A Template Toolkit view class for Maypole COMPILE_DIR => '/var/tmp/mysite/templates', } ); + ..... + + [% PROCESS macros %] + + [% pager %] + + [% link %] + + [% maybe_link_view %] + =head1 DESCRIPTION -This is the default view class for Maypole; it uses the Template Toolkit -to fill in templates with the objects produced by Maypole's model classes. -Please see the Maypole manual, and in particular, the C chapter, -for the template variables available and for a refresher on how template -components are resolved. +This is the default view class for Maypole; it uses the Template Toolkit to fill +in templates with the objects produced by Maypole's model classes. Please see +the L, and in particular, the +L chapter for the template variables available and +for a refresher on how template components are resolved. The underlying Template toolkit object is configured through -C<$r-Econfig-Eview_options>. See L