Commit a1cb06cf authored by Christophe Maudoux's avatar Christophe Maudoux

Append debug message (#1510)

parent dd174744
......@@ -47,14 +47,15 @@ sub run {
$self->logger->debug(
" Rules -> " . Dumper( $self->conf->{grantSessionRules} ) );
foreach ( sort sortByComment keys %{ $self->rules } ) {
$self->logger->debug( "Grant session condition "
$self->logger->debug( "Grant session condition -> "
. $self->conf->{grantSessionRules}->{$_} );
unless ( $self->rules->{$_}->( $req, $req->sessionInfo ) ) {
$req->userData( {} );
# Catch rule message
$_ =~ /^(.*?)##.*$/;
if ( defined $1 ) {
if ( $1 ) {
$self->logger->debug("Message -> $1");
$req->info(
$self->loadTemplate(
'simpleInfo', params => { trspan => $1 }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment