Escape
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) {
Domain <%= $name %> already exists
% }
% unless ($id) {
- % my $res = $u->domain_add($name);
+ % my $res = $u->domain_add($name, $quota);
% if ($res) {
Domain <%= $name %> has been added.
% }
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 @@
# |
domain |
|
+
|
|
|
+
|
|
|
@@ -45,12 +47,15 @@
% my $id = $row->{id};
% my $name = $row->{name};
% my $size = $row->{size};
+ % my $quota = $row->{quota};
| <%= $n %> |
<%= $name %> |
<%= $size %> |
+ <%= $quota %> |
<%= $u->domain_user_count($id) %> |
<%= $u->domain_alias_count($id) %> |
+ |
|
|
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};
+
+
+% }
+
+% unless ($profile) {
+
Domain with id <%= $domain_id %> not exist
+% }
+
+
+%#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) {
+
Domain <%= $new_name %> already exists, domain name <%= $name %> was not changed.
+ % }
+
+ % unless ($cid) {
+ % my $res = $u->domain_update($domain_id, name => $new_name);
+ % if ($res) {
+
Domain <%= $name %> has been renamed to <%= $new_name %>.
+ % }
+
+ % unless ($res) {
+
Domain <%= $name %> was not updated.
+ % }
+ % }
+% }
+
+% unless ($profile) {
+
Domain with id <%= $domain_id %> not exist
+% }
+
+%#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;