Show quota.html syntax highlighted
% # vim: set syntax=mason:
% $pct = (($free/$space->{total}) * 100);
<& /mail/header.mhtml, title => "Quotas",
message => ($pct < 10 ? "Warning: You are almost out of space! Please delete old messages and files.": "") &>
<p class="freespace">Free Space: <% size_with_units($free) %> (<% $free_pct %>%)</p>
<div class="subheading">Breakdown of usage</div>
<div class="section">
<img class="usage" src="<% build_url("$base/mail/quota_graph.html", { free => $free, used => $space->{used}, categories => $space->{categories} } ) |h %>">
<table class="usage">
% my $i = 1;
% for my $k (sort keys %{$space->{categories}}) {
<tr>
<th>
<% $k |h %>:
</th>
<td class="quotaspace_<% $i %>">
% $pct = ($space->{categories}{$k}/$space->{total} < 0.01) ? "<1":sprintf("%2d", (($space->{categories}{$k}/$space->{total}) * 100));
<% size_with_units($space->{categories}{$k}) %> (<% $pct %>%)
</td>
</tr>
% }
</table>
</div>
<div class="smallprint">Note: Quota information updates at 1 minute intervals</div>
<div class="subheading">Usage by Folder</div>
<div class="section">
<table class="usage">
% for my $k (sort { $space->{folders}{$b} <=> $space->{folders}{$a} } keys %{$space->{folders}}) {
<tr>
<th>
<% decode('utf8', $tr->decode($k)) |h %>
</th>
<td>
% $pct = ($space->{folders}{$k}/$space->{total} < 0.01 ? "<1":sprintf("%2d", (($space->{folders}{$k}/$space->{total}) * 100)));
<% size_with_units($space->{folders}{$k}) %> (<% $pct %>%)
</td>
</tr>
% }
</table>
</div>
<& /mail/footer.mhtml &>
<%init>
# return if $m->cache_self(key => "quota_$username.$host", expires_in => "1 min");
my $user = Apache2::SiteControl->getCurrentUser($r);
if(!$user || !$user->isa('Apache2::SiteControl::User')) {
$logger->error("Unable to find a user for the given session key.");
$m->redirect("/");
}
my $tr = Unicode::IMAPUtf7->new();
my $quota_class = $config->get("quota_class", "AlphaMail::Quota");
my $quota;
my $exp;
my $pct;
eval "require $quota_class" or $logger->error("Could not load $quota_class: $@");
$exp = '$quota = new ' . $quota_class . '($user, $config);';
$logger->debug("$exp");
eval($exp) or $logger->error("Eval failed: $@");
if(!$quota && !$quota->isa('AlphaMail::Quota')) {
$m->redirect(build_url($base . '/mail/index.html', { error => "Quota subsystem failure. Contact support." }));
}
my $space = $quota->getUsage();
my $free = $space->{total} - $space->{used};
my $free_pct = sprintf("%2d", (($free/$space->{total}) * 100));
# (sprintf("%.1f", $sizemap{other}{kb}/1024)):$sizemap{other}{kb});
</%init>
<%once>
use Encode;
use AlphaMail::Quota;
use AlphaMail::HTMLHelper qw(build_url size_with_units);
our $logger = Log::Log4perl->get_logger('alphamail');
our $base = $config->get('base_uri');
</%once>
See more files for this project here