53 lines
1.1 KiB
Perl
53 lines
1.1 KiB
Perl
%#
|
|
%# $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) {
|
|
<div class="callout warning">User <%= $user_name %> already exists</div>
|
|
% }
|
|
|
|
% unless ($cid) {
|
|
% my $id = $u->user_add($user_name, $gecos, $password, $domain_id, $quota);
|
|
% if ($id) {
|
|
<div class="callout success">User <%= $user_name %> has been added.</div>
|
|
% }
|
|
|
|
% unless ($id) {
|
|
<div class="callout alert">User <%= $user_name %> was not added.</div>
|
|
% }
|
|
% }
|
|
|
|
% if ($domain_id) {
|
|
<a class="float-left button tiny" href="/user/list?domain_id=<%= $domain_id %>">
|
|
<i class="fi-arrow-left"></i>
|
|
</a>
|
|
% }
|
|
|
|
% unless ($domain_id) {
|
|
<a class="float-left button tiny" href="/user/list">
|
|
<i class="fi-arrow-left"></i>
|
|
</a>
|
|
% }
|
|
|
|
|
|
%#EOF
|
|
|
|
|
|
|
|
|