]> git.decadent.org.uk Git - maypole.git/commitdiff
projects / maypole.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 0333907)
simon cozens debug page and improved exceptions
authorAaron Trevena <aaron.trevena@gmail.com>
Sat, 19 Nov 2005 18:16:34 +0000 (18:16 +0000)
committerAaron Trevena <aaron.trevena@gmail.com>
Sat, 19 Nov 2005 18:16:34 +0000 (18:16 +0000)
git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@430 48953598-375a-da11-a14b-00016c27c3ee

Changes patch | blob | history
lib/Maypole.pm patch | blob | history
lib/Maypole/View/TT.pm patch | blob | history

diff --git a/Changes b/Changes
index e0b8a503858895dda31cd8a05edf2e464ea53d78..929ff96daf8c94d6bcd92389c14aefedca8cfc9b 100644 (file)
--- a/Changes
+++ b/Changes
@@ -36,6 +36,10 @@ API additions and enhancements:
         - added new path processing methods for ssl and default table/action
         - added make_path() 
         - added make_uri()
+       - improved exception handling
+     Maypole::View::TT:
+       - new report_error method
+       - new embedded error report page in __DATA__
      Templates:
         - Improved pager macro/include
         - added the status() attribute, although it's not used in many places 
diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index dbae33be3580d65f667d6e79044ef9b30ca94634..85d471f33f43369b3d94370cc672aad065d47d10 100644 (file)
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -515,7 +515,7 @@ sub handler_guts
     
     if ( my $error = $@ ) 
     {
-        $status = $self->call_exception($error);
+        $status = $self->call_exception($error, "authentication");
         
         if ( $status != OK ) 
         {
@@ -542,7 +542,7 @@ sub handler_guts
         
         if ( my $error = $@ ) 
         {
-            $status = $self->call_exception($error);
+            $status = $self->call_exception($error, "model");
             
             if ( $status != OK ) 
             {
@@ -595,7 +595,7 @@ sub __call_process_view
     
     if ( my $error = $@ ) 
     {
-        $status = $self->call_exception($error);
+        $status = $self->call_exception($error, "view");
         
         if ( $status != OK ) 
         {
@@ -823,16 +823,16 @@ exception method of your Maypole application.
 
 sub call_exception 
 {
-    my ($self, $error) = @_;
+    my ($self, $error, $when) = @_;
 
     # Check if we have a model class with an exception() to delegate to
     if ( $self->model_class && $self->model_class->can('exception') )
     {
-        my $status = $self->model_class->exception( $self, $error );
+        my $status = $self->model_class->exception( $self, $error, $when );
         return $status if $status == OK;
     }
     
-    return $self->exception($error);
+    return $self->exception($error, $when);
 }
 
 
@@ -845,7 +845,14 @@ processed.
 
 =cut
 
-sub exception { return ERROR }
+sub exception { 
+    my ($self, $error, $when) = @_;
+    if ($self->view_object->can("report_error") and $self->debug) {
+        $self->view_object->report_error($self, $error, $when);
+        return OK;
+    }
+    return ERROR;
+}
 
 =item additional_data
 
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>
+
+
Package: Maypole [unmaintained]