Commit 7702a8a7 by Michael Brachmann

debugging websocket

parent 7cacc435
......@@ -25,8 +25,5 @@ object WsServerModule: TWsServerModule
object XDataServer1CORS: TSparkleCorsMiddleware
Methods = 'Get'
end
object XDataServer1JWT: TSparkleJwtMiddleware
OnGetSecret = XDataServer1JWTGetSecret
end
end
end
......@@ -9,7 +9,7 @@ uses
Aurelius.Drivers.Interfaces,
XData.Aurelius.ConnectionPool, XData.Server.Module, Sparkle.Comp.Server,
XData.Comp.Server, XData.Comp.ConnectionPool, Sparkle.Comp.HttpSysDispatcher,
Sparkle.Comp.JwtMiddleware, Sparkle.Middleware.Jwt, Aurelius.Criteria.Linq,
Aurelius.Criteria.Linq,
Sparkle.HttpServer.Module, Sparkle.HttpServer.Context,
Sparkle.Comp.CompressMiddleware, Sparkle.Comp.CorsMiddleware,
Sparkle.Comp.GenericMiddleware, Sparkle.Middleware.WebSocket, Sparkle.Comp.WebSocketMiddleware,
......@@ -22,12 +22,10 @@ type
XDataServer1: TXDataServer;
XDataServer1Logging: TSparkleGenericMiddleware;
XDataServer1CORS: TSparkleCorsMiddleware;
XDataServer1JWT: TSparkleJwtMiddleware;
XDataServer1WebSocket: TSparkleWebSocketMiddleware;
procedure XDataServer1LoggingMiddlewareCreate(Sender: TObject;
var Middleware: IHttpServerMiddleware);
procedure XDataServer1JWTGetSecret(Sender: TObject; var Secret: string);
private
{ Private declarations }
public
......@@ -86,10 +84,4 @@ begin
Middleware := TLoggingMiddleware.Create(Logger, 1);
end;
procedure TWsServerModule.XDataServer1JWTGetSecret(Sender: TObject;
var Secret: string);
begin
Secret := serverConfig.jwtTokenSecret;
end;
end.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment