use Maypole::Constants;
use Template;
use File::Spec::Functions qw(catdir tmpdir);
+use Template::Constants qw( :all );
-our $error_template;
+our $error_template;
{ local $/; $error_template = <DATA>; }
+our $VERSION = '2.13';
+
+my $debug_flags = DEBUG_ON;
+
use strict;
-our $VERSION = 2.11;
sub template {
- my ( $self, $r ) = @_;
- unless ($self->{tt}) {
- my $view_options = $r->config->view_options || {};
- $self->{provider} = Template::Provider->new($view_options);
- $self->{tt} = Template->new({
- %$view_options,
- LOAD_TEMPLATES => [ $self->{provider} ],
- });
+ my ( $self, $r ) = @_;
+ unless ($self->{tt}) {
+ my $view_options = $r->config->view_options || { POST_CHOMP=>1, PRE_CHOMP=>1, TRIM=>1 };
+ if ($r->debug) {
+ $view_options->{DEBUG} = $debug_flags;
}
- $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;
+ $view_options->{POST_CHOMP} = 1 unless (exists $view_options->{POST_CHOMP});
+ $self->{provider} = Template::Provider->new($view_options);
+ $self->{tt} = Template->new({
+ %$view_options,
+ LOAD_TEMPLATES => [ $self->{provider} ],
+ });
+ }
+
+ $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 {
- if ($@) {
- warn "fatal error in template '$template_file' : $@\n";
- $r->{error} = "fatal error in template '$template_file' : $@";
- } else {
- warn "TT error for template '$template_file'\n" . $self->{tt}->error;
- $r->{error} = "TT error for template '$template_file'\n" . $self->{tt}->error;
- }
- return ERROR;
+ 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;
+
# Need to be very careful here.
my $tt = Template->new;
unless (ref $r->{config}) {
- warn "no config for this request\n";
+ $r->warn("no config for this request");
$error .= '<br> 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, # We have that at least
- eval{$self->vars($r)} }, \$output )) {
+ { 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} = "<html><body>Even the error template
errored - ".$tt->error."</body></html>"; }
with Template Toolkit and they can also be found on CPAN or can be written
easily. See L<Template::Manual::Filters>.
+TT provides stderr and stdout filters, which allow you to write handy macros
+like this one to output debug information to your web server log, etc :
+
+=over 4
+
+[% MACRO debug_msg(text)
+ FILTER stderr; "[TT debug_msg] $text\n"; END;
+%]
+
+=back
+
+
TT Macros allow you to reuse small blocks of content, directives, etc. The MACRO
directive allows you to define a directive or directive block which is then
evaluated each time the macro is called. Macros can be passed named parameters
<h2> Request details </h2>
-<table>
- [% FOR thing = ["model_class", "table", "template", "path",
+<table width="85%" cellspacing="2" cellpadding="1">
+ [% FOR attribute = ["model_class", "table", "template", "path",
"content_type", "document_encoding", "action", "args", "objects"] %]
- <tr> <td class="lhs"> [%thing %] </td> <td class="rhs"> [%
- request.$thing.list.join(" , ") %] </td></tr>
+ <tr> <td class="lhs" width="35%"> <b>[% attribute %]</b> </td> <td class="rhs" width="65%"> [%
+ request.$attribute.list.join(" , ") %] </td></tr>
+ [% END %]
+ <tr><td colspan="2"></tr>
+ <tr><td class="lhs" colspan="2"><b>CGI Parameters</b> </td></tr>
+ [% FOREACH param IN request.params %]
+ <tr> <td class="lhs" width="35%">[% param.key %]</td> <td class="rhs" width="65%"> [% param.value %] </td></tr>
[% END %]
</table>
+<h2> Website / Template Paths </h2>
+<table width="85%" cellspacing="2" cellpadding="1">
+<tr><td class="lhs" width="35%"> <b>Base URI</b> </td><td class="rhs" width="65%">[% request.config.uri_base %]</td></tr>
+<tr><td class="lhs" width="35%"> <b>Paths</b> </td><td class="rhs" width="65%"> [% paths %] </td></tr>
+</table>
+
<h2> Application configuration </h2>
-<table>
- [% FOR thing = config.keys %]
- <tr> <td class="lhs"> [%thing %] </td> <td class="rhs"> [%
- config.$thing.list.join(" , ") %] </td></tr>
- [% END %]
+<table width="85%" cellspacing="2" cellpadding="1">
+ <tr><td class="lhs" width="35%"> <b>Model </b> </td><td class="rhs" width="65%"> [% request.config.model %] </td></tr>
+ <tr><td class="lhs" width="35%"> <b>View </b> </td><td class="rhs" width="65%"> [% request.config.view %] </td></tr>
+ <tr><td class="lhs" width="35%"> <b>Classes</b> </td><td class="rhs" width="65%"> [% request.config.classes.list.join(" , ") %] </td></tr>
+ <tr><td class="lhs" width="35%"> <b>Tables</b> </td><td class="rhs" width="65%"> [% request.config.display_tables.list.join(" , ") %] </td></tr>
</table>
</body>
</html>
-
-
projects / maypole.git / blobdiff