added sensible defaults to template so less whitespace waste

[maypole.git] / lib / Maypole / View / TT.pm
diff --git a/lib/Maypole/View/TT.pm b/lib/Maypole/View/TT.pm

index fb94767f0bf24964720fb516110395dd7936c2af..8759e0cba9206754a24783b7b82de80cb0e1d8f9 100644 (file)
--- a/lib/Maypole/View/TT.pm
+++ b/lib/Maypole/View/TT.pm
@@ -3,16 +3,26 @@ 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; 
+our $error_template;
  { local $/; $error_template = <DATA>; }
  
+our $VERSION = '2.13';
+
+my $debug_flags = DEBUG_ON;
+
  use strict;
  
  sub template {
    my ( $self, $r ) = @_;
    unless ($self->{tt}) {
-    my $view_options = $r->config->view_options || {};
+    my $view_options = $r->config->view_options || { POST_CHOMP=>1, PRE_CHOMP=>1, TRIM=>1 };
+    if ($r->debug) {
+      $view_options->{DEBUG} = $debug_flags;
+    }
+
+    $view_options->{POST_CHOMP} = 1 unless (exists $view_options->{POST_CHOMP});
      $self->{provider} = Template::Provider->new($view_options);
      $self->{tt}       = Template->new({
                                        %$view_options,
@@ -34,11 +44,13 @@ sub template {
      return OK;
    } else {
      if ($@) {
-      warn "fatal error in template '$template_file' : $@\n";
-      $r->{error} = "fatal error in template '$template_file' : $@";
+      my $error = "fatal error in template '$template_file' : $@\nTT paths : " . join(', ',$self->paths($r)) . "\n";
+      $r->warn($error);
+      $r->{error} = $error;
      } else {
-      warn "TT error for template '$template_file'\n" . $self->{tt}->error;
-      $r->{error} = "TT error for template '$template_file'\n" . $self->{tt}->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;
    }
@@ -49,20 +61,21 @@ sub report_error {
      my ($self, $r, $error, $type) = @_;
      my $output;
  
-    warn "self : $self, r : $r, error : $error, type : $type\n";
-
      # 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,
-                      paths => $self->paths($r),
+                      paths => [ $self->paths($r) ],
                        eval{$self->vars($r)} }, \$output )) {
          $r->{output} = $output;
          if ($tt->error) { $r->{output} = "<html><body>Even the error template
@@ -286,6 +299,18 @@ truncate, format, escape or encode trivially. A useful selection is included
  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
@@ -408,6 +433,11 @@ the path "[% request.path %]". The error text returned was:
      <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>