LDAP Authentifikation zwischen requests korrekt resetten.

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 1577eb862947cc2fe77b3692d8e26e00f40ff0cc..bd4fcd90a349b98c4e397b33a9afc3faa651a55b 100644 (file)
--- 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 3417c0d28ae0a44677b35ce9660479c0ad0e8029..ab8788abda9cf7c4f8b255cd8e49bfb68ecb148e 100644 (file)
--- 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 1c8c851613fa105d18edcb9f431e61a1ce027c89..92ee43e2b807ac538d3f4e3e6ffae1ae125a3ce9 100644 (file)
--- 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();