program CGI;

{$mode delphi}{$H+}

uses
  UCore, USqlDatabase, SysUtils, Contnrs, UStringListEx,
  UMainPage, UCustomApplication, UUser, UHTTPSessionMySQL, UHTTPSessionFile,
  UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool,
  UMemoryStreamEx, UMIMEType;

var
  Application: TCustomApplication;

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