program ZdechovNET;

{$mode delphi}{$H+}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  UCore, USqlDatabase, SysUtils, Contnrs,
  UContactPage, UUser, UHTTPSessionMySQL, UHTTPSessionFile,
  UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool,
  UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UMainModule, UWebApp,
  UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,
  ULinksPage, UPlansPage, UServerInfoPage, UWebCamPage, UUserControlPage,
  UNetworkPage, UAboutPage;

begin
  with Application do
  try
    Initialize;
    MainModule := TMainModule.Create(nil);
    MainModule.Run;
    RegisterPage(TInternetPage, InternetPage, 'internet');
    RegisterPage(THostingPage, HostingPage, 'hosting');
    RegisterPage(THistoryPage, HistoryPage, 'historie');
    RegisterPage(TDocumentsPage, DocumentsPage, 'dokumenty');
    RegisterPage(TVoIPPage, VoIPPage, 'voip');
    RegisterPage(TLinksPage, LinksPage, 'odkazy');
    RegisterPage(TContactPage, ContactPage, 'kontakt');
    RegisterPage(TServerInfoPage, ServerInfoPage, 'serverinfo');
    RegisterPage(TWebCamPage, WebCamPage, 'kamery');
    RegisterPage(TUserControlPage, UserControlPage, 'uzivatel');
    RegisterPage(TPlansPage, PlansPage, 'plany');
    RegisterPage(TNetworkPage, NetworkPage, 'sit');
    //RegisterPage(TAboutPage, AboutPage, '');
    RegisterPage(TUserControlPage, UserControlPage, '');
    ServerType := stCGI;
    if ServerType = stTCP then begin
      THTTPServerTCP(HTTPServer).Socket.Address := MainModule.NetworkAddress;
      THTTPServerTCP(HTTPServer).Socket.Port := MainModule.NetworkPort;
      THTTPServerTCP(HTTPServer).MaxConnection := MainModule.MaxConnections;
    end;
    Run;
  finally
    MainModule.Free;
  end;
end.