function CtrlHandler(CtrlType: DWORD): LongBool; stdcall;

begin
  Result := False;
  if CtrlType In [0..6] then
  begin
    //Aborted := True;
    //BEApplication.Terminate;
    Result := True;
  end;
end;
{$ENDIF}

procedure SetCtrlCHandler;
{$IFDEF LINUX}
var
  oa, na: SigActionRec;
{$ENDIF}
begin
{$IFDEF LINUX}
  na.sa_handler := SigActionHandler(@CtrlHandler);
  FillChar(na.sa_mask, sizeof(na.sa_mask), #0);
  na.sa_flags := SA_ONESHOT;
  na.sa_restorer := nil;
  fpSigAction(SIGINT, @na, @oa);
{$ELSE}
  SetConsoleCtrlHandler(@CtrlHandler, True);
{$ENDIF}
end;

Unit U_BEApp;

{$mode ObjFPC}{$H+}

Interface

Uses
  custhttpapp, Classes, SysUtils, U_DM;

Type
  TBackEndApplication = Class(TCustomHTTPApplication)
                        Public
                        End;

Var
  BEApplication     : TBackEndApplication;
  ShowCleanUpErrors : Boolean = False;

Implementation

Uses
  CustApp;

Procedure InitHTTP;

begin
  BEApplication                                             := TBackEndApplication.Create(Nil);
  If Not assigned(CustomApplication) Then CustomApplication := BEApplication;
  DM := TDM.Create(Nil)
end;

Procedure DoneHTTP;

begin
  DM.Free;
  If CustomApplication = BEApplication Then CustomApplication := Nil;
  Try
    FreeAndNil(BEApplication);
  Except
    If ShowCleanUpErrors Then Raise
  End
End;

Initialization
  InitHTTP;

Finalization
  DoneHTTP;
End.