Changeset 316

Timestamp:

01/16/11 19:09:27 (13 years ago)

Author:

nanardon

Message:

• add cron job to clean obsoleted data

Location:

server/trunk/web

Files:

• bin/sophie_cron (added)
• lib/Sophie/Controller/Admin.pm (modified) (1 diff)
• lib/Sophie/Controller/Admin/Maintenance.pm (modified) (1 diff)
• lib/Sophie/Controller/Root.pm (modified) (1 diff)

server/trunk/web/lib/Sophie/Controller/Admin.pm

@@ -17 +17 @@
 
 =cut
+
+sub begin : Private {
+    my ($self, $c) = @_;
+
+    if (!($c->user_exists && $c->check_user_roles($c->user, 'Admin'))) {
+        $c->go('/login/index');
+    }
+
+    $c->forward('/begin');
+}
 
 =head2 index

server/trunk/web/lib/Sophie/Controller/Admin/Maintenance.pm

@@ -16 +16 @@
 
 =cut
+
+sub begin : Private {
+    my ($self, $c) = @_;
+
+    if ($c->req->address eq '127.0.0.1' || $c->req->address eq '::1') {
+    } else {
+        $c->forward('/admin/begin')
+    }
+
+    $c->forward('/begin');
+}
+
+sub tasks : XMLRPC {
+    my ($self, $c) = @_;
+
+    $c->stash->{xmlrpc} = [ qw(
+        admin.maintenance.delete_expired_sessions
+    ) ];
+}
 
 sub delete_expired_sessions :XMLRPC {

server/trunk/web/lib/Sophie/Controller/Root.pm

@@ -50 +50 @@
         exists($c->req->params ->{ajax})) {
         $c->stash->{current_view} = 'Ajax';
-    }
-
-    if ($c->action =~ m/^admin\//) {
-        if (!($c->user_exists && $c->check_user_roles($c->user, 'Admin'))) {
-            $c->go('/login/index');
-        }
     }