Show raw.html syntax highlighted
% # vim: set syntax=mason:
<%args>
$folder
$uid
$uidv
$sorted_offset
$sortby
$n => 0
$msg => ''
</%args>
<& /mail/header.mhtml, title => "Raw message display", folder => $folder, message => $msg &>
<a href="<% build_url("$base/mail/read.html",
{ sortby => $sortby, sorted_offset => $sorted_offset,
folder => $folder, uidv => $uidv, uid => $uid,
n => $n }) |h %>">Return to normal view</a>
<br>
<pre class="raw_message">
<%perl>
open DATA, "<$message" or $logger->error($user->getUsername() . ": Unable to open message file $message");
while(<DATA>) {
chomp;
</%perl>
<% $_ |h %>
% }
</pre>
<%init>
my $user = Apache2::SiteControl->getCurrentUser($r);
my $prefs = new AlphaMail::Preferences($user,
$user->getAttribute('mx'), $config);
my $c;
my $error = 0;
my $message;
eval {
$c = new AlphaMail::Middleware($user->getAttribute('imap'),
$user->getUsername(),
$user->getAttribute('password'),
$config);
$message = $c->getMessage($folder, $uid, $uidv, $config->getScratchDir($user));
};
if($@) {
$logger->error($user->getUsername() . ": raw.html failed: $@");
$error = 1;
}
$m->redirect(build_url("$base/mail/index.html", { message => "Folder changed. Please try again."})) if $error;
</%init>
<%once>
our $logger = Log::Log4perl->get_logger('alphamail');
our $base = $config->get('base_uri');
</%once>
See more files for this project here