unit cgi_daemon;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, DaemonApp;

type
  TLMSReportCGI=class;
  { TDaemonThread }

  TDaemonThread=class(TThread)
    fOwner: TLMSReportCGI;
    procedure Execute;override;
    constructor Create(AOwner: TLMSReportCGI);
  end;

  { TLMSReportCGI }

  TLMSReportCGI = class(TDaemon)
    procedure DataModuleStart(Sender: TCustomDaemon; var OK: Boolean);
  private
    workThread: TDaemonThread;
  public

  end;

var
  LMSReportCGI: TLMSReportCGI;

implementation

procedure RegisterDaemon;
begin
  RegisterDaemonClass(TLMSReportCGI)
end;

{$R *.lfm}

{ TLMSReportCGI }

procedure TLMSReportCGI.DataModuleStart(Sender: TCustomDaemon; var OK: Boolean);
begin
  workThread := TDaemonThread(self);
  workThread.Start;
end;

{ TDaemonThread }

procedure TDaemonThread.Execute;
begin

end;

constructor TDaemonThread.Create(AOwner: TLMSReportCGI);
begin
  inherited Create(true);
  fOwner:=AOwner;
end;


initialization
  RegisterDaemon;
end.