%# %# $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'); % unless ($domain_id) {
Aliases
% my $list = $u->alias_list; % my $n = 0; % if ($list) { % foreach my $row (@$list) { % $n += 1; % my $alias_id = $row->{id}; % my $address = $row->{address}; % my $domain_id = $row->{domain_id}; % my $count = split ",", $row->{list}; % } % }
# alias
<%= $n %> <%= $address %> <%= $count %>
% } % if ($domain_id) { % my $domain_name = $u->domain_profile($domain_id)->{name};
Aliases <%= $domain_name %>
% my $list = $u->alias_list($domain_id); % if ($list) { % my $n = 0; % foreach my $row (@$list) { % $n += 1; % my $c = split ',', $row->{list}; % my $alias_id = $row->{id}; % my $address = $row->{address}; % my $domain_id = $row->{domain_id}; % my $count = split ",", $row->{list}; % } % }
# alias
<%= $n %> <%= $address %> <%= $count %>
% } %# EOF