From d8907f11f5c255727b8a814746a0114e5c62e30a Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sun, 4 May 2014 18:35:10 +0200
Subject: Support Google Apps authentication.

---
 www/logged_in_p.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'www/logged_in_p.pl')

diff --git a/www/logged_in_p.pl b/www/logged_in_p.pl
index 2e648fc..73c9d1c 100755
--- a/www/logged_in_p.pl
+++ b/www/logged_in_p.pl
@@ -4,6 +4,7 @@
 
 use common::sense;
 use Modern::Perl;
+use syntax 'junction';
 
 use JSON;
 
@@ -35,7 +36,7 @@ while (my $cgi = new CGI::Fast) {
 
   my $email        = $cgi->param('email')    or die "No email address supplied";
   my $session_user = $session->param('user');
-  if ($session_user ~~ [email_users($email)]) {
+  if (any(email_users($email)) eq $session_user) {
     say encode_json({logged_in_p => 1});
   } else {
     say encode_json({logged_in_p => 0});
-- 
cgit v1.2.3