Changeset 1148 for trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts

Timestamp:

09/19/12 10:40:16 (12 years ago)

Author:

nanardon

Message:

allow to disable some features

Location:

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts

Files:

• Web.pm (modified) (1 diff)
• Web/Controller/Root.pm (modified) (1 diff)
• Web/Controller/Services/Mailing.pm (modified) (1 diff)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web.pm

@@ -30 +30 @@
 # Configure the application. 
 
+# Default value for active/inactive features
+__PACKAGE__->config(
+    features => {
+        # /services/mailing, mass mailing
+        mailing => 0,
+        # /summary/offices
+        offices_list => 0,
+        # /summary/department
+        departments_list => 0,
+        # users/address forms
+        user_addresses => 1,
+        # users/email form
+        user_email => 1,
+        # users/my form
+        user_my => 1,
+    }
+);
+
 __PACKAGE__->config(
     objects => {

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Root.pm

@@ -31 +31 @@
         'WWW-Authenticate' => 'Basic realm="Link::Accounts"'
     );
+}
+
+sub component_disabled : Private {
+    my ( $self, $c ) = @_;
+    $c->res->status(403);
 }
 

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Services/Mailing.pm

@@ -26 +26 @@
 sub index :Path :Args(0) {
     my ( $self, $c ) = @_;
+
+    if (!$c->config->{features}{mailing}) {
+        $c->go('/component_disabled');
+        return;
+    }
 
     if ($c->req->param('sto')) {