Add hook for client credentials (#2484)

4 years ago · 44abc1e889
parent 2c4d615c2f
commit 44abc1e889
1 changed files with 4 additions and 0 deletions
--- a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/OpenIDConnect.pm
+++ b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/OpenIDConnect.pm
@ -1087,6 +1087,10 @@ sub _handleClientCredentialsGrant {
        _utime                     => time,
    };

+    my $h = $self->p->processHook( $req, 'oidcGotClientCredentialsGrant',
+        $infos, $rp );
+    return $self->sendOIDCError( $req, 'server_error', 500 ) if ( $h != PE_OK );
+
    # Run rule against session info
    if ( my $rule = $self->spRules->{$rp} ) {
        unless ( $rule->( $req, $infos ) ) {