Horse is a web framework write in Pascal (#129)

* [pascal] add Horse framework

* Update Dockerfile

* Add system user for HorseServer

Add a system user 'horse' for running the server.

* Remove runtime stage from HorseServer Dockerfile

* Add nonroot user to HorseServer Dockerfile

* Fix HorseServer Docker build (Ubuntu user creation) and Pascal source

- Dockerfile: remove Alpine-style `addgroup -S`/`adduser -S` and `USER nonroot`. On the ubuntu:24.04 base `addgroup` is absent, so the build failed with "addgroup: not found" (exit 127); switching user before WORKDIR/COPY/compile would also block writes to /app. Build now runs as root, consistent with the other servers.

- HorseServer.lpr: remove the duplicate trailing `end.`.

- probe.json: add trailing newline.

Verified locally: image builds, container serves HTTP, full probe runs (215 tests).

* HorseServer: run as non-root and resolve Docker lint

- Run the container as a dedicated non-root `appuser` (`useradd --system`), switching USER only after the FPC compile so build-time writes to /app still succeed. Resolves the SonarCloud hotspot docker:S6471 ("ubuntu image runs as root").

- Sort the apt package list alphanumerically (docker:S7018).

- Merge consecutive RUN instructions (docker:S7031): fold git clone + useradd into the apt layer and chmod into the compile layer.

Verified locally: image builds, runs as uid 999, serves HTTP, and the full probe passes (215 tests, 0 connection errors, same 76/161 result as before).

* all methods for endpoint main

* Update HorseServer.lpr

---------

Co-authored-by: Diogo Martins <diogoalves@ua.pt>

Author: ViniAbreu

src/Servers/HorseServer/Dockerfile

@@ -0,0 +1,24 @@
+FROM ubuntu:24.04
+ENV DEBIAN_FRONTEND=noninteractive
+RUN apt-get update && apt-get install -y --no-install-recommends \
+        ca-certificates \
+        fpc \
+        git \
+    && rm -rf /var/lib/apt/lists/* \
+    && git clone --depth 1 --branch 3.2.0 https://github.com/HashLoad/horse.git /horse \
+    && useradd --system appuser
+WORKDIR /app
+COPY src/Servers/HorseServer/HorseServer.lpr .
+COPY src/Servers/HorseServer/HorseServer.lpi .
+RUN mkdir -p /app/out \
+    && fpc \
+      -Mdelphi \
+      -O2 \
+      -Fu/horse/src \
+      -Fu/app \
+      -FU/app/out \
+      -o/app/HorseServer \
+      HorseServer.lpr \
+    && chmod +x /app/HorseServer
+USER appuser
+ENTRYPOINT ["/app/HorseServer"]

src/Servers/HorseServer/HorseServer.lpi

@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<CONFIG>
+  <ProjectOptions>
+    <Version Value="12"/>
+    <PathDelim Value="\"/>
+    <General>
+      <Flags>
+        <MainUnitHasCreateFormStatements Value="False"/>
+        <MainUnitHasTitleStatement Value="False"/>
+        <MainUnitHasScaledStatement Value="False"/>
+      </Flags>
+      <SessionStorage Value="InProjectDir"/>
+      <Title Value="HorseServer"/>
+      <UseAppBundle Value="False"/>
+      <ResourceType Value="res"/>
+    </General>
+    <BuildModes>
+      <Item Name="Default" Default="True"/>
+    </BuildModes>
+    <PublishOptions>
+      <Version Value="2"/>
+      <UseFileFilters Value="True"/>
+    </PublishOptions>
+    <RunParams>
+      <FormatVersion Value="2"/>
+    </RunParams>
+    <Units>
+      <Unit>
+        <Filename Value="HorseServer.lpr"/>
+        <IsPartOfProject Value="True"/>
+      </Unit>
+    </Units>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="11"/>
+    <PathDelim Value="\"/>
+    <Target>
+      <Filename Value="HorseServer"/>
+    </Target>
+    <SearchPaths>
+      <IncludeFiles Value="$(ProjOutDir)"/>
+      <OtherUnitFiles Value="horse\src"/>
+      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
+    </SearchPaths>
+    <Linking>
+      <Debugging>
+        <DebugInfoType Value="dsDwarf3"/>
+      </Debugging>
+    </Linking>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions>
+      <Item>
+        <Name Value="EAbort"/>
+      </Item>
+      <Item>
+        <Name Value="ECodetoolError"/>
+      </Item>
+      <Item>
+        <Name Value="EFOpenError"/>
+      </Item>
+    </Exceptions>
+  </Debugging>
+</CONFIG>

src/Servers/HorseServer/HorseServer.lpr

@@ -0,0 +1,62 @@
+program HorseServer;
+
+{$MODE DELPHI}{$H+}
+
+uses
+  {$IFDEF UNIX}
+  cthreads,
+  {$ENDIF}
+  SysUtils,
+  Generics.Collections,
+  Horse,
+  Horse.Commons;
+
+procedure AllCallBAck(Req: THorseRequest; Res: THorseResponse);
+var
+  LBody: string;
+begin
+  LBody := 'OK';
+  if Req.MethodType = mtPost then
+    LBody := Req.Body;
+  Res.Send(LBody);
+end;
+
+procedure EchoCallBack(Req: THorseRequest; Res: THorseResponse);
+var
+  LHeaders: TStringBuilder;
+  LHeader: TPair<string, string>;
+begin
+  LHeaders := TStringBuilder.Create;
+  try
+    for LHeader in Req.Headers.ToArray do
+      LHeaders.Append(Format('%s: %s%s', [LHeader.Key, LHeader.Value, sLineBreak]));
+
+    Res.Send(LHeaders.ToString);
+  finally
+    LHeaders.Free;
+  end;
+end;
+
+procedure CookieCallBack(Req: THorseRequest; Res: THorseResponse);
+var
+  LCookies: TStringBuilder;
+  LCookie: TPair<string, string>;
+begin
+  LCookies := TStringBuilder.Create;
+  try
+    for LCookie in Req.Cookie.ToArray do
+      LCookies.Append(Format('%s=%s%s', [LCookie.Key, LCookie.Value, sLineBreak]));
+
+    Res.Send(LCookies.ToString);
+  finally
+    LCookies.Free;
+  end;
+end;
+
+begin
+  THorse.All('/', AllCallBack);
+  THorse.All('/echo', EchoCallBack);
+  THorse.All('/cookie', CookieCallBack);
+
+  THorse.Listen(8080);
+end.

src/Servers/HorseServer/probe.json

@@ -0,0 +1,5 @@
+{
+  "name": "Horse",
+  "language": "Object Pascal (Delphi/FPC)",
+  "repository": "https://github.com/HashLoad/horse"
+}