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

27
lib/WebGUI/Auth/WebGUI.pm
View file

@ -68,10 +68,10 @@ sub authenticate {
my $self = shift;
my ($identifier, $userData, $auth);
$auth = $self->SUPER::authenticate();
$auth = $self->SUPER::authenticate($_[0]);
return 0 if !$auth;
$identifier = $_[0];
$identifier = $_[1];
$userData = $self->getParams;
if ((Digest::MD5::md5_base64($identifier) eq $$userData{identifier}) && ($identifier ne "")) {
return 1;
@ -129,27 +129,6 @@ sub createAccountSave {
$properties->{passwordTimeout} = $session{setting}{webguiPasswordTimeout};
return $self->SUPER::createAccountSave($username,$properties,$password,$profile);
#my $u = WebGUI::User->new("new");
#$self->user($u);
#my $userId = $u->userId;
#$u->username($username);
#$u->authMethod($self->authMethod);
#$u->karma($session{setting}{karmaPerLogin},"Login","Just for logging in.") if ($session{setting}{useKarma});
#WebGUI::Operation::Profile::saveProfileFields($u,$profile);
#my %properties;
#$properties{identifier} = Digest::MD5::md5_base64($password);
#$properties{passwordLastUpdated} = $lastUpdated;
#$properties{passwordTimeout} = $session{setting}{webguiPasswordTimeout};
#$self->saveParams($userId,$self->authMethod,\%properties);
#my $authInfo = "\n\n".WebGUI::International::get(50).": ".$username."\n".WebGUI::International::get(51).": ".$password."\n\n";
#WebGUI::MessageLog::addEntry($self->userId,"",WebGUI::International::get(870),$session{setting}{webguiWelcomeMessage}.$authInfo) if ($session{setting}{webguiSendWelcomeMessage});
#WebGUI::Session::convertVisitorToUser($session{var}{sessionId},$userId);
#$self->_logLogin($userId,"success");
#system(WebGUI::Macro::process($session{setting}{runOnRegistration})) if ($session{setting}{runOnRegistration} ne "");
#WebGUI::MessageLog::addInternationalizedEntry('',$session{setting}{onNewUserAlertGroup},'',536) if ($session{setting}{alertOnNewUser});
#return "";
}
#-------------------------------------------------------------------
@ -278,7 +257,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);
}