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