%# %# $Id$ %# % layout 'default'; % title 'Maacom'; % use Mojo::Util qw(dumper); % my $u = $c->app->user; % my $user_id = $c->req->param('user_id') || 0; % my $password = $c->req->param('password'); % my $profile = $u->user_profile($user_id); % if ($profile) { % my $domain_id = $profile->{domain_id}; % my $domain_name = $profile->{domain_name}; % my $address = $profile->{address}; % my $res = $u->user_update($user_id, password => $password); % if ($res) {