source: trunk/Modules/ZdechovNET/NetworkPage.pas

unit NetworkPage;

interface

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

type

  { TNetworkPage }

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

var
  NetworkPage: TNetworkPage;


implementation

{$R *.lfm}

uses
  Core, Utils, WebSession;

{ TNetworkPage }

procedure TNetworkPage.DataModuleProduce(HandlerData: THTTPHandlerData);
var
  TextBlock: THtmlString;
  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 := MakeLink('Dokumenty', NavigationLink('/dokumenty/')) + '<br/>' +
        MakeLink('Historie', NavigationLink('/historie/')) + '<br/>' +
        MakeLink('Plánované projekty', NavigationLink('/plany/')) + '<br/>' +
        MakeLink('Měření rychlosti', 'http://speedtest.zdechov.net/') + '<br/>';
    end;
    GeneratePage(Self);
  end;
end;

end.