Show error.html syntax highlighted
% # vim:set syntax=mason:
<html>
<head>
<title>Error</title>
</head>
<body>
<h1>Ooops!</h1>
<p>
Looks like our application broke! A message was sent to the
developers. You might also let someone know by sending a short note
about what you were doing to
<a alt="email the developers" href="<% $base %>/mail/compose.html"><% $config->get('developer_email', '(no local developer)') |h %></a>, or call <% $config->get('support_phone', '(no local support)') |h %>.
</p>
<p><a alt="return to alpha mail" href="<% $base %>/mail/index.html">Return to AlphaMail</a></p>
</body>
</html>
<%init>
eval {
my $error = $r->pnotes('error');
my $error_text;
$error_text = "Page is " . $r->uri . "\n\n";
$error_text .= UNIVERSAL::can( $error, 'as_text' ) ? $error->as_text : $error;
$logger->error("APPLICATION ERROR: $error_text");
my @addr = Email::AddressParser->parse($config->get('developer_email', 'root@localhost'));
my $entity = MIME::Entity->build(
From => $addr[0]->address,
To => $addr[0]->address,
Subject => "Application Error Report",
Data => $error_text,
Type => 'text/plain');
$entity->smtpsend(MailFrom => $addr[0]->address,
Host => $config->get('smtp', 'smtp'));
};
eval {
my $user = Apache2::SiteControl->getCurrentUser($r);
my $composition = new AlphaMail::Message($user, $config);
$composition->setBody('');
$composition->setAddresses($config->get('developer_email', 'root@localhost'),'','');
$composition->setSubject("Alphamail bug:");
$composition->save();
};
</%init>
<%once>
our $logger = Log::Log4perl->get_logger('alphamail');
our $base = $config->get('base_uri');
</%once>
<%flags>
inherit => undef
</%flags>
See more files for this project here