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

Timestamp:

Oct 8, 2012, 8:48:16 AM (12 years ago)

Author:

chronos

Message:

• Upraveno: TWebSession zobecněno pro možnost implementace více modulů s obsluhou vstupní stránky.

File:

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

trunk/Modules/ZdechovNET/UModuleZdechovNET.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UModularSystem, SpecializedDictionary;
+  Classes, SysUtils, UModularSystem, SpecializedDictionary, UWebPage,
+  UWebSession, DateUtils;
 
 type
@@ -13 +14 @@
 
   TModuleZdechovNET = class(TModule)
+  private
+    procedure Footer(Session: TWebSession);
+    procedure GeneratePage(ASession: TWebSession; Page: TWebPage);
+    procedure TopMenu(Session: TWebSession);
   public
     constructor Create(Owner: TComponent); override;
@@ -29 +34 @@
   UCore, USqlDatabase, UXmlClasses, UHtmlClasses, UUtils,
   UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,
-  ULinksPage, UPlansPage, UServerInfoPage, UWebCamPage,
+  ULinksPage, UPlansPage, UServerInfoPage, UWebCamPage, UUser,
   UNetworkPage, UAboutPage, UContactPage, UProjectsPage;
 
@@ -42 +47 @@
   License := 'GNU/LGPL v3';
   Author := 'Chronosoft';
+  Dependencies.Add('User');
 end;
 
@@ -98 +104 @@
     Data := TDictionaryStringString.Create;
 
+    Core.GeneratePage := GeneratePage;
+
     Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `VPSHosting` (' +
@@ -172 +180 @@
 begin
   inherited Uninstall;
+  Core.GeneratePage := nil;
   try
     DbRows := TDbRows.Create;
@@ -189 +198 @@
 end;
 
+procedure TModuleZdechovNET.Footer(Session: TWebSession);
+var
+  Tag: TXMLTag;
+  AdminTag: TXMLTag;
+  EmailTag: TXMLTag;
+  ExecutionTimeTag: TXMLTag;
+  UsedMemoryTag: TXMLTag;
+  TextNode: TXmlString;
+begin
+  with Session do
+  with TXmlTag(HtmlDocument.Body.SubItems.AddNew(TXmlTag.Create)) do begin
+    Name := 'ul';
+    Attributes.Values['class'] := 'Footer';
+    with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
+      Name := 'li';
+      with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin
+        Text := TCore(MainModule).Admin;
+      end;
+    end;
+    with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
+      Name := 'li';
+      with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin
+        Text := TCore(MainModule).AdminEmail;
+      end;
+    end;
+    if TCore(MainModule).ShowRuntimeInfo then begin
+      with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
+        Name := 'li';
+        with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin
+          Text := 'Doba generování: ' +
+            FloatToStr(Round(((Now - TimeStart) / OneMillisecond) * 100) / 100) + ' s / '; // + ini_get('max_execution_time') + ' s';
+        end;
+      end;
+      with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
+        Name := 'li';
+        with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin
+          //Text := 'Použitá paměť: '  + System.PrefixMultiplier.AddPrefixMultipliers(memory_get_peak_usage(FALSE), 'B').' / '.ini_get('memory_limit').'B';
+        end;
+      end;
+    end;
+  end;
+end;
+
+procedure TModuleZdechovNET.TopMenu(Session: TWebSession);
+begin
+  with Session, THtmlString(HtmlDocument.Body.SubItems.InsertNew(1, THtmlString.Create)) do begin
+    Text := '<div class="Navigation">';
+    // Visitor
+    Text := Text + '<ul class="MenuItem">' +
+      '<li>' + MakeLink('Úvod', NavigationLink('/')) + '</li>' +
+      '<li>' + MakeLink('Internet', NavigationLink('/internet/')) + '</li>' +
+      '<li>' + MakeLink('Hosting', NavigationLink('/hosting/')) + '</li>' +
+      '<li>' + MakeLink('VoIP', NavigationLink('/voip/')) + '</li>' +
+      '<li>' + MakeLink('Síť', NavigationLink('/sit/')) + '</li>' +
+      '<li>' + MakeLink('Odkazy', NavigationLink('/odkazy/')) + '</li>' +
+      '<li>' + MakeLink('Kontakt', NavigationLink('/kontakt/')) + '</li>' +
+      '<li>' + MakeLink('Kamery', NavigationLink('/kamery/')) + '</li>' +
+      '<li><a href="https://mail.zdechov.net/">Pošta</a></li>' +
+      '<li><a href="http://wiki.zdechov.net/">Wiki</a></li>' +
+      '</ul><ul class="MenuItem2">'; //<li>&nbsp;</li>';
+    if Assigned(TCore(MainModule).Pages.FindByName('uzivatel')) then begin
+      if UserOnline.User = UnknownUser then begin
+        Text := Text + '</ul>' +
+          '<ul class="MenuItem2">' +
+          '<li>' + MakeLink('Přihlášení', NavigationLink('/uzivatel/prihlaseni/')) + '</li>' +
+          '<li>' + MakeLink('Registrace', NavigationLink('/uzivatel/registrace/')) + '</li>' +
+          '<li></li>';
+        // $Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Translate('UserRegistration'), $this->System->MakeLink('UserList', 'Register')).'</li>';
+      end else begin
+        Text := Text + '</ul>' +
+          '<ul class="MenuItem2">' +
+          '<li>' + User.FullName + '</li>' +
+          '<li>' + MakeLink('Odhlášení', NavigationLink('/uzivatel/odhlaseni/')) + '</li>' +
+          '<li>' + MakeLink('Profil', NavigationLink('/uzivatel/profil/')) + '</li>';
+      end;
+    end else Text := Text + '</ul><ul class="MenuItem2">&nbsp;';
+    Text := Text + '</ul></div>';
+  end;
+end;
+
+procedure TModuleZdechovNET.GeneratePage(ASession: TWebSession; Page: TWebPage);
+var
+  I: Integer;
+  TitleTag: THtmlString;
+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'));
+
+      TitleTag := THtmlString.Create;
+      HtmlDocument.Body.SubItems.Insert(0, TitleTag);
+      TopMenu(ASession);
+      //Page.Page.OnProduce(HandlerData);
+      HtmlDocument.Title := Page.Caption;
+      TitleTag.Text := '<div class="TitlePanel"><span class="GlobalTitle">' + GlobalTitle +
+        '</span> - ' + HtmlDocument.Title + '</div>';
+      HtmlDocument.Title := GlobalTitle + ' - ' + HtmlDocument.Title;
+      with HtmlDocument.AsXmlDocument do
+      try
+        Formated := TCore(MainModule).FormatHTML;
+        Response.Content.WriteString(AsString);
+      finally
+        Free;
+      end;
+    end;
+end;
+
+
 end.