program TCPServer;

{$mode Delphi}{$H+}

uses {$IFDEF UNIX} {$IFDEF UseCThreads}
  cthreads, {$ENDIF} {$ENDIF}
  Classes, SysUtils, UCustomApplication, UHTTPServerTCP,
  UCommon, CoolWeb, UMainPage, TemplateGenerics, synapse;

//{$IFDEF WINDOWS}{$R LiftManagerWebServer.rc}{$ENDIF}

var
  WebServer: TCustomApplication;

{$R *.res}

begin
  WebServer := TCustomApplication.Create;
  with WebServer do begin
    RegisterPage('internet', Internet);
    RegisterPage('hosting', Hosting);
    RegisterPage('historie', History);
    RegisterPage('dokumenty', Documents);
    RegisterPage('voip', VoIP);
    RegisterPage('odkazy', Links);
    RegisterPage('kontakt', Contact);
    RegisterPage('', About);
    HTTPServer := THTTPServerTCP.Create;
    HTTPServer.OnRequest := Execute;
    Run;
    Free;
  end;
end.