Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 4d015385

Von Moritz Bunkus vor mehr als 5 Jahren hinzugefügt

  • ID 4d0153850c96dd6f896ff893e18619316d598988
  • Vorgänger 211f4e60
  • Nachfolger 48c71a4b

Auth: mini_error gefixt

$::auth->mini_error wird potenziell zu einem Zeitpunkt aufgerufen, an
dem es die Instanzen von $::form und $::request noch nicht gibt. Da
hier wirklich nur die Bare-Bones-Ausgabe der Fehlermeldung benötigt
wird, machen wir für den Fall manuell ein CGI-Objekt auf.

Unterschiede anzeigen:

SL/Auth.pm
118 118 

  		




  119
  119
  
    
  my ($self, @msg) = @_;


  		




  120
  120
  
    
  if ($ENV{HTTP_USER_AGENT}) {


  		




  121
  
  
    
    print Form->create_http_response(content_type => 'text/html');


  		




  
  121
  
    
    # $::form might not be initialized yet at this point — therefore


  		




  
  122
  
    
    # we cannot use "create_http_response" yet.


  		




  
  123
  
    
    my $cgi = CGI->new('');


  		




  
  124
  
    
    print $cgi->header('-type' => 'text/html', '-charset' => 'UTF-8');


  		




  122
  125
  
    
    print "<pre>", join ('<br>', @msg), "</pre>";


  		




  123
  126
  
    
  } else {


  		




  124
  127
  
    
    print STDERR "Error: @msg\n";


  		












Auch abrufbar als:  Unified diff