Changeset 105 for trunk/Pages

Timestamp:

Oct 9, 2012, 1:58:45 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Hlavní modul Base, který slouží jako základní rozhraní k aplikaci pro ostatní moduly. Modul System zajistí udržování seznamu instalovaných modulů v perzistentním úložišti v databázi.
• Upraveno: Správce modulů ModuleManager je nyní použit pro každé komunikační spojení zvlášť.

Location:

trunk/Pages

Files:

• UPageAdmin.pas (modified) (4 diffs)
• UServerInfoPage.pas (modified) (3 diffs)

trunk/Pages/UPageAdmin.pas

@@ -64 +64 @@
   with TWebSession(HandlerData) do begin
     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
-      TModuleSystem(Core.ModuleManager.FindModuleByName('System')).UpdateModuleList;
+      TModuleSystem(ModuleManager.FindModuleByName('System')).UpdateModuleList;
       Text := 'Seznam modulů synchronizován';
       Text := Text + '<br/><br/>';
@@ -82 +82 @@
         '<table class="WideTable"><tr><th>Name</th><th>Installed</th><th>Title</th><th>Version</th>' +
         '<th>License</th><th>Author</th><th>Decsription</th><th>Dependencies</th><th>Actions</th></tr>';
-      for I := 0 to Core.ModuleManager.Modules.Count - 1 do
-      with TModule(Core.ModuleManager.Modules[I]) do begin
+      for I := 0 to ModuleManager.Modules.Count - 1 do
+      with TModule(ModuleManager.Modules[I]) do begin
         Text := Text + '<tr><td>' + Identification + '</td><td>' + BooleanText[Installed] + '</td><td>' + Title +
         '</td><td>' + Version + '</td><td>' + License + '</td><td>' + Author +
@@ -106 +106 @@
       if Request.Query.SearchKey('name') <> -1 then begin
         ModuleName := Request.Query.Values['name'];
-        Module := Core.ModuleManager.FindModuleByName(ModuleName);
+        Module := ModuleManager.FindModuleByName(ModuleName);
         if Assigned(Module) then begin
           Text := 'Installing module ' + ModuleName;
@@ -128 +128 @@
       if Request.Query.SearchKey('name') <> -1 then begin
         ModuleName := Request.Query.Values['name'];
-        Module := Core.ModuleManager.FindModuleByName(ModuleName);
+        Module := ModuleManager.FindModuleByName(ModuleName);
         if Assigned(Module) then begin
           Text := 'Uninstalling module ' + ModuleName;

trunk/Pages/UServerInfoPage.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, UWebPage, UWebApp, UHTTPServer;
+  Classes, SysUtils, FileUtil, UWebPage, UWebApp, UHTTPServer, UModuleUser;
 
 type
@@ -17 +17 @@
     { private declarations }
   public
-    { public declarations }
+    ModuleUser: TModuleUser;
   end; 
 
@@ -35 +35 @@
 begin
   with TWebSession(HandlerData) do begin
-    LoadUserInfo;
+    ModuleUser.LoadUserInfo;
     Session.Values['Test'] := 'Tst';
     TCore(MainModule).WebApp1.HTTPServer.ServerInfo(HandlerData);