%# %# $Id$ %# % layout 'default'; % title 'Maacom'; % use Mojo::Util qw(dumper); % my $u = $c->app->user;
Domains
% my $list = $u->domain_list; % unless ($list) {
Cannot list domains. May be wrong database?
% } % my $n = 0; % if ($list) { % foreach my $row (@$list) { % $n += 1; % my $id = $row->{id}; % my $name = $row->{name}; % my $size = $row->{size}; % my $quota = $row->{quota}; % } % }
# domain
<%= $n %> <%= $name %> <%= $size %> <%= $quota %> <%= $u->domain_user_count($id) %> <%= $u->domain_alias_count($id) %>
%# EOF