ahuston-0/hydra
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Store the account type ("hydra" or "persona") explicitly in the database

Browse Source
This commit is contained in:
Eelco Dolstra
2013-11-05 11:46:05 +01:00
parent 14b9b201e1
commit 36c961a376
7 changed files with 22 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/lib/Hydra/Controller/User.pm
View File

@ -91,6 +91,7 @@ sub persona_login :Path('/persona-login') Args(0) {
{ username => $email
, password => "!"
, emailaddress => $email,
, type => "persona"
});
$user = $c->find_user({ username => $email }) or die;
}
@ -163,6 +164,7 @@ sub register :Local Args(0) {
, fullname => $fullName
, password => "!"
, emailaddress => "",
, type => "hydra"
});
setPassword($user, $password);
});
@ -245,7 +247,7 @@ sub edit_POST {
}
if (($c->stash->{params}->{submit} // "") eq "reset-password") {
error($c, "This user's password cannot be reset.") if $user->password eq "!";
error($c, "This user's password cannot be reset.") if $user->type ne "hydra";
$c->stash->{json} = {};
error($c, "No email address is set for this user.")
unless $user->emailaddress;
@ -274,7 +276,7 @@ sub edit_POST {
});
my $password = $c->stash->{params}->{password} // "";
if ($user->password ne "!" && $password ne "") {
if ($user->type eq "hydra" && $password ne "") {
error($c, "You must specify a password of at least 6 characters.")
unless isValidPassword($password);
error($c, "The passwords you specified did not match.")