diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-10-03 19:08:47 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-10-03 19:08:47 +0200 |
commit | 14fc4fbdf59efc5626b5508780ebe3477cc9366a (patch) | |
tree | 1f36b72022c24d406f95dc5bc7d27992c68289e3 /www/logged_in_p.pl | |
parent | 08b9ee11fe5e5a54af866a061c9e8d7782cac3c7 (diff) |
Make the configuration map a dynamic variable.
Diffstat (limited to 'www/logged_in_p.pl')
-rwxr-xr-x | www/logged_in_p.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/www/logged_in_p.pl b/www/logged_in_p.pl index 61b06c5..cbbb936 100755 --- a/www/logged_in_p.pl +++ b/www/logged_in_p.pl @@ -17,8 +17,7 @@ do "common.pl"; while (my $cgi = new CGI::Fast) { - local $::MULKONF = { }; - do "config.pl"; + load_config(); print $cgi->header(-content_type => 'application/json; charset=UTF-8'); @@ -36,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($::MULKONF, $email)) { + if ($session_user ~~ email_users($email)) { say encode_json({logged_in_p => 1}); } else { say encode_json({logged_in_p => 0}); |