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>
<%perl>
my $start = 0;
my $count = @$list;
my $max_idx = $#$list;
my $nrows = int($count / 3) + ($count%3 ? 1:0);
my $prefix = $prefs->get('folder_prefix', $config->get('folder_prefix', 'mail'));
my $n;
for($start=0; $start < $nrows; $start++) {
for(my $i=0; $i<3; $i++) {
$n = $start + $nrows*$i;
last if $n > $max_idx;
my $displayname = decode('utf8', $tr->decode($list->[$n]));
$displayname =~ s/^\Q$prefix\E\/?//;
</%perl>
<td>
<a href="/mail/index.html?folder=<% $list->[$n] |u %>">
<% $displayname |h %>
</a>
</td>
% }
</tr><tr>
% }
</tr>
</table>
</div>
<& /mail/footer.mhtml &>
<%init>
my $user = Apache::SiteControl->getCurrentUser($r);
my $prefs = new AlphaMail::Preferences($user->getUsername(),
$user->getAttribute('imap'), $config);
my $tr = Unicode::IMAPUtf7->new();
my $list;
my $c;
$list = AlphaMail::SessionUtil::getFolderList($r, $user, $config);
</%init>
<%once>
use Encode;
our $logger = Log::Log4perl->get_logger('alphamail');
</%once>
See more files for this project here