token_type is case insensitive (#1474)

2018-07-10 18:53:40 +02:00 · 2018-07-10 18:53:40 +02:00 · b634bc91c2
commit b634bc91c2
parent c118a60c1e
1 changed files with 1 additions and 1 deletions
--- a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/OpenIDConnect.pm
+++ b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/OpenIDConnect.pm
@ -446,7 +446,7 @@ sub checkTokenResponseValidity {
    my ( $self, $json ) = @_;

    # token_type MUST be Bearer
-    unless ( $json->{token_type} eq "Bearer" ) {
+    unless ( $json->{token_type} =~ /^Bearer$/i ) {
        $self->logger->error(
            "Token type is " . $json->{token_type} . " but must be Bearer" );
        return 0;