From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 29 Apr 2019 13:32:22 +0000 (+0200)
Subject: Auth: mini_error gefixt
X-Git-Tag: release-3.5.6.1~511
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=4d0153850c96dd6f896ff893e18619316d598988;p=kivitendo-erp.git

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.
---

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 74a7d7fe5..830e7fb51 100644
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -118,7 +118,10 @@ sub mini_error {
 
   my ($self, @msg) = @_;
   if ($ENV{HTTP_USER_AGENT}) {
-    print Form->create_http_response(content_type => 'text/html');
+    # $::form might not be initialized yet at this point — therefore
+    # we cannot use "create_http_response" yet.
+    my $cgi = CGI->new('');
+    print $cgi->header('-type' => 'text/html', '-charset' => 'UTF-8');
     print "<pre>", join ('<br>', @msg), "</pre>";
   } else {
     print STDERR "Error: @msg\n";