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

@ -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));