diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-10-03 19:48:52 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-10-03 19:48:52 +0200 |
commit | f88a49f83513b788b799aa67e852ec6291167d76 (patch) | |
tree | bc98ba1656256f0753e88fcc46a37e4008f2d114 /www/logged_in_p.pl | |
parent | 14fc4fbdf59efc5626b5508780ebe3477cc9366a (diff) |
Fix session user matching.
Diffstat (limited to 'www/logged_in_p.pl')
-rwxr-xr-x | www/logged_in_p.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/www/logged_in_p.pl b/www/logged_in_p.pl index cbbb936..2e648fc 100755 --- a/www/logged_in_p.pl +++ b/www/logged_in_p.pl @@ -35,7 +35,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 ($session_user ~~ [email_users($email)]) { say encode_json({logged_in_p => 1}); } else { say encode_json({logged_in_p => 0}); |