Realm ask message for navigators

Author: CarlosHe

boss.json

@@ -6,6 +6,6 @@
 	"mainsrc": "/src",
 	"projects": [],
 	"dependencies": {
-		"github.com/hashload/horse": "^v1.6.6"
+		"github.com/hashload/horse": "^v2.0.0"
 	}
 }

src/Horse.BasicAuthentication.pas

@@ -20,17 +20,19 @@ interface
   THorseBasicAuthentication = {$IF NOT DEFINED(FPC)} reference to {$ENDIF} function(const AUsername, APassword: string): Boolean;
 
 procedure Middleware(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINED(FPC)} TNextProc {$ELSE} TProc {$ENDIF} );
-function HorseBasicAuthentication(const AAuthenticate: THorseBasicAuthentication; const AHeader: string = AUTHORIZATION): THorseCallback;
+function HorseBasicAuthentication(const AAuthenticate: THorseBasicAuthentication; const AHeader: string = AUTHORIZATION; const ARealmMessage: string = 'Enter credentials'): THorseCallback;
 
 implementation
 
 var
   Header: string;
+  RealmMessage: string;
   Authenticate: THorseBasicAuthentication;
 
-function HorseBasicAuthentication(const AAuthenticate: THorseBasicAuthentication; const AHeader: string = AUTHORIZATION): THorseCallback;
+function HorseBasicAuthentication(const AAuthenticate: THorseBasicAuthentication; const AHeader: string = AUTHORIZATION; const ARealmMessage: string = 'Enter credentials'): THorseCallback;
 begin
   Header := AHeader;
+  RealmMessage := ARealmMessage;
   Authenticate := AAuthenticate;
   Result := Middleware;
 end;
@@ -47,7 +49,7 @@ procedure Middleware(Req: THorseRequest; Res: THorseResponse; Next: {$IF DEFINED
   LBasicAuthenticationEncode := Req.Headers[Header];
   if LBasicAuthenticationEncode.Trim.IsEmpty and not Req.Query.TryGetValue(Header, LBasicAuthenticationEncode) then
   begin
-    Res.Send('Authorization not found').Status(THTTPStatus.Unauthorized);
+    Res.Send('Authorization not found').Status(THTTPStatus.Unauthorized).RawWebResponse.Realm := RealmMessage;;
     raise EHorseCallbackInterrupted.Create;
   end;
   if not LBasicAuthenticationEncode.ToLower.StartsWith(BASIC_AUTH) then