WIP - Delete revoked consents (#1464)

This commit is contained in:
Christophe Maudoux 2018-07-17 21:44:13 +02:00
parent d269db6346
commit 0bbcf4a6cc

View File

@ -351,7 +351,7 @@ sub mysession {
sub getMyKey {
my ( $self, $req, $key ) = @_;
$self->logger->debug("Request to get personal session info -> Key : $key");
#$self->logger->debug("Request to get personal session info -> Key : $key");
return $self->session(
$req,
$req->userData->{_session_id},
@ -434,7 +434,7 @@ sub delKeyInMySession {
"Update session -> delete Key : $dkey");
}
elsif ( $dkey =~ /^_oidcConsents$/ and defined $sub ) {
$tof = $req->userData->{ $self->conf->{whatToTrace} };
my $tof = $req->userData->{ $self->conf->{whatToTrace} };
$self->p->updatePersistentSession( $req, { $dkey => 'TOF' } );
$self->logger->debug(
"Update session -> delete Key : $dkey with Option : $sub & TOTOF = $tof"