Changeset 103 for trunk/Modules/Portal/UModulePortal.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/Portal/UModulePortal.pas (modified) (6 diffs)

trunk/Modules/Portal/UModulePortal.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UModularSystem, SpecializedDictionary, USqlDatabase;
+  Classes, SysUtils, UModularSystem, SpecializedDictionary, USqlDatabase,
+  UUtils, UWebSession, SpecializedList, UUser;
 
 type
@@ -14 +15 @@
   TModulePortal = class(TModule)
   private
+    Time: TDateTime;
+    function ShowFooter(Session: TWebSession): string;
+    function ShowHeader(Session: TWebSession): string;
   public
     constructor Create(Owner: TComponent); override;
@@ -40 +44 @@
   License := 'GNU/LGPL v3';
   Author := 'Chronosoft';
+  Dependencies.Add('User');
 end;
 
@@ -69 +74 @@
 
     Core.CommonDatabase.Query(DbRows,
-    'CREATE TABLE IF NOT EXISTS `User` (' +
-    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
-    '  `Name` varchar(255) NOT NULL,' +
-    '  `FullName` varchar(255) NOT NULL,' +
-    '  `Password` varchar(255) NOT NULL,' +
-    '  `Salt` varchar(255) NOT NULL,' +
-    '  `Email` varchar(255) NOT NULL,' +
-    '  `RegistrationTime` datetime NOT NULL,' +
+    'CREATE TABLE IF NOT EXISTS `Panel` (' +
+    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
+    '  `Module` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+    '  `Parameters` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+    '  `Order` int(11) NOT NULL,' +
+    '  `PanelColumn` int(11) NOT NULL,' +
+    '  PRIMARY KEY (`Id`),' +
+    '  KEY `PanelColumn` (`PanelColumn`)' +
+    ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
+
+    Core.CommonDatabase.Query(DbRows,
+    'CREATE TABLE IF NOT EXISTS `PanelColumn` (' +
+    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
+    '  `Width` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
     '  PRIMARY KEY (`Id`)' +
-    ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;');
-
-    Data.Add('Id', '1');
-    Data.Add('Name', 'anonymous');
-    Data.Add('FullName', 'Anonymous');
-    Data.Add('RegistrationTime', 'NOW()');
-    Data.Add('Password', '');
-    Data.Add('Salt', '');
-    Data.Add('Email', '');
-    Core.CommonDatabase.Insert('User', Data);
-
-    Core.CommonDatabase.Query(DbRows,
-    'CREATE TABLE IF NOT EXISTS `UserOnline` (' +
-    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
-    '  `User` int(11) NOT NULL DEFAULT ''0'',' +
-    '  `ActivityTime` datetime NOT NULL DEFAULT ''0000-00-00 00:00:00'',' +
-    '  `LoginTime` datetime NOT NULL DEFAULT ''0000-00-00 00:00:00'',' +
-    '  `SessionId` varchar(255) COLLATE utf8_czech_ci NOT NULL DEFAULT '''',' +
-    '  `IpAddress` varchar(16) COLLATE utf8_czech_ci NOT NULL DEFAULT '''',' +
-    '  `HostName` varchar(255) COLLATE utf8_czech_ci NOT NULL DEFAULT '''',' +
-    '  `ScriptName` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+    ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
+
+    Core.CommonDatabase.Query(DbRows,
+    'ALTER TABLE `Panel`' +
+    '  ADD CONSTRAINT `Panel_ibfk_1` FOREIGN KEY (`PanelColumn`) REFERENCES `panelcolumn` (`Id`);');
+
+    Core.CommonDatabase.Query(DbRows,
+    'CREATE TABLE IF NOT EXISTS `HyperlinkGroup` (' +
+    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
+    '  `Name` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+    '  PRIMARY KEY (`Id`)' +
+    ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
+
+    Core.CommonDatabase.Query(DbRows,
+    'CREATE TABLE IF NOT EXISTS `Hyperlink` (' +
+    '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
+    '  `Name` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+    '  `URL` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+    '  `Group` int(11) NOT NULL,' +
+    '  `IconFile` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+    '  `PermissionModule` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+    '  `PermissionOperation` varchar(255) COLLATE utf8_czech_ci NOT NULL,' +
+    '  `Enable` int(11) NOT NULL DEFAULT "1",' +
     '  PRIMARY KEY (`Id`),' +
-    '  KEY `User` (`User`)' +
-    ') ENGINE=MEMORY  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
+    '  KEY `Group` (`Group`),' +
+    '  KEY `Enable` (`Enable`)' +
+    ') ENGINE=InnoDB  DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
+
+    Core.CommonDatabase.Query(DbRows,
+    'ALTER TABLE `Hyperlink`' +
+    '  ADD CONSTRAINT `Hyperlink_ibfk_1` FOREIGN KEY (`Group`) REFERENCES `hyperlinkgroup` (`Id`);');
+
   finally
     Data.Free;
@@ -116 +135 @@
   try
     DbRows := TDbRows.Create;
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `User`');
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `UserOnline`');
+    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Panel`');
+    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PanelColumn`');
+    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Hyperlink`');
+    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `HyperlinkGroup`');
   finally
     DbRows.Free;
@@ -128 +149 @@
 end;
 
+function TModulePortal.ShowHeader(Session: TWebSession): string;
+var
+  ScriptName: string;
+  PathTreePath: string;
+  Navigation: string;
+  ScriptNameParts: TListString;
+  ScriptNamePart: string;
+  I: Integer;
+  BodyParam: string;
+  Path: string;
+  Output: string;
+begin
+  try
+    ScriptNameParts := TListString.Create;
+
+    //ScriptName := $_SERVER['SCRIPT_NAME'];
+    while Pos('//', ScriptName) > 0 do
+      ScriptName := StringReplace('//', '/', ScriptName, [rfReplaceAll]);
+    PathTreePath := '/';
+    //PathTreeItem := PathTree;
+    //Navigation := '<a href="' + NavigationLink(PathTreePath) + '">' + PathTreeItem[0] + '</a> &gt; ';
+    ScriptName := Copy(ScriptName, Length(Core.BaseURL), Length(ScriptName));
+    ScriptNameParts.Explode(ScriptName, '/', StrToStr);
+    ScriptNameParts.Delete(0);
+    (*
+    for I := 0 to ScriptNameParts.Count - 1 do begin
+      ScriptNamePart := ScriptNameParts[I];
+      //echo($ScriptNamePart.'<br />');
+      if array_key_exists($ScriptNamePart, $PathTreeItem) then begin
+        if  is_array($PathTreeItem[$ScriptNamePart]) then begin
+
+          PathTreeItem = $PathTreeItem[$ScriptNamePart];
+          PathTreePath .= $ScriptNamePart.'/';
+          if PathTreeItem[0] != '' then
+            Navigation := Navigation + '<a href="' + $this->System->Config['Web']['RootFolder'] + PathTreePath + '">' + PathTreeItem[0] + '</a> &gt; ';
+        end else begin
+          if(PathTreeItem[ScriptNamePart] != '')
+            Navigation := Navigation + '<a href="' + $this->System->Config['Web']['RootFolder'].$PathTreePath.$ScriptNamePart.'">'.$PathTreeItem[$ScriptNamePart].'</a> &gt; ';
+        end;
+      end;
+    end;    *)
+    Navigation := Copy(Navigation, 1, Length(Navigation) - 6);
+
+    BodyParam := '';
+    //if(isset($this->Load)) BodyParam := BodyParam + ' onload="'.$this->Load.'"';
+    //if(isset($this->Unload)) BodyParam := BodyParam + ' onunload="'.$this->Unload.'"';
+    Output := '<?xml version="1.0" encoding="' + Core.Charset + '"?>' + LineEnding +
+    '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">' +
+    '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="cs" lang="cs">' +
+    '<head><link rel="stylesheet" href="' + NavigationLink('/style/' + Core.Style + '/style.css') + '" type="text/css" media="all" />' +
+    '<meta http-equiv="content-type" content="application/xhtml+xml; charset=' + Core.Charset + '" />' +
+    '<script type="text/javascript" src="' + Core.BaseURL + '/style/' + Core.Style + '/global.js"></script>' +
+    '<title>' + Session.GlobalTitle + ' - ' + Path + '</title>' +
+    '</head><body' + BodyParam + '>' +
+    '<div id="Title">' + Title + '</div>' +
+    '<div class="Navigation"><span class="MenuItem"><strong>Navigace :: </strong> ';
+    Output := Output + Navigation + '</span><div class="MenuItem2">';
+    if Session.User.Id = UnknownUser then
+      Output := Output + '<a href="' + MakeLink('Přihlášení',
+        NavigationLink('/?Action=LoginForm')) + ' ' +
+        MakeLink('Registrace', NavigationLink('/?Action=UserRegister'))
+      else Output := Output + Session.User.Name + ' ' + MakeLink('Odhlásit',
+        NavigationLink('/?Action=Logout'));
+// <a href="'.$this->System->Config['Web']['RootFolder'].'/?Action=UserOptions">Nastavení</a>';
+  Output := Output + '</div></div>';
+  Result := Output;
+  finally
+    ScriptNameParts.Free;
+  end;
+end;
+
+function TModulePortal.ShowFooter(Session: TWebSession): string;
+begin
+  //Time := Round(Now - $ScriptTimeStart, 2);
+  Result := Result + '<div id="Footer">' +
+    '<i>| Správa webu: ' + Core.Admin + ' | e-mail: ' + Core.AdminEmail + ' |';
+//    if Core.ShowRuntimeInfo then Output := Output + ' Doba generování: ' +
+//     Time + ' s / ' + ini_get('max_execution_time') + ' s | Použitá paměť: ' +
+//     HumanSize(memory_get_peak_usage(FALSE)) + ' / ' + ini_get('memory_limit') + 'B |';
+  Result := Result + '</i></div></body></html>';
+end;
+
 end.