prompt custom messages when ungrant session
In grantSession, instead of just telling the user "Session opening not allowed", it would be interesting to test several conditions and to return custom messages - either through promptInfo, or in the login page by overloading $self->{error_41} (41 = PE_SESSIONNOTGRANTED).
Assume $portal->{rejectSessionRules} looks like { condition => message, ... }, this could be done by
sub grantSession { my $self = shift; return PE_OK unless defined $self->{rejectSessionRules}; foreach my $rule (keys %{ $self->{rejectSessionRules} }) { if ($self->safe->reval($rule)) {
$self->lmLog("User " . $self->{user} . " was not granted to open session", 'error' );
my $message = $self->safe->reval($self->{rejectSessionRules}->{$rule});
utf8::decode($message);
$self->{error_41} = $message; # overload $portal->{error_41}
# $self->info($message); # through promptInfo
return PE_SESSIONNOTGRANTED;
}
}
return PE_OK;
}