1 files changed, 6 insertions, 1 deletions
diff --git a/lib/JWebmail/Model/ReadMails/MockJSON.pm b/lib/JWebmail/Model/ReadMails/MockJSON.pm
index 7decb7d..345573c 100644
--- a/lib/JWebmail/Model/ReadMails/MockJSON.pm
+++ b/lib/JWebmail/Model/ReadMails/MockJSON.pm
@@ -6,8 +6,9 @@ use utf8;
 
 use List::Util 'sum';
 
-use Mojo::JSON qw(decode_json);
+use Mojo::JSON 'decode_json';
 
+use Digest::HMAC_MD5 'hmac_md5_hex';
 use Role::Tiny::With;
 
 use namespace::clean;
@@ -51,6 +52,10 @@ sub verify_user {
     my $self = shift;
     my $auth = shift;
 
+    if ($auth->{challenge}) {
+        my $res = hmac_md5_hex($auth->{challenge}, VALID_PW);
+        return $auth->{user} eq VALID_USER && $auth->{password} eq $res;
+    }
     return $auth->{user} eq VALID_USER && $auth->{password} eq VALID_PW;
 }