From e959b27efb5796e150fec777511a0b1c9e504b7a Mon Sep 17 00:00:00 2001
From: ziggi <borodin@unix7.org>
Date: Fri, 15 Dec 2017 02:03:39 +0200
Subject: [PATCH] Added quota form/handlers for domain and user

---
 templs/domain-add-form.html.ep       |  7 +++++
 templs/domain-add-handler.html.ep    |  3 +-
 templs/domain-list.html.ep           |  5 ++++
 templs/domain-rename-form.html.ep    | 44 ++++++++++++++++++++++++++++
 templs/domain-rename-handler.html.ep | 42 ++++++++++++++++++++++++++
 templs/domain-update-form.html.ep    |  7 +++--
 templs/domain-update-handler.html.ep | 20 +++++--------
 templs/user-add-form.html.ep         |  6 +++-
 templs/user-list.html.ep             |  6 ++++
 templs/user-update-form.html.ep      |  6 ++++
 templs/user-update-handler.html.ep   |  4 ++-
 11 files changed, 131 insertions(+), 19 deletions(-)
 create mode 100644 templs/domain-rename-form.html.ep
 create mode 100644 templs/domain-rename-handler.html.ep

diff --git a/templs/domain-add-form.html.ep b/templs/domain-add-form.html.ep
index a88224b..09939a2 100644
--- a/templs/domain-add-form.html.ep
+++ b/templs/domain-add-form.html.ep
@@ -7,6 +7,7 @@
 % use Mojo::Util qw(dumper);
 
 % my $u = $c->app->user;
+% my $quota = 1024*1024;
 
 <div class="grid-container">
     <div class="grid-x grid-padding-x">
@@ -18,6 +19,12 @@
                 <input type="text" name="domain_name" placeholder="domain.org" required pattern="[_.-zA-Z0-9\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF]{5,42}"/>
                 <span class="form-error">Mandatory, 5 or more letter</span>
             </label>
+
+            <label>Domain quota
+                <input type="number" name="quota" value="<%= $quota %>" required pattern="[0-9]{1,15}"/>
+                    <span class="form-error">Mandatory, one or more ciphers</span>
+            </label>
+
             <div class="text-center">
                 <button type="submit" class="button">Accept</button>
                 <a class="button" href="/domain/list">Escape</a>
diff --git a/templs/domain-add-handler.html.ep b/templs/domain-add-handler.html.ep
index 5189a19..bdd24e0 100644
--- a/templs/domain-add-handler.html.ep
+++ b/templs/domain-add-handler.html.ep
@@ -9,13 +9,14 @@
 % my $u = $c->app->user;
 % my $name = $c->req->param('domain_name');
 % my $id = $u->domain_exist($name);
+% my $quota = $c->req->param('quota') || 0;
 
 % if ($id) {
     <div class="callout warning">Domain <%= $name %> already exists</div>
 % }
 
 % unless ($id) {
-    % my $res = $u->domain_add($name);
+    % my $res = $u->domain_add($name, $quota);
     % if ($res) {
         <div class="callout success">Domain <%= $name %> has been added.</div>
     % }
diff --git a/templs/domain-list.html.ep b/templs/domain-list.html.ep
index 955e61f..43934cb 100644
--- a/templs/domain-list.html.ep
+++ b/templs/domain-list.html.ep
@@ -30,8 +30,10 @@
             <th>#</th>
             <th>domain</th>
             <th><i class="fi-graph-pie"></i></th>
+            <th><i class="fi-alert"></i></th>
             <th><i class="fi-male"></i></th>
             <th><i class="fi-male-female"></i></th>
+            <th><i class="fi-address-book"></i></th>
             <th><i class="fi-pencil"></i></th>
             <th><i class="fi-trash"></i></th>
         </tr>
@@ -45,12 +47,15 @@
         % my $id = $row->{id};
         % my $name = $row->{name};
         % my $size = $row->{size};
+        % my $quota = $row->{quota};
             <tr>
                 <td><%= $n %></td>
                 <td><%= $name %></td>
                 <td><%= $size %></td>
+                <td><%= $quota %></td>
                 <td><a href="/user/list?domain_id=<%= $id %>"><%= $u->domain_user_count($id) %></a></td>
                 <td><a href="/alias/list?domain_id=<%= $id %>"><%= $u->domain_alias_count($id) %></a></td>
+                <td><a href="/domain/rename/form?domain_id=<%= $id %>"><i class="fi-address-book"></i></a></td>
                 <td><a href="/domain/update/form?domain_id=<%= $id %>"><i class="fi-pencil"></i></a></td>
                 <td><a href="/domain/delete/form?domain_id=<%= $id %>"><i class="fi-trash"></i></a></td>
             </tr>
diff --git a/templs/domain-rename-form.html.ep b/templs/domain-rename-form.html.ep
new file mode 100644
index 0000000..c4034ba
--- /dev/null
+++ b/templs/domain-rename-form.html.ep
@@ -0,0 +1,44 @@
+%#
+%# $Id$
+%#
+% layout 'default';
+% title 'Maacom';
+
+% use Mojo::Util qw(dumper);
+
+% my $u = $c->app->user;
+
+% my $domain_id = $c->req->param('domain_id') || 0;
+% my $profile = $u->domain_profile($domain_id);
+
+% if ($profile) {
+    % my $domain_name = $profile->{name};
+
+    <div class="grid-container">
+        <div class="grid-x grid-padding-x">
+          <div class="medium-6 medium-centered cell">
+
+            <form accept-charset="UTF-8" action="/domain/rename/handler" method="post" data-abide novalidate>
+                <h5 class="text-center">Edit domain</h5>
+                <input type="hidden" name="domain_id" value="<%= $domain_id %>"/>
+                <label>Domain name
+                    <input type="text" value="<%= $domain_name %>" name="domain_name" required pattern="[_.-zA-Z0-9\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF]{5,42}"/>
+                    <span class="form-error">Mandatory, 5 or more letter</span>
+                </label>
+                <div class="text-center">
+                    <button type="submit" class="button">Accept</button>
+                    <a class="button" href="/domain/list">Escape</a>
+                </div>
+            </form>
+
+          </div>
+        </div>
+    </div>
+% }
+
+% unless ($profile) {
+        <div class="callout warning">Domain with id <%= $domain_id %> not exist</div>
+% }
+
+
+%#EOF
diff --git a/templs/domain-rename-handler.html.ep b/templs/domain-rename-handler.html.ep
new file mode 100644
index 0000000..b31d9d4
--- /dev/null
+++ b/templs/domain-rename-handler.html.ep
@@ -0,0 +1,42 @@
+%#
+%# $Id$
+%#
+% layout 'default';
+% title 'Maacom';
+
+% use Mojo::Util qw(dumper);
+
+% my $u = $c->app->user;
+
+% my $new_name = $c->req->param('domain_name');
+% my $domain_id = $c->req->param('domain_id') || 0;
+% my $profile = $u->domain_profile($domain_id);
+
+% if ($profile) {
+    % my $name = $profile->{name};
+    % my $cid = $u->domain_exist($new_name);
+    % if ($cid) {
+        <div class="callout warning">Domain <%= $new_name %> already exists, domain name <%= $name %> was not changed.</div>
+    % }
+
+    % unless ($cid) {
+        % my $res = $u->domain_update($domain_id, name => $new_name);
+        % if ($res) {
+            <div class="callout success">Domain <%= $name %> has been renamed to <%= $new_name %>.</div>
+        % }
+
+        % unless ($res) {
+            <div class="callout alert">Domain <%= $name %> was not updated.</div>
+        % }
+    % }
+% }
+
+% unless ($profile) {
+        <div class="callout warning">Domain with id <%= $domain_id %> not exist</div>
+% }
+
+%#EOF
+
+
+
+
diff --git a/templs/domain-update-form.html.ep b/templs/domain-update-form.html.ep
index bf2c866..e87c220 100644
--- a/templs/domain-update-form.html.ep
+++ b/templs/domain-update-form.html.ep
@@ -13,6 +13,7 @@
 
 % if ($profile) {
     % my $domain_name = $profile->{name};
+    % my $quota = $profile->{quota} || 0;
 
     <div class="grid-container">
         <div class="grid-x grid-padding-x">
@@ -21,9 +22,9 @@
             <form accept-charset="UTF-8" action="/domain/update/handler" method="post" data-abide novalidate>
                 <h5 class="text-center">Edit domain</h5>
                 <input type="hidden" name="domain_id" value="<%= $domain_id %>"/>
-                <label>Domain name
-                    <input type="text" value="<%= $domain_name %>" name="domain_name" required pattern="[_.-zA-Z0-9\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF]{5,42}"/>
-                    <span class="form-error">Mandatory, 5 or more letter</span>
+                <label>Quota
+                    <input type="number" name="quota" value="<%= $quota %>" required pattern="[0-9]{1,15}"/>
+                    <span class="form-error">Mandatory, one or more ciphers</span>
                 </label>
                 <div class="text-center">
                     <button type="submit" class="button">Accept</button>
diff --git a/templs/domain-update-handler.html.ep b/templs/domain-update-handler.html.ep
index a994a65..0b21985 100644
--- a/templs/domain-update-handler.html.ep
+++ b/templs/domain-update-handler.html.ep
@@ -8,25 +8,19 @@
 
 % my $u = $c->app->user;
 
-% my $name = $c->req->param('domain_name');
 % my $domain_id = $c->req->param('domain_id') || 0;
 % my $profile = $u->domain_profile($domain_id);
+% my $quota = $c->req->param('quota') || $profile->{quota};
 
 % if ($profile) {
-    % my $cid = $u->domain_exist($name);
-    % if ($cid) {
-        <div class="callout warning">Domain <%= $name %> already exists</div>
+    % my $name = $profile->{name};
+    % my $res = $u->domain_update($domain_id, quota => $quota);
+    % if ($res) {
+        <div class="callout success">Domain <%= $name %> has been updated.</div>
     % }
 
-    % unless ($cid) {
-        % my $res = $u->domain_update($domain_id, name => $name);
-        % if ($res) {
-            <div class="callout success">Domain <%= $name %> has been updated.</div>
-        % }
-
-        % unless ($res) {
-            <div class="callout alert">Domain <%= $name %> was not updated.</div>
-        % }
+    % unless ($res) {
+        <div class="callout alert">Domain <%= $name %> was not updated.</div>
     % }
 % }
 
diff --git a/templs/user-add-form.html.ep b/templs/user-add-form.html.ep
index 67c2188..37d050b 100644
--- a/templs/user-add-form.html.ep
+++ b/templs/user-add-form.html.ep
@@ -9,11 +9,11 @@
 % my $u = $c->app->user;
 
 % my $domain_id = $c->req->param('domain_id');
+% my $quota = 1024*10;
 
 % if ($domain_id) {
     % my $profile = $u->domain_profile($domain_id);
     % my $domain_name = $profile->{name};
-    % my $quota = 1024*1024*1024*10;
     <div class="grid-container">
         <div class="grid-x grid-padding-x">
           <div class="medium-6 medium-centered cell">
@@ -70,6 +70,10 @@
                         % }
                     </select >
                 </label>
+                <label>Quota
+                    <input type="number" name="quota" value="<%= $quota %>" required pattern="[0-9]{1,15}"/>
+                    <span class="form-error">Mandatory, one or more ciphers</span>
+                </label>
 
                 <div class="text-center">
                     <button type="submit" class="button">Accept</button>
diff --git a/templs/user-list.html.ep b/templs/user-list.html.ep
index f9ec725..f58ae90 100644
--- a/templs/user-list.html.ep
+++ b/templs/user-list.html.ep
@@ -28,6 +28,7 @@
                 <th>#</th>
                 <th>address</th>
                 <th><i class="fi-graph-pie"></i></th>
+                <th><i class="fi-alert"></i></th>
                 <th><i class="fi-address-book"></i></th>
                 <th><i class="fi-pencil"></i></th>
                 <th><i class="fi-trash"></i></th>
@@ -42,10 +43,12 @@
                 % my $user_id = $row->{id};
                 % my $domain_id = $row->{domain_id};
                 % my $size = $row->{size} || 0;
+                % my $quota = $row->{quota} || 0;
                 <tr>
                     <td><%= $n %></td>
                     <td><%= $address %></td>
                     <td><%= $size %></td>
+                    <td><%= $quota %></td>
                     <td><a href="/user/rename/form?user_id=<%= $user_id %>"><i class="fi-address-book"></i></a></td>
                     <td><a href="/user/update/form?user_id=<%= $user_id %>"><i class="fi-pencil"></i></a></td>
                     <td><a href="/user/delete/form?user_id=<%= $user_id %>"><i class="fi-trash"></i></a></td>
@@ -72,6 +75,7 @@
                 <th>#</th>
                 <th>address</th>
                 <th><i class="fi-graph-pie"></i></th>
+                <th><i class="fi-alert"></i></th>
                 <th><i class="fi-at-sign"></i></th>
                 <th><i class="fi-address-book"></i></th>
                 <th><i class="fi-pencil"></i></th>
@@ -87,10 +91,12 @@
                 % my $user_id = $row->{id};
                 % my $domain_id = $row->{domain_id};
                 % my $size = $row->{size} || 0;
+                % my $quota = $row->{quota} || 0;
                 <tr>
                     <td><%= $n %></td>
                     <td><%= $address %></td>
                     <td><%= $size %></td>
+                    <td><%= $quota %></td>
                     <td><a href="/user/list?domain_id=<%= $domain_id %>"><i class="fi-at-sign"></i></a></td>
                     <td><a href="/user/rename/form?user_id=<%= $user_id %>"><i class="fi-address-book"></i></a></td>
                     <td><a href="/user/update/form?user_id=<%= $user_id %>"><i class="fi-pencil"></i></a></td>
diff --git a/templs/user-update-form.html.ep b/templs/user-update-form.html.ep
index fc89bed..724c9ff 100644
--- a/templs/user-update-form.html.ep
+++ b/templs/user-update-form.html.ep
@@ -17,6 +17,7 @@
     % my $domain_id = $profile->{domain_id};
     % my $password = $profile->{password};
     % my $address = $profile->{address};
+    % my $quota = $profile->{quota};
 
     <div class="grid-container">
         <div class="grid-x grid-padding-x">
@@ -29,6 +30,11 @@
                     <input type="text" value="<%= $password %>" name="password" required pattern="[_.-zA-Z0-9\u00A0-\uD7FF\uF900-\uFDCF\uFDF0-\uFFEF]{6,42}"/>
                     <span class="form-error">Mandatory, 6 or more letter</span>
                 </label>
+                <label>Quota
+                    <input type="number" name="quota" value="<%= $quota %>" required pattern="[0-9]{1,15}"/>
+                    <span class="form-error">Mandatory, one or more ciphers</span>
+                </label>
+
                 <div class="text-center">
                     <button type="submit" class="button">Accept</button>
                     <a class="button" href="/user/list?">Escape</a>
diff --git a/templs/user-update-handler.html.ep b/templs/user-update-handler.html.ep
index b13fb47..df0fca3 100644
--- a/templs/user-update-handler.html.ep
+++ b/templs/user-update-handler.html.ep
@@ -10,6 +10,7 @@
 
 % my $user_id = $c->req->param('user_id') || 0;
 % my $password = $c->req->param('password');
+% my $quota = $c->req->param('quota');
 
 % my $profile = $u->user_profile($user_id);
 
@@ -17,8 +18,9 @@
     % my $domain_id = $profile->{domain_id};
     % my $domain_name = $profile->{domain_name};
     % my $address = $profile->{address};
+    % my $quota = $quota || $profile->{quota};
 
-    % my $res = $u->user_update($user_id, password => $password);
+    % my $res = $u->user_update($user_id, password => $password, quota => $quota);
     % if ($res) {
         <div class="callout success">User <%= $address %> has been updated.</div>
     % }