%#
%# $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);
| # |
address |
|
|
|
|
|
|
% 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;
| <%= $n %> |
<%= $address %> |
<%= $gecos %> |
<%= $size %> |
<%= $quota %> |
|
|
|
% }
% }
% }
% unless ($domain_id) {
Accounts
% my $list = $u->user_list;
| # |
address |
|
|
|
|
|
|
|
% 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;
| <%= $n %> |
<%= $address %> |
<%= $gecos %> |
<%= $size %> |
<%= $quota %> |
|
|
|
|
% }
% }
% }
%# EOF