simon cozens debug page and improved exceptions

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

index 8b12debb15be5217a95022770a064f920129e4e1..0280e1ef3ab52fdd460d8b5978a0aff598200d31 100644 (file)
--- a/lib/Maypole/View/TT.pm
+++ b/lib/Maypole/View/TT.pm
@@ -4,6 +4,9 @@ use Maypole::Constants;
  use Template;
  use File::Spec::Functions qw(catdir tmpdir);
  
+our $error_template; 
+{ local $/; $error_template = <DATA>; }
+
  use strict;
  our $VERSION = 2.11;
  
@@ -36,7 +39,27 @@ sub template {
      }
  }
  
-1;
+
+sub report_error {
+    my ($self, $r, $error, $type) = @_;
+    my $output;
+    # Need to be very careful here.
+    my $tt = Template->new;
+    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 )) {
+        $r->{output} = $output;
+        if ($tt->error) { $r->{output} = "<html><body>Even the error template
+        errored - ".$tt->error."</body></html>"; }
+        $r->{content_type}      ||= "text/html";
+        $r->{document_encoding} ||= "utf-8";
+        return OK;
+    }
+    return ERROR;
+}
+
  
  =head1 NAME
  
@@ -298,3 +321,55 @@ Simon Cozens
  
  =cut
  
+1;
+
+__DATA__
+<html><head><title>Maypole error page</title>
+<style type="text/css">
+body { background-color:#7d95b5; font-family: sans-serif}
+p { background-color: #fff; padding: 5px; }
+pre { background-color: #fff; padding: 5px; border: 1px dotted black }
+h1 { color: #fff }
+h2 { color: #fff }
+.lhs {background-color: #ffd; }
+.rhs {background-color: #dff; }
+</style>
+</head> <body>
+<h1> Maypole application error </h1>
+
+<p> This application living at <code>[%request.config.uri_base%]</code>, 
+[%request.config.application_name || "which is unnamed" %], has
+produced an error. The adminstrator should be able to understand
+this error message and fix the problem.</p>
+
+<h2> Some basic facts </h2>
+
+<p> The error was found in the [% err_type %] stage of processing
+the path "[% request.path %]". The error text returned was:
+</p>
+<pre>
+    [% error %]
+</pre>
+
+<h2> Request details </h2>
+
+<table> 
+    [% FOR thing = ["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>
+    [% END %]
+</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>
+
+</body>
+</html>
+
+