source: trunk/Modules/ZdechovNET/HostingPage.pas

unit HostingPage;

interface

uses
  Classes, SysUtils, FileUtil, WebPage, HTTPServer, SqlDatabase, HtmlClasses,
  ModuleUser;

type

  { THostingPage }

  THostingPage = class(TWebPage)
    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
  end;

var
  HostingPage: THostingPage;


implementation

{$R *.lfm}

uses
  Core, WebSession;

{ THostingPage }

procedure THostingPage.DataModuleProduce(HandlerData: THTTPHandlerData);
var
  I: Integer;
  DbRows: TDbRows;
  ModuleUser: TModuleUser;
begin
  with TWebSession(HandlerData) do begin
    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    if Request.Path.Count > 1 then begin
      PageNotFound;
      Exit;
    end;

    ModuleUser.LoadUserInfo;
    with HtmlDocument.Body, SubItems.AddString do begin
      Text := 'V nabídce je provoz virtualizovaných Linuxových serverů dle dohodnutých parameterů.<br/><br/>' +
      '<strong>Standardní varianty:</strong><br/>' +
      '<table class="WideTable">' +
      '<tr><th>Označení</th><th>Rychlost</th><th>Vyhrazená paměť</th><th>Pevný disk</th><th>Procesor</th><th>Cena [Kč/měsíc]</th></tr>';
      try
        DbRows := TDbRows.Create;
        Database.Query(DbRows, 'SELECT * FROM VPSHosting ORDER BY Price DESC');
        for I := 0 to DbRows.Count - 1 do
          Text := Text + '<tr><td>' + DbRows[I].Items['Name'] + '</td><td align="center">' +
            DbRows[I].Items['Internet'] + '</td><td align="center">' + DbRows[I].Items['Memory'] +
            '</td><td align="center">' + DbRows[I].Items['Space'] + '</td><td align="center">' +
            DbRows[I].Items['CPU'] + '</td><td align="center">' + DbRows[I].Items['Price'] + '</td></tr>';
      finally
        DbRows.Free;
      end;
      Text := Text + '</table>' +
      '<br/>' +
      'Prvních 7 dní zdarma, denní zálohování disků, ceny včetně DPH<br/>' +
      'Použité technologie: <a href="http://www.linux.cz/">GNU/Linux</a>, <a href="https://linuxcontainers.org/">LXC</a>, <a href="http://pve.proxmox.com/">Proxmox VE</a>, <a href="http://backuppc.sourceforge.net/">BackupPC</a><br/>' +
      '<br/>' +
      '<i>Aktualizováno: 1.10.2012</i><br/><br/>';

      Text := Text + '<p>Hosting je využíván např. pro provoz herních serverů MMORPG her jako např. World of Warcraft (WoW), Lineage II, Aion, aj.</p>';

      Text := Text + '<strong>Projekty využívající VPS hosting</strong><br/><ul>';
      try
        DbRows := TDbRows.Create;
        Database.Query(DbRows, 'SELECT * FROM `HostedProject` WHERE `Active`=1 AND `WebHosting`=0');
        for I := 0 to DbRows.Count - 1 do
          if DbRows[I].Items['Homepage'] <> '' then
          Text := Text + '<li><a href="' + DbRows[I].Items['Homepage'] + '">' +
            DbRows[I].Items['Name'] + '</a></li>'
            else Text := Text + '<li>' + DbRows[I].Items['Name'] + '</li>';
        Text := Text + '</ul>';
      finally
        DbRows.Free;
      end;

      Text := Text + '<br/><strong>Projekty využívající web hosting</strong><br/><ul>';
      try
        DbRows := TDbRows.Create;
        Database.Query(DbRows, 'SELECT * FROM `HostedProject` WHERE `Active`=1 AND `WebHosting`=1');
        for I := 0 to DbRows.Count - 1 do
          Text := Text + '<li><a href="' + DbRows[I].Items['Homepage'] + '">' +
            DbRows[I].Items['Name'] + '</a></li>';
        Text := Text + '</ul>';
      finally
        DbRows.Free;
      end;
    end;
    GeneratePage(Self);
  end;
end;

end.