System Error

% if (Bric::Config::QA_MODE) { <& /widgets/qa/qa.mc &> % }

An exception was thrown:

Fault Type: <% ref $fault %>
Timestamp: <% strfdate($fault->get_timestamp) %>
Package: <% $fault->get_pkg %>
Filename: <% $fault->get_filename %>
Line: <% $fault->get_line %>
Message: <% $fault->get_msg . ($more_err ? "\n\n$more_err" : '') %> % if (ref $pay) {

% } else {
Payload: <% $pay %>

% }
% if (ref $pay) {

Payload:
Class: <% $pay->{class} %>
Action: <% $pay->{action} %>
Output Channel: <% $pay->{context}{oc}->get_name %>
Category: <% $pay->{context}{cat}->get_name %>
Element: <% $pay->{context}{elem}->get_name %>
% } Stack:
<% join("
\n", map { ref $_ ? join(' - ', @{$_}[1,2,3]) : $_ } @{$fault->get_stack} ) %>

<& '/widgets/debug/debug.mc' &>


Email the Bricolage Developers
<%args> $fault => undef $more_err => undef <%init>; # Clear out messages - they're likely irrelevant now. clear_msg(); unless ($fault) { my %h = $r->headers_in; $fault = Bric::Util::Fault::Exception::AP->new( { msg => $h{BRIC_ERR_MSG} || 'No error message found', payload => $h{BRIC_ERR_PAY} }); } my $pay = $fault->get_payload;