%# %# $Id$ %# % layout 'default'; % title 'Maacom'; % use Mojo::Util qw(dumper); % my $req = $c->req; % my $u = $c->app->user; % my $domain_id = $req->param('domain_id'); % if ($domain_id) { % my $domain_name = $u->domain_profile($domain_id)->{name};
Accounts <%= $domain_name %>
% my $list = $u->user_list($domain_id); % if ($list) { % my $n = 0; % foreach my $row (@$list) { % $n += 1; % my $address = $row->{address}; % my $gecos = $row->{gecos}; % my $user_id = $row->{id}; % my $domain_id = $row->{domain_id}; % my $size = $row->{size} || 0; % my $quota = $row->{quota} || 0; % } % }
# address
<%= $n %> <%= $address %> <%= $gecos %> <%= $size %> <%= $quota %>
% } % unless ($domain_id) {
Accounts
% my $list = $u->user_list; % my $n = 0; % if ($list) { % foreach my $row (@$list) { % $n += 1; % my $address = $row->{address}; % my $gecos = $row->{gecos}; % my $user_id = $row->{id}; % my $domain_id = $row->{domain_id}; % my $size = $row->{size} || 0; % my $quota = $row->{quota} || 0; % } % }
# address
<%= $n %> <%= $address %> <%= $gecos %> <%= $size %> <%= $quota %>
% } %# EOF