dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix logger

Browse Source
This commit is contained in:
Christophe Maudoux 2019-09-28 19:18:53 +02:00
parent 32a0d0944a
commit 200546b2e4
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Lib/SecureToken.pm
View File

@ -14,7 +14,7 @@ use strict;
use Cache::Memcached;
use Apache::Session::Generate::MD5;
our $VERSION = '2.0.6';
our $VERSION = '2.0.7';
# Shared variables
our $secureTokenMemcachedConnection;
@ -32,7 +32,7 @@ BEGIN {
# @return Apache2::Const value ($class->OK, $class->FORBIDDEN, $class->REDIRECT or $class->SERVER_ERROR)
sub run {
my $class = shift;
my $r = $_[0];
my $r = shift;
my ( $ret, $session ) = $class->Lemonldap::NG::Handler::Main::run($r);
# Continue only if user is authorized
@ -150,9 +150,7 @@ sub _createMemcachedConnection {
# @return Token key
sub _setToken {
my ( $class, $value, $secureTokenExpiration ) = @_;
my $key = Apache::Session::Generate::MD5::generate();
my $res =
$secureTokenMemcachedConnection->set( $key, $value,
$secureTokenExpiration );
@ -173,7 +171,6 @@ sub _setToken {
# @return result
sub _deleteToken {
my ( $class, $key ) = @_;
my $res = $secureTokenMemcachedConnection->delete($key);
unless ($res) {
@ -192,16 +189,13 @@ sub _deleteToken {
# @return result
sub _isAlive {
my ($class) = @_;
return 0 unless defined $secureTokenMemcachedConnection;
my $stats = $secureTokenMemcachedConnection->stats();
if ( $stats and defined $stats->{'total'} ) {
my $total_c = $stats->{'total'}->{'connection_structures'};
my $total_i = $stats->{'total'}->{'total_items'};
$class->logger->debug->(
$class->logger->debug(
"Memcached connection is alive ($total_c connections / $total_i items)"
);