Add admin ability to log user out.

1 files changed, 23 insertions, 0 deletions

diff --git a/perllib/Catalyst/Plugin/FixMyStreet/Session/StoreSessions.pm b/perllib/Catalyst/Plugin/FixMyStreet/Session/StoreSessions.pm
new file mode 100644
index 000000000..5e7a3cede
--- /dev/null
+++ b/perllib/Catalyst/Plugin/FixMyStreet/Session/StoreSessions.pm
@@ -0,0 +1,23 @@
+package Catalyst::Plugin::FixMyStreet::Session::StoreSessions;
+use Moose::Role;
+use namespace::autoclean;
+
+after set_authenticated => sub {
+    my $c = shift;
+    my $sessions = $c->user->get_extra_metadata('sessions');
+    push @$sessions, $c->sessionid;
+    $c->user->set_extra_metadata('sessions', $sessions);
+    $c->user->update;
+};
+
+before logout => sub {
+    my $c = shift;
+    if (my $user = $c->user) {
+        my $sessions = $user->get_extra_metadata('sessions');
+        $sessions = [ grep { $_ ne $c->sessionid } @$sessions ];
+        @$sessions ? $user->set_extra_metadata('sessions', $sessions) : $user->unset_extra_metadata('sessions');
+        $user->update;
+    }
+};
+
+__PACKAGE__;