source: trunk/Modules/ZdechovNET/RobotsPage.pas

unit RobotsPage;

interface

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

type

  { TRobotsPage }

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

var
  RobotsPage: TRobotsPage;


implementation

{$R *.lfm}

uses
  Core, Utils, WebSession, SqlDatabase;

{ TRobotsPage }

procedure TRobotsPage.DataModuleProduce(HandlerData: THTTPHandlerData);
var
  TextBlock: THtmlString;
  DbRows: TDbRows;
  I: Integer;
  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 := 'User-agent: *' + LineEnding +
        'Disallow: /*?';
      //'Sitemap: ' + AbsoluteLink('/sitemap.xml');
    end;
    GeneratePage(Self);
  end;
end;

end.