source: trunk/Pages/ServerInfoPage.pas

unit ServerInfoPage;

interface

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

type

  { TServerInfoPage }

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

var
  ServerInfoPage: TServerInfoPage;


implementation

{$R *.lfm}

uses
  Core, WebSession;

{ TServerInfoPage }

procedure TServerInfoPage.DataModuleProduce(HandlerData: THTTPHandlerData);
var
  ModuleUser: TModuleUser;
begin
  with TWebSession(HandlerData) do begin
    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    ModuleUser.LoadUserInfo;
    Session.Values['Test'] := 'Tst';
    TCore(MainModule).WebApp1.HTTPServer.ServerInfo(HandlerData);
    GeneratePage(Self);
  end;
end;

end.