fixed: International characters in password prevents login

This commit is contained in:
Graham Knop 2008-10-05 20:56:50 +00:00
parent 140ea63081
commit 089008de29
2 changed files with 3 additions and 1 deletions

View file

@ -12,6 +12,7 @@
- fixed: DataForm entry table isn't properly indexed
- fixed: DataForm can't export fields containing newlines
- fixed: UserList templates use incorrect variable names
- fixed: International characters in password prevents login
7.6.0
- added: users may now customize the post received page for the CS

View file

@ -21,6 +21,7 @@ use WebGUI::Mail::Send;
use WebGUI::Storage::Image;
use WebGUI::User;
use WebGUI::Utility;
use Encode ();
our @ISA = qw(WebGUI::Auth);
@ -119,7 +120,7 @@ sub authenticate {
$identifier = $_[1];
$userData = $self->getParams;
if ((Digest::MD5::md5_base64($identifier) eq $$userData{identifier}) && ($identifier ne "")) {
if ((Digest::MD5::md5_base64(Encode::encode_utf8($identifier)) eq $$userData{identifier}) && ($identifier ne "")) {
return 1;
}
$self->user(WebGUI::User->new($self->session,1));