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 href="/mail/compose.html"><% $config->get('developer_email', 'tkay@uoregon.edu') |h %></a>, or call <% $config->get('support_phone', '346-1758') |h %>.
</p>
<p><a href="/mail/index.html">Click here</a> to continue.</p>
</body>
</html>
<%init>
eval {
my $logger = Log::Log4perl->get_logger('alphamail');
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::Address->parse($config->get('developer_email', 'tkay@uoregon.edu'));
my $replyaddr = '"AlphaMail Error System" ' . $addr[0]->address;
my $entity = MIME::Entity->build(
From => $replyaddr,
To => $addr[0]->address,
Subject => "Application Error Report",
Data => $error_text,
Type => 'text/plain');
$entity->smtpsend(MailFrom => $replyaddr,
Host => $config->get('smtp', 'smtp'));
};
eval {
my $user = Apache::SiteControl->getCurrentUser($r);
my $composition = new AlphaMail::Message($user, $config);
$composition->setBody('');
$composition->setAddresses($config->get('developer_email', 'tkay@uoregon.edu'),'','');
$composition->setSubject("Alphamail bug:");
$composition->save();
};
</%init>
<%once>
use Log::Log4perl;
use AlphaMail::Message;
</%once>
<%flags>
inherit => undef
</%flags>
See more files for this project here