snaakey/hydra
0
0
Fork 0
forked from lix-project/hydra
Code Pull requests Activity

Be paranoid about the Persona email address

Browse source
This commit is contained in:
Eelco Dolstra 2013-11-05 14:40:40 +01:00
parent b53bd868fb
commit fc827a003a
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/lib/Hydra/Controller/User.pm
View file

@ -63,6 +63,10 @@ sub persona_login :Path('/persona-login') Args(0) {
my $email = $d->{email} or die; my $email = $d->{email} or die;
# Be paranoid about the email address format, since we do use it
# in URLs.
die "Illegal email address." unless $email =~ /^[a-zA-Z0-9\.\-\_]+@[a-zA-Z0-9\.\-\_]+$/;
my $user = $c->find_user({ username => $email }); my $user = $c->find_user({ username => $email });
if (!$user) { if (!$user) {