From a4fb637c441cad75350edcbbb2520f7a303b33c2 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Sat, 29 Sep 2012 21:17:15 +0200
Subject: Grant the right to create aliases and/or lists.

---
 lib/Fripost/Panel/Interface.pm | 27 ++++++++++++++++++++-------
 1 file changed, 20 insertions(+), 7 deletions(-)

(limited to 'lib/Fripost/Panel')

diff --git a/lib/Fripost/Panel/Interface.pm b/lib/Fripost/Panel/Interface.pm
index f102a21..ff9b291 100644
--- a/lib/Fripost/Panel/Interface.pm
+++ b/lib/Fripost/Panel/Interface.pm
@@ -167,7 +167,9 @@ sub EditDomain : Runmode {
                      domain => $d,
                      isactive => $q->param('isactive'),
                      description => $q->param('description'),
-                     catchalls => $q->param('catchalls')
+                     catchalls => $q->param('catchalls'),
+                     canCreateAlias => $q->param('canCreateAlias'),
+                     canCreateList => $q->param('canCreateList')
         }, -concat => "(\n|\x{0D}\x{0A})");
     }
     my %domain = $fp->domain->get( $d, -die => 404 );
@@ -177,21 +179,24 @@ sub EditDomain : Runmode {
                                    , loop_context_vars => 1
                                    , global_vars => 1 );
     $template->param( $self->userInfo );
-    $template->param( domain => encode_entities($d) );
+    $template->param( domain => encode_entities($d)
+                    , isPostmaster => $domain{permissions} eq 'p');
     if ($error) {
         # Preserve the (incorrect) form
         $template->param( isactive => $q->param('isactive')
                         , description => $q->param('description')
                         , catchalls => $q->param('catchalls')
+                        , canCreateAlias => $q->param('canCreateAlias')
+                        , canCreateList => $q->param('canCreateList')
                         , error => encode_entities ($error) );
     }
     else {
         $template->param( isactive => $domain{isactive}
-                        , description => join ("\x{0D}\x{0A}",
-                                               @{$domain{description}})
-                        , catchalls => join ("\x{0D}\x{0A}",
-                                             map { encode_entities ($_) }
-                                                 @{$domain{catchalls}}) );
+                        , description => &mkFormContent (@{$domain{description}})
+                        , catchalls => &mkFormContentE (@{$domain{catchalls}})
+                        , canCreateAlias => &mkFormContentE (@{$domain{canCreateAlias}})
+                        , canCreateList => &mkFormContentE (@{$domain{canCreateList}})
+                        );
     }
     $template->param( newChanges => defined $q->param('submit') );
     return $template->output;
@@ -458,6 +463,14 @@ sub userInfo {
     )
 }
 
+sub mkFormContentE {
+    &mkFormContent (map { encode_entities ($_) } @_);
+}
+
+sub mkFormContent {
+    join ("\x{0D}\x{0A}", @_);
+}
+
 =head1 AUTHOR
 
 Guilhem Moulin C<< <guilhem at fripost.org> >>
-- 
cgit v1.2.3