Indy HTTPServer + Basic Authentication in SVN Version kaputt

[paresy]

r4177, Delphi 2007

Basic Authentication funktioniert nicht. Der Browser zeigt kein Fenster für Username/Passwort.

Problem: Durch den Rewrite der RawHeader Funktionen wird nun im Header ein Semikolon zu viel ausgegeben.

Jetzt (falsch):

Code:

WWW-Authenticate: Basic; realm="bla"

Vorher (richtig):

Code:

WWW-Authenticate: Basic realm="bla"

RFC: http://www.faqs.org/rfcs/rfc2617.html

Workaround: IdCustomHTTPServer.pas

Vorher:

Delphi-Quellcode:

    if AuthRealm <> '' then begin
      Values['WWW-Authenticate'] := 'Basic';    {Do not Localize}
      Params['WWW-Authenticate', 'realm'] := AuthRealm;    {Do not Localize}
    end;

Naher:

Delphi-Quellcode:

    if AuthRealm <> '' then begin
      Values['WWW-Authenticate'] := 'Basic realm="'+AuthRealm+'"';    {Do not Localize}
    end;

paresy