Changeset 92 for trunk/UCore.pas

Timestamp:

Sep 7, 2012, 9:52:38 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Administrační stránka pro instalaci a odinstalaci modulů.
• Přidáno: Modul System je zodpovědný za udržování seznamu všech modulů.

File:

• trunk/UCore.pas (modified) (6 diffs)

trunk/UCore.pas

@@ -9 +9 @@
   UHTTPServer, USqlDatabase, INIFiles, DateUtils, UWebPage, UWebApp,
   UXmlClasses, UHtmlClasses, UUtils, UApplicationInfo, UHTTPServerTCP,
-  UModuleUser, UHTTPSessionFile, UUser, SpecializedList, Registry,
+  UHTTPSessionFile, UUser, SpecializedList, Registry,
   UModularSystem;
 
@@ -50 +50 @@
     procedure Show(Content: string);
     procedure RegisterModules;
+    procedure CheckModules;
   public
     CommonDatabase: TSqlDatabase;
@@ -85 +86 @@
 
 uses
-  UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,
-  ULinksPage, UPlansPage, UServerInfoPage, UWebCamPage, UUserControlPage,
-  UNetworkPage, UAboutPage, UContactPage, UProjectsPage;
+  UModuleSystem, UModuleZdechovNET, UModuleUser, UPageAdmin;
 
 { TWebSession }
@@ -178 +177 @@
   LoadFromRegistry;
   with Pages do begin
-    RegisterPage(TInternetPage, InternetPage, 'internet');
-    RegisterPage(THostingPage, HostingPage, 'hosting');
-    RegisterPage(THistoryPage, HistoryPage, 'historie');
-    RegisterPage(TDocumentsPage, DocumentsPage, 'dokumenty');
-    RegisterPage(TVoIPPage, VoIPPage, 'voip');
-    RegisterPage(TLinksPage, LinksPage, 'odkazy');
-    RegisterPage(TContactPage, ContactPage, 'kontakt');
-    RegisterPage(TServerInfoPage, ServerInfoPage, 'serverinfo');
-    RegisterPage(TWebCamPage, WebCamPage, 'kamery');
-    RegisterPage(TPlansPage, PlansPage, 'plany');
-    RegisterPage(TNetworkPage, NetworkPage, 'sit');
-    RegisterPage(TProjectsPage, ProjectsPage, 'projekty');
-    RegisterPage(TAboutPage, AboutPage, '');
+    RegisterPage(TPageAdmin, PageAdmin, 'administration');
   end;
   with WebApp1 do begin
@@ -282 +269 @@
 begin
   with ModuleManager do begin
+    RegisterModule(TModuleSystem.Create(nil), True);
     RegisterModule(TModuleUser.Create(nil), True);
+    RegisterModule(TModuleZdechovNET.Create(nil), True);
+  end;
+end;
+
+procedure TCore.CheckModules;
+var
+  DbRows: TDbRows;
+  Module: TModule;
+begin
+  try
+    DbRows := TDbRows.Create;
+    CommonDatabase.Query(DbRows, 'SELECT * FROM INFORMATION_SCHEMA.TABLES ' +
+      'WHERE TABLE_SCHEMA = "' + CommonDatabase.Database + '" AND TABLE_NAME = "SystemModule"');
+    Module := ModuleManager.FindModuleByName('System');
+    if DbRows.Count > 0 then Module.SetInstalledState(True)
+      else Module.SetInstalledState(False);
+  finally
+    DbRows.Free;
   end;
 end;
@@ -425 +431 @@
 
   RegisterModules;
+  CheckModules;
   ModuleManager.StartInstalled;