From 72887d24e8b32a10d0641389c62050440a764a14 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Thu, 1 Dec 2011 13:28:52 +0100
Subject: [PATCH] LDAP Authentifikation zwischen requests korrekt resetten.

---
 SL/Auth.pm      | 1 +
 SL/Auth/DB.pm   | 4 ++++
 SL/Auth/LDAP.pm | 6 ++++++
 3 files changed, 11 insertions(+)

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 1577eb862..bd4fcd90a 100644
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -47,6 +47,7 @@ sub reset {
   $self->{RIGHTS}             = { };
   $self->{unique_counter}     = 0;
   $self->{column_information} = SL::Auth::ColumnInformation->new(auth => $self);
+  $self->{authenticator}->reset;
 }
 
 sub get_user_dbh {
diff --git a/SL/Auth/DB.pm b/SL/Auth/DB.pm
index 3417c0d28..ab8788abd 100644
--- a/SL/Auth/DB.pm
+++ b/SL/Auth/DB.pm
@@ -25,6 +25,10 @@ sub new {
   return $self;
 }
 
+sub reset {
+  # nothing to do here
+}
+
 sub authenticate {
   $main::lxdebug->enter_sub();
 
diff --git a/SL/Auth/LDAP.pm b/SL/Auth/LDAP.pm
index 1c8c85161..92ee43e2b 100644
--- a/SL/Auth/LDAP.pm
+++ b/SL/Auth/LDAP.pm
@@ -27,6 +27,12 @@ sub new {
   return $self;
 }
 
+sub reset {
+  my ($self) = @_;
+  $self->{ldap}     = undef;
+  $self->{dn_cache} = { };
+}
+
 sub _connect {
   $main::lxdebug->enter_sub();
 
-- 
2.20.1