Show word.html syntax highlighted
% # vim: set syntax=mason:
<%args>
$file => -1
$format => 'text'
</%args>
<%init>
my ($user, $prefix);
eval {
$user = Apache2::SiteControl->getCurrentUser($r);
$prefix = $config->getScratchDir($user);
};
if($@) {
$logger->error("Unable to get attachment: $@");
$m->redirect(build_url('/mail/index.html', { message => "Request failed" }));
}
my $folder = $user->getAttribute('reading_folder');
my $uid = $user->getAttribute('reading_uid');
my $uidv = $user->getAttribute('reading_uidv');
my $sorted_offset = $user->getAttribute('reading_offset');
my $sortby = $user->getAttribute('reading_sortby');
my $username = $user->getUsername();
my $antiword = $config->get('antiword');
my $sandbox_dir = $config->get('sandbox');
my $sandbox = $config->get('sandbox_util');
$file =~ s/\\/\\\\/g; # Un-escape escapes
if($file == -1) {
$m->redirect(build_url("$base/mail/index.html", { message => "No filename for attachment." }));
} elsif($file =~ m!(^|/)\.\./!) {
$logger->error("Security Violation! $username attempted to view $file. Prefix was $prefix");
$m->redirect(build_url("$base/mail/index.html", { message => "Security violation on filename $file" }));
}
my $name = $file;
$name =~ s!^.*/([^/]*)$!$1!;
unlink "$sandbox_dir/tmp/$name";
link "$prefix/$file", "$sandbox_dir/tmp/$name" or $logger->error("Could not create link from $file to $sandbox_dir/tmp");
if($format eq 'pdf') {
$r->content_type('application/pdf');
my @lines = qx($sandbox $antiword -a letter '/tmp/$name' 2>&1);
unlink "$sandbox_dir/tmp/$name";
$m->print(@lines);
}
</%init>
% if($format eq 'text') {
<& /mail/header.mhtml, title => "Word Document Viewer", folder => $folder &>
<a href="<% $base %>/mail/read.html?sorted_offset=<% $sorted_offset %>&folder=<% $folder |u %>&uidv=<% $uidv %>&uid=<% $uid %>&sortby=<% $sortby |h %>">Back to message</a>
% my @lines = qx($sandbox $antiword -f '/tmp/$name' 2>&1);
% unlink "$sandbox_dir/tmp/$name";
<pre>
% for my $l (@lines) {
% chomp $l;
<% $l |h %>
% }
</pre>
<& "/mail/footer.mhtml" &>
% }
<%once>
our $logger = Log::Log4perl->get_logger('alphamail');
our $base = $config->get('base_uri');
</%once>
See more files for this project here