%# %# $Id$ %# % layout 'default'; % title 'Maacom'; % use Mojo::Util qw(dumper trim); % my $u = $c->app->user; % my $alias_id = $c->req->param('alias_id') || 0; % my $list = $c->req->param('list'); % my $profile = $u->alias_profile($alias_id); % if ($profile) { % my $domain_id = $profile->{domain_id}; % my $domain_name = $profile->{domain_name}; % my $address = $profile->{address}; % $list =~ s/[\s\n]/,/g; % $list =~ s/,,/,/g; % $list =~ s/^,//g; % $list =~ s/,$//g; % my $res = $u->alias_update($alias_id, list => $list); % if ($res) {
Alias <%= $address %> has been updated.
% } % unless ($res) {
Alias <%= $address %> was not updated.
% } % } % unless ($profile) {
Alias with id <%= $alias_id %> not exist
% } %#EOF