Show other_folders.html syntax highlighted
% # vim:set syntax=mason:
<& /mail/header.mhtml, title => "Folder Select", folder => 'none' &>
<div class="heading">All Folders</div>
<div class="section">
<table class="folderselector">
<tr>
% my $prefix = $config->get('folder_prefix', 'mail');
% for(my $i=0; $i <= $#$list; $i++) {
% my $displayname = decode('utf8', $tr->decode($list->[$i]));
% $displayname =~ s/^\Q$prefix\E\/?//;
<td>
<a href="/mail/index.html?folder=<% $list->[$i] |u %>">
<% $displayname |h %>
</a>
</td>
% if($i % 3 == 2) {
</tr><tr>
% }
% }
</tr>
</table>
</div>
<& /mail/footer.mhtml &>
<%init>
my $user = Apache::SiteControl->getCurrentUser($r);
my $tr = Unicode::IMAPUtf7->new();
my $list;
my $c;
$c = new AlphaMail::Middleware($user->getAttribute('imap'),
$user->getUsername(),
$user->getAttribute('password'), $config);
$list = AlphaMail::SessionUtil::getFolderList($r, $user, $config);
$c->close();
</%init>
<%once>
our $logger = Log::Log4perl->get_logger('alphamail');
</%once>
See more files for this project here