%#
%# $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;
| # |
alias |
|
|
|
|
|
% 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};
| <%= $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);
| # |
alias |
|
|
|
|
% 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};
| <%= $n %> |
<%= $address %> |
<%= $count %> |
|
|
|
% }
% }
% }
%# EOF