|
|
|
@ -397,14 +397,17 @@ sub run { |
|
|
|
|
#my @keep = (); |
|
|
|
|
#while (@$_oidcConsents) { |
|
|
|
|
# my $element = shift @$_oidcConsents; |
|
|
|
|
#$self->logger->debug("Looking for revoked consents to delete ..."); |
|
|
|
|
#push @keep, $element if ( defined $element->{rp} and defined $element->{epoch} and defined $element->{scope} ); |
|
|
|
|
# $self->logger->debug( |
|
|
|
|
# "Looking for revoked consents to delete ..."); |
|
|
|
|
# push @keep, $element |
|
|
|
|
# if ( defined $element->{rp} |
|
|
|
|
# and defined $element->{epoch} |
|
|
|
|
# and defined $element->{scope} ); |
|
|
|
|
#} |
|
|
|
|
#@$_oidcConsents = @keep; |
|
|
|
|
|
|
|
|
|
############ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Read existing RP |
|
|
|
|
@RPoidcConsent = grep { $_->{rp} eq $rp } @$_oidcConsents; |
|
|
|
|
unless (@RPoidcConsent) { |
|
|
|
|