Changeset 137 for trunk/Modules/ZdechovNET/UModuleZdechovNET.pas

Timestamp:

Sep 9, 2022, 1:16:58 AM (2 years ago)

Author:

chronos

Message:

• Added: Robots page.
• Modified: Canonical URL for webcams.
• Modified: Removed compiler mode delphi as it is already set in project.
• Modified: Updated Common package.
• Modified: Use Generics.Collections instead of fgl.

File:

• trunk/Modules/ZdechovNET/UModuleZdechovNET.pas (modified) (9 diffs)

trunk/Modules/ZdechovNET/UModuleZdechovNET.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, UModularSystem, UWebPage,
+  Classes, SysUtils, UModularSystem, UWebPage, URobotsPage,
   UWebSession, DateUtils, UModuleBase, UModuleUser, UIPTVPage,
   UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,
@@ -30 +30 @@
     AboutPage: TAboutPage;
     IPTVPage: TIPTVPage;
+    RobotsPage: TRobotsPage;
     procedure Footer(Session: TWebSession);
     procedure GeneratePage(ASession: TWebSession; Page: TWebPage);
@@ -36 +37 @@
     ModuleBase: TModuleBase;
     ModuleUser: TModuleUser;
+    Raw: Boolean;
     constructor Create(Owner: TComponent); override;
     destructor Destroy; override;
@@ -74 +76 @@
   BeforeStart;
   ModuleBase := TModuleBase(Manager.FindModuleByName('Base'));
-  ModuleBase.GeneratePage := GeneratePage;
+  ModuleBase.OnGeneratePage := GeneratePage;
   ModuleUser := TModuleUser(Manager.FindModuleByName('User'));
   with ModuleBase, Pages do begin
-    //GeneratePage := GeneratePage;
+    //OnGeneratePage := OnGeneratePage;
     InternetPage := TInternetPage.Create(nil);
     InternetPage.ModuleUser := ModuleUser;
@@ -120 +122 @@
     IPTVPage.ModuleUser := ModuleUser;
     RegisterPage(IPTVPage, 'televize');
+    RobotsPage := TRobotsPage.Create(nil);
+    RobotsPage.ModuleUser := ModuleUser;
+    RegisterPage(RobotsPage, 'robots.txt');
   end;
   AfterStart;
@@ -156 +161 @@
     UnregisterPage(ProjectsPage);
     FreeAndNil(ProjectsPage);
+    UnregisterPage(RobotsPage);
+    FreeAndNil(RobotsPage);
   end;
   ModuleBase := nil;
@@ -242 +249 @@
 begin
   inherited;
-  ModuleBase.GeneratePage := nil;
+  ModuleBase.OnGeneratePage := nil;
   try
     DbRows := TDbRows.Create;
@@ -348 +355 @@
 begin
   with ASession do begin
-    HtmlDocument.ContentLanguage := 'cs';
-    GlobalTitle := 'ZděchovNET';
-    HtmlDocument.Styles.Add(NavigationLink('/Style/' + TCore(MainModule).Style + '/Style.css'));
-    HtmlDocument.Scripts.Add(NavigationLink('/Style/' + TCore(MainModule).Style + '/Global.js'));
-    HtmlDocument.Scripts.Add(NavigationLink('/Style/' + TCore(MainModule).Style + '/jquery.js'));
+    if Page.Raw then begin
+      Response.Content.WriteString(THtmlString(HtmlDocument.Body.SubItems[0]).Text);
+    end else begin
+      HtmlDocument.ContentLanguage := 'cs';
+      GlobalTitle := 'ZděchovNET';
+      HtmlDocument.Styles.Add(NavigationLink('/Style/' + TCore(MainModule).Style + '/Style.css'));
+      HtmlDocument.Scripts.Add(NavigationLink('/Style/' + TCore(MainModule).Style + '/Global.js'));
+      HtmlDocument.Scripts.Add(NavigationLink('/Style/' + TCore(MainModule).Style + '/jquery.js'));
 
       TitleTag := THtmlString.Create;
@@ -370 +380 @@
       end;
     end;
+  end;
 end;