%# %# $Id$ %# % layout 'default'; % title 'Maacom'; % use Mojo::Util qw(dumper); % my $u = $c->app->user; % my $user_name = $c->req->param('user_name'); % my $domain_id = $c->req->param('domain_id'); % my $gecos = $c->req->param('gecos'); % my $password = $c->req->param('password'); % my $quota = $c->req->param('quota'); % my $cid = $u->user_exist($user_name, $domain_id); % if ($cid) {
User <%= $user_name %> already exists
% } % unless ($cid) { % my $id = $u->user_add($user_name, $gecos, $password, $domain_id, $quota); % if ($id) {
User <%= $user_name %> has been added.
% } % unless ($id) {
User <%= $user_name %> was not added.
% } % } % if ($domain_id) { % } % unless ($domain_id) { % } %#EOF