Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 686cba23

Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt

Fünf-Sekunden-Verzögerung bei falschem Login auch bei nicht existierendem Benutzernamen erzwingen

Unterschiede anzeigen:

SL/Auth.pm
136 136 
sub authenticate {
137 137 
  $main::lxdebug->enter_sub();
138 138 

  		




  139
  
  
    
  my $self = shift;


  		




  
  139
  
    
  my ($self, $login, $password) = @_;


  		




  140
  140
  
    

  		




  141
  141
  
    
  $main::lxdebug->leave_sub();


  		




  142
  142
  
    

  		




  143
  
  
    
  my $result = $self->{authenticator}->authenticate(@_);


  		




  
  143
  
    
  my $result = $login ? $self->{authenticator}->authenticate($login, $password) : ERR_USER;


  		




  144
  144
  
    
  return OK if $result eq OK;


  		




  145
  145
  
    
  sleep 5;


  		




  146
  146
  
    
  return $result;


  		












Auch abrufbar als:  Unified diff