%# %# $Id$ %# % layout 'default'; % title 'Maacom'; % use Mojo::Util qw(dumper); % my $u = $c->app->user; % my $name = $c->req->param('forwarded_name'); % my $forwarded_id = $c->req->param('forwarded_id') || 0; % my $profile = $u->forwarded_profile($forwarded_id); % if ($profile) { % my $cid = $u->forwarded_exist($name); % if ($cid) {
Domain <%= $name %> already exists
% } % unless ($cid) { % my $res = $u->forwarded_update($forwarded_id, name => $name); % if ($res) {
Domain <%= $name %> has been updated.
% } % unless ($res) {
Domain <%= $name %> was not updated.
% } % } % } % unless ($profile) {
Domain with id <%= $forwarded_id %> not exist
% } %#EOF