Changeset 25 for branches/lazarus/Application/UCustomCGIApplication.pas

Timestamp:

Sep 8, 2010, 8:34:15 PM (14 years ago)

Author:

george

Message:

• Opraveno: Zobrazování jednotlivých stránek.
• Opraveno: Zobrazení výpisu historie sítě.

File:

• branches/lazarus/Application/UCustomCGIApplication.pas (modified) (9 diffs)

branches/lazarus/Application/UCustomCGIApplication.pas

@@ -12 +12 @@
   TCustomCGIApplication = class;
 
-  TPageProducer = procedure(Body: TcustomCGIApplication);
+  TPageProducer = procedure(Body: TCustomCGIApplication);
 
   TRegistredPage = class
@@ -34 +34 @@
     ShowRuntimeInfo: Boolean;
     Charset: string;
-    FormatHTML: Boolean;
     Admin: string;
     AdminEmail: string;
@@ -42 +41 @@
     Pages: TObjectList;
     Database: TSqlDatabase;
+    PageName: string;
+    ModuleName: string;
     procedure Execute; override;
     constructor Create;
@@ -52 +53 @@
 
 resourcestring
-  SPageNotFound = 'Stránka nenalezena';
+  SPageNotFound = 'Page not found';
 
 { TCustomCGIApplication }
@@ -86 +87 @@
 var
   I: Integer;
-  PageName: string;
+  TitleTag: THtmlString;
 begin
   //SysInfo;
@@ -92 +93 @@
 
   HtmlDocument.ContentLanguage := 'cs';
-  HtmlDocument.Title := 'Test document';
+  GlobalTitle := 'ZděchovNET';
   HtmlDocument.Styles.Add('Style/' + Style + '/Style.css');
   HtmlDocument.Scripts.Add('Style/' + Style + '/Global.js');
@@ -98 +99 @@
 
   PageName := Query.Values['p'];
-  if PageName = '' then PageName := 'index';
+  if PageName = '' then PageName := 'History';
+  ModuleName := Query.Values['m'];
+  if ModuleName = '' then ModuleName := 'Main';
   I := 0;
-  while (I < Pages.Count) and (TRegistredPage(Pages[I]).Name <> PageName) do Inc(I);
+  while (I < Pages.Count) and (TRegistredPage(Pages[I]).Name <> ModuleName) do Inc(I);
   if I < Pages.Count then begin
-    with THtmlString(HtmlDocument.Body.SubItems[HtmlDocument.Body.SubItems.Add(THtmlString.Create)]) do begin
-      Text := '<div class="TitlePanel">' + HtmlDocument.Title + '</div>';
-    end;
+    TitleTag := THtmlString.Create;
+    HtmlDocument.Body.SubItems.Add(TitleTag);
     TopMenu;
     TRegistredPage(Pages[I]).Producer(Self);
+    TitleTag.Text := '<div class="TitlePanel"><span class="GlobalTitle">' + GlobalTitle +
+    '</span> - ' + HtmlDocument.Title + '</div>';
     with HtmlDocument.AsXmlDocument do begin
+      Formated := ConfigFormatHTML;
       Output.Add(AsString);
       Free;
@@ -140 +145 @@
   TextNode: TXmlString;
 begin
-  Tag := TXMLTag.Create;
-  Tag.Name := 'ul';
-  Tag.Attributes.Values['class'] := 'Footer';
-  AdminTag := TXMLTag.Create;
-  AdminTag.Name := 'li';
-  TextNode := TXmlString.Create;
-  TextNode.Text := Admin;
-  AdminTag.SubElements.Add(TextNode);
-  EmailTag := TXMLTag.Create;
-  EmailTag.Name := 'li';
-  TextNode := TXmlString.Create;
-  TextNode.Text := AdminEmail;
-  EmailTag.SubElements.Add(TextNode);
-  Tag.SubElements.Add(AdminTag);
-  Tag.SubElements.Add(EmailTag);
-  if ShowRuntimeInfo then begin
-    ExecutionTimeTag := TXMLTag.Create;
-    ExecutionTimeTag.Name := 'li';
-    TextNode := TXmlString.Create;
-    TextNode.Text := 'Doba generování: ' +
-      FloatToStr(Round(((Now - TimeStart) / OneMillisecond) * 100) / 100) + ' s / '; // + ini_get('max_execution_time') + ' s';
-    ExecutionTimeTag.SubElements.Add(TextNode);
-    Tag.SubElements.Add(ExecutionTimeTag);
-    UsedMemoryTag := TXMLTag.Create;
-    UsedMemoryTag.Name := 'li';
-    TextNode := TXmlString.Create;
-//    TextNode.Text := 'Použitá paměť: '  + System.PrefixMultiplier.AddPrefixMultipliers(memory_get_peak_usage(FALSE), 'B').' / '.ini_get('memory_limit').'B';
-    UsedMemoryTag.SubElements.Add(TextNode);
-    Tag.SubElements.Add(UsedMemoryTag);
+  with TXmlTag(HtmlDocument.Body.SubItems[HtmlDocument.Body.SubItems.Add(TXmlTag.Create)]) do begin
+    Name := 'ul';
+    Attributes.Values['class'] := 'Footer';
+    with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
+      Name := 'li';
+      with TXmlString(SubElements[SubElements.Add(TXmlString.Create)]) do begin
+        Text := Admin;
+      end;
+    end;
+    with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
+      Name := 'li';
+      with TXmlString(SubElements[SubElements.Add(TXmlString.Create)]) do begin
+        Text := AdminEmail;
+      end;
+    end;
+    if ShowRuntimeInfo then begin
+      with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
+        Name := 'li';
+        with TXmlString(SubElements[SubElements.Add(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[SubElements.Add(TXmlTag.Create)]) do begin
+        Name := 'li';
+        with TXmlString(SubElements[SubElements.Add(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 TCustomCGIApplication.Show(Content: string);
-var
-  BodyParam: string;
-  StyleTag: TXMLTag;
 begin
   //HtmlDocument.Title := ;
@@ -217 +220 @@
       '<li>' + MakeLink('Odkazy', NavigationMakeLink('Main', 'Links')) + '</li>' +
       '<li>' + MakeLink('Kontakt', NavigationMakeLink('Main', 'Contact')) + '</li>';
-(*    if ($this->System->UserOnline->User == $this->System->UserOnline->AnonymousUserId) then begin
-
-      $Output .= '</ul>';
-      $Output .= '<ul class="MenuItem2">';
-      $Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Localization->Translate('UserLogin'), $this->System->Navigation->MakeLink('User', 'Login')).'</li>';
+    Text := Text + '</ul><ul class="MenuItem2"><li>&nbsp;</li>';
+(*    if System.UserOnline.User = System.UserOnline.AnonymousUserId then begin
+      Text := Text + '</ul>' +
+        '<ul class="MenuItem2">' +
+        '<li>' + MakeLink('Přihlášení', NavigationMakeLink('User', 'Login')) + '</li>';
       //$Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Translate('UserRegistration'), $this->System->MakeLink('UserList', 'Register')).'</li>';
     end else begin
-      $Output .= '</ul>';
-      $Output .= '<ul class="MenuItem2">';
-      $Output .= '<li>'.$this->System->User->Data['FullName'].'</li>';
-      $Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Localization->Translate('UserLogout'), $this->System->Navigation->MakeLink('User', 'Logout')).'</li>';
-      $Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Localization->Translate('UserView'), $this->System->Navigation->MakeLink('User', 'View',
+      Text := Text + '</ul>' +
+        '<ul class="MenuItem2">' +
+        '<li>' + System.User.FullName + '</li>' +
+        '<li>' + MakeLink('Odhlášení', NavigationMakeLink('User', 'Logout')) + '</li>' +
+        '<li>' + MakeLink('Profil', NavigationMakeLink('User', 'View',
         array('Id' => $this->System->User->Id))).'</li>';
     end;