unit PM.Handler.Ping;

(*
  Minimal stub route to verify the build/run pipeline.
  GET /ping returns a small JSON object with message=pong and server=delphi.
*)

interface

implementation

uses
  System.JSON, System.SysUtils,
  IdCustomHTTPServer,
  PM.Router, PM.JSON;

procedure HandlePing(ARequest: TIdHTTPRequestInfo;
  AResponse: TIdHTTPResponseInfo; const AParams: TArray<string>);
var
  LObj: TJSONObject;
begin
  LObj := TJSONObject.Create;
  LObj.AddPair('message', 'pong');
  LObj.AddPair('server', 'delphi');
  TJSONHelper.SendJSON(AResponse, LObj);
end;

initialization
  Router.Register('GET', '/ping', HandlePing);

end.