source: trunk/Modules/ZdechovNET/VoIPPage.pas

unit VoIPPage;

interface

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

type

  { TVoIPPage }

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

var
  VoIPPage: TVoIPPage;


implementation

{$R *.lfm}

uses
  Core, WebSession;

{ TVoIPPage }

procedure TVoIPPage.DataModuleProduce(HandlerData: THTTPHandlerData);
var
  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 := 'Volejte levněji do pevných a mobilních sítí s sekundovou tarifikací a bez měsíčního paušálu.' +
      ' A v rámci sítě a těch co mají v obci VoIP od stejného operátora dokonce zdarma. <br/>' +
      '<br/>' +
      'Doporučujeme: <a href="https://www.odorik.cz/">VoIP Odorik</a>' +
      '<ul><li>Zřízení zdarma</li>' +
      '<li>Měsíční paušál: 0 Kč</li>' +
      '<li>Tarifikace: 1+1 (sekundová)</li>' +
      '<li>Volání v síti: <strong>0 Kč/minutu</strong></li>' +
      '<li>Volání do pevných sítí: <strong>0,25 Kč/minutu mimo špičku, 0,49 Kč/minutu ve špičce</strong></li>' +
      '<li>Volání do mobilních sítí: <strong>0,59 Kč/minutu</strong></li>' +
      '<li>Přenesení vašeho čísla: 900 Kč</li>' +
      '<li>Volání z mobilního čísla na mobil: 1,49 Kč/minutu</strong></li>' +
      '</ul>' +
      '<br/>' +
      '<a href="https://www.odorik.cz/ceny.html">Ceník</a><br/>' +
      '<br/>';
    end;
    GeneratePage(Self);
  end;
end;

end.