program TCPServer;

{$mode Delphi}{$H+}

uses {$IFDEF UNIX} {$IFDEF UseCThreads}
  cthreads, {$ENDIF} {$ENDIF}
  Classes, SysUtils, UCustomApplication, UHtmlClasses,
  UTCPServer, UHTTPServer, UHTTPSessionFile,
  UHTTPSessionMySQL, UHTTPServerCGI, UHTTPServerTCP, UXmlClasses,
  UCommon, UMemoryStreamEx, UMIMEType, UPool,
  UResetableThread, USqlDatabase, UStringListEx, UDatabase,
  UUser, UMainPage, 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.