oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

no message

Browse source
This commit is contained in:
Frank Dillon 2003-12-20 22:28:29 +00:00
parent f81dd65c11
commit 059313f003
5 changed files with 267 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Auth/LDAP.pm
View file

@ -126,9 +126,9 @@ sub addUserFormSave {
sub authenticate {
my $self = shift;
my ($uri, $ldap, $auth, $result, $error);
return 0 if !$self->SUPER::authenticate(); #authenticate that the username entered actually exists and is active
return 0 if !$self->SUPER::authenticate($_[0]); #authenticate that the username entered actually exists and is active
my $userId = $self->userId;
my $identifier = $_[0];
my $identifier = $_[1];
my $userData = $self->getParams;
@ -331,7 +331,7 @@ sub editUserSettingsForm {
#-------------------------------------------------------------------
sub login {
my $self = shift;
if(!$self->authenticate($session{form}{identifier})){
if(!$self->authenticate($session{form}{username},$session{form}{identifier})){
WebGUI::ErrorHandler::security("login to account ".$session{form}{username}." with invalid information.");
return $self->displayLogin("<h1>".WebGUI::International::get(70)."</h1>".$self->error);
}