cvsuser 02/04/19 09:25:16
Modified: P5EEx/Blue/P5EEx/Blue/Context CGI.pm
Log:
catch exceptions during display_current_widget()
Revision Changes Path
1.13 +20 -2 p5ee/P5EEx/Blue/P5EEx/Blue/Context/CGI.pm
Index: CGI.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Context/CGI.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -w -r1.12 -r1.13
--- CGI.pm 18 Apr 2002 16:42:32 -0000 1.12
+++ CGI.pm 19 Apr 2002 16:25:16 -0000 1.13
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: CGI.pm,v 1.12 2002/04/18 16:42:32 spadkins Exp $
+## $Id: CGI.pm,v 1.13 2002/04/19 16:25:16 spadkins Exp $
#############################################################################
package P5EEx::Blue::Context::CGI;
@@ -536,7 +536,25 @@
$self->add_message($msg);
}
+ eval {
$self->display_current_widget();
+ };
+ if ($@) {
+ print <<EOF;
+Content-type: text/plain
+
+-----------------------------------------------------------------------------
+AN ERROR OCCURRED in P5EEx::Blue::Context::CGI->display_current_widget()
+-----------------------------------------------------------------------------
+$@
+
+-----------------------------------------------------------------------------
+Additional messages from earlier stages may be relevant if they exist below.
+-----------------------------------------------------------------------------
+$self->{messages}
+EOF
+ }
+
$self->shutdown();
}
