Changeset 146
- Timestamp:
- Dec 29, 2023, 11:44:26 PM (11 months ago)
- Location:
- trunk
- Files:
-
- 4 edited
- 64 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/Application/WebObjects.pas
r145 r146 1 unit UWebObjects;1 unit WebObjects; 2 2 3 3 interface -
trunk/Application/WebSession.pas
r145 r146 1 unit UWebSession;1 unit WebSession; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UHTTPServer, USqlDatabase, UHTTPSessionMySQL, U User,7 UHtmlClasses, UWebPage, U Utils, UXmlClasses, DateUtils, UModularSystem,6 Classes, SysUtils, UHTTPServer, USqlDatabase, UHTTPSessionMySQL, User, 7 UHtmlClasses, UWebPage, Utils, UXmlClasses, DateUtils, UModularSystem, 8 8 UPageList, UWebApp, UGenerics; 9 9 … … 38 38 39 39 uses 40 UCore, UModuleSystem, UModuleZdechovNET, UModuleUser, UPageAdmin, UModuleTV,41 UModuleFinance, UModuleNetwork, UModulePortal, UModuleIS, UModuleBase,42 UModuleNews, UPageNotFound;40 Core, ModuleSystem, ModuleZdechovNET, ModuleUser, PageAdmin, ModuleTV, 41 ModuleFinance, ModuleNetwork, ModulePortal, ModuleIS, ModuleBase, 42 ModuleNews, PageNotFound; 43 43 44 44 resourcestring … … 111 111 end; 112 112 end else begin 113 Core. WebApp1.HTTPServer.FileResponse(Self)113 Core.Core.WebApp1.HTTPServer.FileResponse(Self) 114 114 end; 115 115 end; -
trunk/Common/Utils.pas
r145 r146 1 unit U Utils;1 unit Utils; 2 2 3 3 interface … … 20 20 21 21 uses 22 UCore;22 Core; 23 23 24 24 function HtmlLink(Text, Target: string): string; … … 96 96 begin 97 97 if (Length(URL) > 0) and (URL[1] = '/') then 98 Result := Core. BaseURL + URL98 Result := Core.Core.BaseURL + URL 99 99 else Result := URL; 100 100 end; -
trunk/Core.pas
r145 r146 1 unit UCore;1 unit Core; 2 2 3 3 interface … … 6 6 Classes, SysUtils, FileUtil, LResources, UHTTPServerCGI, UHTTPSessionMySQL, 7 7 UHTTPServer, USqlDatabase, INIFiles, DateUtils, UWebPage, UWebApp, 8 UXmlClasses, UHtmlClasses, U Utils, UApplicationInfo, UHTTPServerTCP,9 UHTTPSessionFile, U User, Registry, UModularSystem, UWebSession, LazUTF8;8 UXmlClasses, UHtmlClasses, Utils, UApplicationInfo, UHTTPServerTCP, 9 UHTTPSessionFile, User, Registry, UModularSystem, WebSession, LazUTF8; 10 10 11 11 const … … 191 191 initialization 192 192 193 {$I UCore.lrs}193 {$I Core.lrs} 194 194 195 195 end. -
trunk/Modules/Base/ModuleBase.pas
r145 r146 1 unit UModuleBase;1 unit ModuleBase; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, UModularSystem, UGenerics, UWebPage, UWebApp, 7 UWebSession, UHTTPServer;7 WebSession, UHTTPServer; 8 8 9 9 type … … 30 30 31 31 uses 32 UPageAdmin;32 PageAdmin; 33 33 34 34 { TModuleBase } -
trunk/Modules/Finance/ModuleFinance.pas
r145 r146 1 unit UModuleFinance;1 unit ModuleFinance; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UModularSystem, UModuleBase, UWebPage;6 Classes, SysUtils, UModularSystem, ModuleBase, UWebPage; 7 7 8 8 type … … 26 26 27 27 uses 28 UCore, UPageFinance, USqlDatabase;28 Core, PageFinance, USqlDatabase; 29 29 30 30 { TModuleFinance } … … 67 67 DbRows := TDbRows.Create; 68 68 69 Core.Co mmonDatabase.Query(DbRows,69 Core.Core.CommonDatabase.Query(DbRows, 70 70 'CREATE TABLE IF NOT EXISTS `FinanceTariff` (' + 71 71 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 84 84 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 85 85 86 Core.Co mmonDatabase.Query(DbRows,86 Core.Core.CommonDatabase.Query(DbRows, 87 87 'CREATE TABLE IF NOT EXISTS `FinanceYear` (' + 88 88 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 93 93 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 94 94 95 Core.Co mmonDatabase.Query(DbRows,95 Core.Core.CommonDatabase.Query(DbRows, 96 96 'CREATE TABLE IF NOT EXISTS `DocumentLine` (' + 97 97 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 102 102 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1; '); 103 103 104 Core.Co mmonDatabase.Query(DbRows,104 Core.Core.CommonDatabase.Query(DbRows, 105 105 'CREATE TABLE IF NOT EXISTS `DocumentLineSequence` (' + 106 106 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 114 114 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 115 115 116 Core.Co mmonDatabase.Query(DbRows,116 Core.Core.CommonDatabase.Query(DbRows, 117 117 'CREATE TABLE IF NOT EXISTS `FinanceBankAccount` (' + 118 118 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 123 123 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1; '); 124 124 125 Core.Co mmonDatabase.Query(DbRows,125 Core.Core.CommonDatabase.Query(DbRows, 126 126 'CREATE TABLE IF NOT EXISTS `FinanceBillingPeriod` (' + 127 127 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 144 144 try 145 145 DbRows := TDbRows.Create; 146 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `FinanceBillingPeriod`');147 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `FinanceBankAccount`');148 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `DocumentLine`');149 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `DocumentLineSequence`');150 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `FinanceTariff`');151 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `FinanceYear`');146 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `FinanceBillingPeriod`'); 147 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `FinanceBankAccount`'); 148 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `DocumentLine`'); 149 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `DocumentLineSequence`'); 150 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `FinanceTariff`'); 151 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `FinanceYear`'); 152 152 finally 153 153 DbRows.Free; -
trunk/Modules/Finance/PageFinance.pas
r145 r146 1 unit UPageFinance;1 unit PageFinance; 2 2 3 3 interface -
trunk/Modules/IS/ModuleIS.pas
r145 r146 1 unit UModuleIS;1 unit ModuleIS; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UModularSystem, USqlDatabase, UModuleBase, UGenerics;6 Classes, SysUtils, UModularSystem, USqlDatabase, ModuleBase, UGenerics; 7 7 8 8 type … … 27 27 28 28 uses 29 UCore, UPagePortal;29 Core, PagePortal; 30 30 31 31 { TModuleIS } … … 72 72 Data := TDictionaryStringString.Create; 73 73 74 Core.Co mmonDatabase.Query(DbRows,74 Core.Core.CommonDatabase.Query(DbRows, 75 75 'CREATE TABLE IF NOT EXISTS `User` (' + 76 76 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 91 91 Data.Add('Salt', ''); 92 92 Data.Add('Email', ''); 93 Core.Co mmonDatabase.Insert('User', Data);93 Core.Core.CommonDatabase.Insert('User', Data); 94 94 95 Core.Co mmonDatabase.Query(DbRows,95 Core.Core.CommonDatabase.Query(DbRows, 96 96 'CREATE TABLE IF NOT EXISTS `UserOnline` (' + 97 97 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 120 120 try 121 121 DbRows := TDbRows.Create; 122 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `User`');123 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `UserOnline`');122 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `User`'); 123 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `UserOnline`'); 124 124 finally 125 125 DbRows.Free; -
trunk/Modules/Network/ModuleNetwork.pas
r145 r146 1 unit UModuleNetwork;1 unit ModuleNetwork; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UModularSystem, UModuleBase, 7 UWebPage; 6 Classes, SysUtils, UModularSystem, ModuleBase, UWebPage; 8 7 9 8 type … … 29 28 30 29 uses 31 UCore, UPageNetwork, USqlDatabase;30 Core, PageNetwork, USqlDatabase; 32 31 33 32 { TModuleNetwork } … … 75 74 DbRows := TDbRows.Create; 76 75 77 Core.Co mmonDatabase.Query(DbRows,76 Core.Core.CommonDatabase.Query(DbRows, 78 77 'CREATE TABLE IF NOT EXISTS `NetworkConfiguration` (' + 79 78 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 89 88 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1; '); 90 89 91 Core.Co mmonDatabase.Query(DbRows,90 Core.Core.CommonDatabase.Query(DbRows, 92 91 'CREATE TABLE IF NOT EXISTS `NetworkDevice` (' + 93 92 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 110 109 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 111 110 112 Core.Co mmonDatabase.Query(DbRows,111 Core.Core.CommonDatabase.Query(DbRows, 113 112 'CREATE TABLE IF NOT EXISTS `NetworkInterface` (' + 114 113 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 127 126 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 128 127 129 Core.Co mmonDatabase.Query(DbRows,128 Core.Core.CommonDatabase.Query(DbRows, 130 129 'CREATE TABLE IF NOT EXISTS `NetworkInterfaceType` (' + 131 130 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 137 136 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 138 137 139 Core.Co mmonDatabase.Query(DbRows,138 Core.Core.CommonDatabase.Query(DbRows, 140 139 'CREATE TABLE IF NOT EXISTS `NetworkDeviceType` (' + 141 140 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 159 158 try 160 159 DbRows := TDbRows.Create; 161 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkInterfaceType`');162 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkInterface`');163 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkDeviceType`');164 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkDevice`');165 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkConfiguration`');160 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkInterfaceType`'); 161 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkInterface`'); 162 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkDeviceType`'); 163 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkDevice`'); 164 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NetworkConfiguration`'); 166 165 finally 167 166 DbRows.Free; -
trunk/Modules/Network/PageNetwork.pas
r145 r146 1 unit UPageNetwork;1 unit PageNetwork; 2 2 3 3 interface -
trunk/Modules/News/ModuleNews.pas
r145 r146 1 unit UModuleNews;1 unit ModuleNews; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UModularSystem, UModuleBase, UNews, UHTTPServer, UModuleUser;6 Classes, SysUtils, UModularSystem, ModuleBase, News, UHTTPServer, ModuleUser; 7 7 8 8 type … … 27 27 28 28 uses 29 UCore, UUserControlPage, USqlDatabase;29 Core, UserControlPage, USqlDatabase; 30 30 31 31 { TModuleNews } … … 83 83 DbRows := TDbRows.Create; 84 84 85 Core.Co mmonDatabase.Query(DbRows,85 Core.Core.CommonDatabase.Query(DbRows, 86 86 'CREATE TABLE IF NOT EXISTS `News` (' + 87 87 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 103 103 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 104 104 105 Core.Co mmonDatabase.Query(DbRows,105 Core.Core.CommonDatabase.Query(DbRows, 106 106 'CREATE TABLE IF NOT EXISTS `NewsCategory` (' + 107 107 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 116 116 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1; '); 117 117 118 Core.Co mmonDatabase.Query(DbRows,118 Core.Core.CommonDatabase.Query(DbRows, 119 119 'ALTER TABLE `News`' + 120 120 ' ADD CONSTRAINT `News_ibfk_1` FOREIGN KEY (`Category`) REFERENCES `NewsCategory` (`Id`);'); … … 133 133 DbRows := TDbRows.Create; 134 134 135 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `News`');136 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NewsGroup`');135 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `News`'); 136 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `NewsGroup`'); 137 137 finally 138 138 DbRows.Free; -
trunk/Modules/News/News.pas
r145 r146 1 unit UNews;1 unit News; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, USqlDatabase, UModuleUser, UUtils, Generics.Collections, UWebSession,7 UHTTPServer, UModuleBase, UCommon;6 Classes, SysUtils, USqlDatabase, ModuleUser, Utils, Generics.Collections, WebSession, 7 UHTTPServer, ModuleBase, UCommon; 8 8 9 9 type -
trunk/Modules/Portal/ModulePortal.pas
r145 r146 1 unit UModulePortal;1 unit ModulePortal; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UModularSystem, USqlDatabase, U Utils, UWebSession, UUser,7 UWebPage, UHtmlClasses, UModuleBase, UModuleUser, UModuleNews, UGenerics;6 Classes, SysUtils, UModularSystem, USqlDatabase, Utils, WebSession, User, 7 UWebPage, UHtmlClasses, ModuleBase, ModuleUser, ModuleNews, UGenerics; 8 8 9 9 type … … 34 34 35 35 uses 36 UCore, UPagePortal;36 Core, PagePortal; 37 37 38 38 { TModulePortal } … … 86 86 DbRows := TDbRows.Create; 87 87 88 Core.Co mmonDatabase.Query(DbRows,88 Core.Core.CommonDatabase.Query(DbRows, 89 89 'CREATE TABLE IF NOT EXISTS `Panel` (' + 90 90 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 97 97 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 98 98 99 Core.Co mmonDatabase.Query(DbRows,99 Core.Core.CommonDatabase.Query(DbRows, 100 100 'CREATE TABLE IF NOT EXISTS `PanelColumn` (' + 101 101 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 104 104 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 105 105 106 Core.Co mmonDatabase.Query(DbRows,106 Core.Core.CommonDatabase.Query(DbRows, 107 107 'ALTER TABLE `Panel`' + 108 108 ' ADD CONSTRAINT `Panel_ibfk_1` FOREIGN KEY (`PanelColumn`) REFERENCES `panelcolumn` (`Id`);'); 109 109 110 Core.Co mmonDatabase.Query(DbRows,110 Core.Core.CommonDatabase.Query(DbRows, 111 111 'CREATE TABLE IF NOT EXISTS `HyperlinkGroup` (' + 112 112 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 115 115 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 116 116 117 Core.Co mmonDatabase.Query(DbRows,117 Core.Core.CommonDatabase.Query(DbRows, 118 118 'CREATE TABLE IF NOT EXISTS `Hyperlink` (' + 119 119 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 130 130 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 131 131 132 Core.Co mmonDatabase.Query(DbRows,132 Core.Core.CommonDatabase.Query(DbRows, 133 133 'ALTER TABLE `Hyperlink`' + 134 134 ' ADD CONSTRAINT `Hyperlink_ibfk_1` FOREIGN KEY (`Group`) REFERENCES `hyperlinkgroup` (`Id`);'); … … 147 147 try 148 148 DbRows := TDbRows.Create; 149 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Panel`');150 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PanelColumn`');151 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Hyperlink`');152 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `HyperlinkGroup`');149 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Panel`'); 150 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PanelColumn`'); 151 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Hyperlink`'); 152 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `HyperlinkGroup`'); 153 153 finally 154 154 DbRows.Free; … … 185 185 //PathTreeItem := PathTree; 186 186 //Navigation := '<a href="' + NavigationLink(PathTreePath) + '">' + PathTreeItem[0] + '</a> > '; 187 ScriptName := Copy(ScriptName, Length(Core. BaseURL), Length(ScriptName));187 ScriptName := Copy(ScriptName, Length(Core.Core.BaseURL), Length(ScriptName)); 188 188 ScriptNameParts.Explode('/', ScriptName); 189 189 ScriptNameParts.Delete(0); … … 210 210 //if(isset($this->Load)) BodyParam := BodyParam + ' onload="'.$this->Load.'"'; 211 211 //if(isset($this->Unload)) BodyParam := BodyParam + ' onunload="'.$this->Unload.'"'; 212 Output := '<?xml version="1.0" encoding="' + Core.C harset + '"?>' + LineEnding +212 Output := '<?xml version="1.0" encoding="' + Core.Core.Charset + '"?>' + LineEnding + 213 213 '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">' + 214 214 '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="cs" lang="cs">' + 215 '<head><link rel="stylesheet" href="' + NavigationLink('/style/' + Core. Style + '/style.css') + '" type="text/css" media="all" />' +216 '<meta http-equiv="content-type" content="application/xhtml+xml; charset=' + Core.C harset + '" />' +217 '<script type="text/javascript" src="' + Core. BaseURL + '/style/' +Core.Style + '/global.js"></script>' +215 '<head><link rel="stylesheet" href="' + NavigationLink('/style/' + Core.Core.Style + '/style.css') + '" type="text/css" media="all" />' + 216 '<meta http-equiv="content-type" content="application/xhtml+xml; charset=' + Core.Core.Charset + '" />' + 217 '<script type="text/javascript" src="' + Core.Core.BaseURL + '/style/' + Core.Core.Style + '/global.js"></script>' + 218 218 '<title>' + Session.GlobalTitle + ' - ' + Path + '</title>' + 219 219 '</head><body' + BodyParam + '>' + … … 275 275 //Time := Round(Now - $ScriptTimeStart, 2); 276 276 Result := Result + '<div id="Footer">' + 277 '<i>| Správa webu: ' + Core. Admin + ' | e-mail: ' +Core.AdminEmail + ' |';277 '<i>| Správa webu: ' + Core.Core.Admin + ' | e-mail: ' + Core.Core.AdminEmail + ' |'; 278 278 // if Core.ShowRuntimeInfo then Output := Output + ' Doba generování: ' + 279 279 // Time + ' s / ' + ini_get('max_execution_time') + ' s | Použitá paměť: ' + -
trunk/Modules/Portal/PagePortal.pas
r145 r146 1 unit UPagePortal;1 unit PagePortal; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, USqlDatabase, U Utils,7 UGenerics, UWebSession, UHtmlClasses, UModularSystem, UModuleUser,8 UModuleNews;6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, USqlDatabase, Utils, 7 UGenerics, WebSession, UHtmlClasses, UModularSystem, ModuleUser, 8 ModuleNews; 9 9 10 10 type … … 37 37 38 38 uses 39 UCore, UWebObjects, UUser;39 Core, WebObjects, User; 40 40 41 41 function TWebPagePortal.SystemMessage(Title, Text: string): string; -
trunk/Modules/System/ModuleSystem.pas
r145 r146 1 unit UModuleSystem;1 unit ModuleSystem; 2 2 3 3 interface … … 28 28 29 29 uses 30 UCore, USqlDatabase;30 Core, USqlDatabase; 31 31 32 32 { TModuleSystem } … … 42 42 if Module.Installed then Data.Add('Installed', '1') 43 43 else Data.Add('Installed', '0'); 44 Core.Co mmonDatabase.Update('SystemModule', Data, 'Name="' + Module.Identification + '"');44 Core.Core.CommonDatabase.Update('SystemModule', Data, 'Name="' + Module.Identification + '"'); 45 45 finally 46 46 Data.Free; … … 72 72 try 73 73 DbRows := TDbRows.Create; 74 Core.Co mmonDatabase.Select(DbRows, 'SystemModule', '`Name`, `Installed`');74 Core.Core.CommonDatabase.Select(DbRows, 'SystemModule', '`Name`, `Installed`'); 75 75 for I := 0 to DbRows.Count - 1 do 76 76 with DbRows[I] do begin … … 100 100 try 101 101 DbRows := TDbRows.Create; 102 Core.Co mmonDatabase.Query(DbRows,102 Core.Core.CommonDatabase.Query(DbRows, 103 103 'CREATE TABLE IF NOT EXISTS `SystemModule` (' + 104 104 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 127 127 try 128 128 DbRows := TDbRows.Create; 129 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `SystemModule`');129 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `SystemModule`'); 130 130 finally 131 131 DbRows.Free; … … 149 149 Data := TDictionaryStringString.Create; 150 150 151 Core.Co mmonDatabase.Select(DbRows, 'SystemModule', 'Name');151 Core.Core.CommonDatabase.Select(DbRows, 'SystemModule', 'Name'); 152 152 153 153 for I := 0 to Manager.Modules.Count - 1 do … … 166 166 Index := 0; 167 167 while (Index < DbRows.Count) and (DbRows[Index].Items['Name'] <> Identification) do Inc(Index); 168 if Index >= DbRows.Count then Core.Co mmonDatabase.Insert('SystemModule', Data)169 else Core.Co mmonDatabase.Update('SystemModule', Data, 'Name="' + Identification + '"');168 if Index >= DbRows.Count then Core.Core.CommonDatabase.Insert('SystemModule', Data) 169 else Core.Core.CommonDatabase.Update('SystemModule', Data, 'Name="' + Identification + '"'); 170 170 end; 171 171 finally -
trunk/Modules/TV/ModuleTV.pas
r145 r146 1 unit UModuleTV;1 unit ModuleTV; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UModularSystem, UModuleBase, UWebPage;6 Classes, SysUtils, UModularSystem, ModuleBase, UWebPage; 7 7 8 8 type … … 28 28 29 29 uses 30 UCore, UPageTV, USqlDatabase;30 Core, PageTV, USqlDatabase; 31 31 32 32 { TModuleTV } … … 73 73 DbRows := TDbRows.Create; 74 74 75 Core.Co mmonDatabase.Query(DbRows,75 Core.Core.CommonDatabase.Query(DbRows, 76 76 'CREATE TABLE IF NOT EXISTS `TV` (' + 77 77 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 102 102 try 103 103 DbRows := TDbRows.Create; 104 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `TV`');104 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `TV`'); 105 105 finally 106 106 DbRows.Free; -
trunk/Modules/TV/PageTV.pas
r145 r146 1 unit UPageTV;1 unit PageTV; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, USqlDatabase, UHtmlClasses, 7 U Utils, UModuleUser;7 Utils, ModuleUser; 8 8 9 9 type … … 29 29 30 30 uses 31 UCore, UWebSession;31 Core, WebSession; 32 32 33 33 { TWebPageTV } -
trunk/Modules/TV/Playlist.pas
r145 r146 1 unit UPlaylist;1 unit Playlist; 2 2 3 3 interface -
trunk/Modules/User/ModuleUser.pas
r145 r146 1 unit UModuleUser;1 unit ModuleUser; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UModularSystem, U User, UModuleBase, UWebPage;6 Classes, SysUtils, UModularSystem, User, ModuleBase, UWebPage; 7 7 8 8 type … … 30 30 31 31 uses 32 UCore, USqlDatabase, UUserControlPage;32 Core, USqlDatabase, UserControlPage; 33 33 34 34 { TModuleUser } … … 84 84 DbRows := TDbRows.Create; 85 85 86 Core.Co mmonDatabase.Query(DbRows,86 Core.Core.CommonDatabase.Query(DbRows, 87 87 'CREATE TABLE IF NOT EXISTS `User` (' + 88 88 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 96 96 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;'); 97 97 98 Core.Co mmonDatabase.Query(DbRows,98 Core.Core.CommonDatabase.Query(DbRows, 99 99 'CREATE TABLE IF NOT EXISTS `UserOnline` (' + 100 100 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 110 110 ') ENGINE=MEMORY DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 111 111 112 Core.Co mmonDatabase.Query(DbRows,112 Core.Core.CommonDatabase.Query(DbRows, 113 113 'CREATE TABLE IF NOT EXISTS `PermissionGroup` (' + 114 114 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 117 117 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 118 118 119 Core.Co mmonDatabase.Query(DbRows,119 Core.Core.CommonDatabase.Query(DbRows, 120 120 'CREATE TABLE IF NOT EXISTS `PermissionGroupAssignment` (' + 121 121 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 129 129 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 130 130 131 Core.Co mmonDatabase.Query(DbRows,131 Core.Core.CommonDatabase.Query(DbRows, 132 132 'CREATE TABLE IF NOT EXISTS `PermissionOperation` (' + 133 133 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 143 143 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 144 144 145 Core.Co mmonDatabase.Query(DbRows,145 Core.Core.CommonDatabase.Query(DbRows, 146 146 ' CREATE TABLE IF NOT EXISTS `PermissionUserAssignment` (' + 147 147 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 155 155 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 156 156 157 Core.Co mmonDatabase.Query(DbRows,157 Core.Core.CommonDatabase.Query(DbRows, 158 158 'ALTER TABLE `PermissionGroupAssignment`' + 159 159 ' ADD CONSTRAINT `PermissionGroupAssignment_ibfk_1` FOREIGN KEY (`Group`) REFERENCES `permissiongroup` (`Id`),' + … … 161 161 ' ADD CONSTRAINT `PermissionGroupAssignment_ibfk_3` FOREIGN KEY (`AssignedOperation`) REFERENCES `permissionoperation` (`Id`);'); 162 162 163 Core.Co mmonDatabase.Query(DbRows,163 Core.Core.CommonDatabase.Query(DbRows, 164 164 'ALTER TABLE `PermissionUserAssignment`' + 165 165 ' ADD CONSTRAINT `PermissionUserAssignment_ibfk_1` FOREIGN KEY (`User`) REFERENCES `user` (`Id`),' + … … 180 180 DbRows := TDbRows.Create; 181 181 182 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PermissionUserAssignment`');183 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PermissionGroupAssignment`');184 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PermissionGroup`');185 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PermissionOperation`');186 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `User`');187 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `UserOnline`');182 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PermissionUserAssignment`'); 183 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PermissionGroupAssignment`'); 184 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PermissionGroup`'); 185 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `PermissionOperation`'); 186 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `User`'); 187 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `UserOnline`'); 188 188 finally 189 189 DbRows.Free; -
trunk/Modules/User/User.pas
r145 r146 1 unit U User;1 unit User; 2 2 3 3 interface -
trunk/Modules/User/UserControlPage.pas
r145 r146 1 unit U UserControlPage;1 unit UserControlPage; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UXmlClasses, 7 UWebObjects, UModuleUser, UModuleBase;7 WebObjects, ModuleUser, ModuleBase; 8 8 9 9 type … … 32 32 33 33 uses 34 UCore, UUtils, UUser, UWebSession;34 Core, Utils, User, WebSession; 35 35 36 36 { TUserControlPage } … … 63 63 UserId: Integer; 64 64 begin 65 with TWebSession(HandlerData), Core , HtmlDocument.Body do begin65 with TWebSession(HandlerData), Core.Core, HtmlDocument.Body do begin 66 66 Form := TQueryForm.Create; 67 67 with Form do begin … … 108 108 UserId: Integer; 109 109 begin 110 with TWebSession(HandlerData), Core , HtmlDocument.Body do begin110 with TWebSession(HandlerData), Core.Core, HtmlDocument.Body do begin 111 111 Form := TQueryForm.Create; 112 112 with Form do begin … … 162 162 procedure TUserControlPage.HandleLogout(HandlerData: THTTPHandlerData); 163 163 begin 164 with TWebSession(HandlerData), Core , HtmlDocument.Body do begin164 with TWebSession(HandlerData), Core.Core, HtmlDocument.Body do begin 165 165 ModuleUser.UserOnline.Logout; 166 166 with SubItems.AddString do -
trunk/Modules/ZdechovNET/AboutPage.pas
r145 r146 1 unit UAboutPage;1 unit AboutPage; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UModuleUser;6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser; 7 7 8 8 type … … 25 25 26 26 uses 27 UCore, UUtils, UWebSession, USqlDatabase;27 Core, Utils, WebSession, USqlDatabase; 28 28 29 29 { TAboutPage } -
trunk/Modules/ZdechovNET/ContactPage.pas
r145 r146 1 unit UContactPage;1 unit ContactPage; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UModuleUser;6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser; 7 7 8 8 type … … 25 25 26 26 uses 27 UCore, UWebSession;27 Core, WebSession; 28 28 29 29 procedure TContactPage.DataModuleProduce(HandlerData: THTTPHandlerData); -
trunk/Modules/ZdechovNET/DocumentsPage.pas
r145 r146 1 unit UDocumentsPage;1 unit DocumentsPage; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UModuleUser;6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser; 7 7 8 8 type … … 25 25 26 26 uses 27 UCore, UUtils, UWebSession;27 Core, Utils, WebSession; 28 28 29 29 { TDocumentsPage } -
trunk/Modules/ZdechovNET/HistoryPage.pas
r145 r146 1 unit UHistoryPage;1 unit HistoryPage; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, USqlDatabase, 7 UModuleUser;7 ModuleUser; 8 8 9 9 type … … 26 26 27 27 uses 28 UCore, UUtils, UWebSession;28 Core, Utils, WebSession; 29 29 30 30 { THistoryPage } -
trunk/Modules/ZdechovNET/HostingPage.pas
r145 r146 1 unit UHostingPage;1 unit HostingPage; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, USqlDatabase, UHtmlClasses, 7 UModuleUser;7 ModuleUser; 8 8 9 9 type … … 26 26 27 27 uses 28 UCore, UWebSession;28 Core, WebSession; 29 29 30 30 { THostingPage } -
trunk/Modules/ZdechovNET/IPTVPage.pas
r145 r146 1 unit UIPTVPage;1 unit IPTVPage; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UModuleUser,6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, ModuleUser, 7 7 Generics.Collections; 8 8 … … 44 44 45 45 uses 46 UCore, UHtmlClasses, UWebSession;46 Core, UHtmlClasses, WebSession; 47 47 48 48 { TChannels } -
trunk/Modules/ZdechovNET/InternetPage.lfm
r145 r146 1 1 object InternetPage: TInternetPage 2 2 OldCreateOrder = False 3 Raw = False 3 4 Caption = 'Internet' 4 5 OnProduce = DataModuleProduce -
trunk/Modules/ZdechovNET/InternetPage.pas
r145 r146 1 unit UInternetPage;1 unit InternetPage; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UModuleUser;6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, ModuleUser; 7 7 8 8 type … … 25 25 26 26 uses 27 UCore, UHtmlClasses, UWebSession;27 Core, UHtmlClasses, WebSession; 28 28 29 29 { TInternetPage } … … 45 45 '<table class="WideTable">' + 46 46 '<tr><th>Označení</th><th>Minimální rychlost</th><th>Běžně dostupná rychlost</th><th>Maximální rychlost</th><th>Bonusová rychlost</th><th>Cena</th></tr>' + 47 '<tr><td>Zdarma</td><td align="center">0</td><td align="center"> </td><td align="center"> 256 kbit/s</td><td align="center"> </td><td align="center">0 Kč</td></tr>' +48 '<tr><td>Internet 20M</td><td align="center">6 Mbit/s</td><td align="center">12 Mbit/s</td><td align="center">20 Mbit/s</td><td align="center">240 Mbit/s</td><td align="center">190 Kč</td></tr>' +49 '<tr><td>Internet 40M</td><td align="center">12 Mbit/s</td><td align="center">24 Mbit/s</td><td align="center">40 Mbit/s</td><td align="center">240 Mbit/s</td><td align="center">260 Kč</td></tr>' +50 '<tr><td>Internet 60M</td><td align="center">18 Mbit/s</td><td align="center">36 Mbit/s</td><td align="center">60 Mbit/s</td><td align="center">240 Mbit/s</td><td align="center">360 Kč</td></tr>' +51 '<tr><td>Internet 80M</td><td align="center">24 Mbit/s</td><td align="center">48 Mbit/s</td><td align="center">80 Mbit/s</td><td align="center">240 Mbit/s</td><td align="center">520 Kč</td></tr>' +52 '<tr><td>Internet 100M</td><td align="center">30 Mbit/s</td><td align="center">60 Mbit/s</td><td align="center">100 Mbit/s</td><td align="center">240 Mbit/s</td><td align="center">750 Kč</td></tr>' +47 '<tr><td>Zdarma</td><td align="center">0</td><td align="center"> </td><td align="center">1 Mbit/s</td><td align="center"> </td><td align="center">0 Kč</td></tr>' + 48 '<tr><td>Internet 50M</td><td align="center">16 Mbit/s</td><td align="center">30 Mbit/s</td><td align="center">50 Mbit/s</td><td align="center">250 Mbit/s</td><td align="center">190 Kč</td></tr>' + 49 '<tr><td>Internet 100M</td><td align="center">30 Mbit/s</td><td align="center">60 Mbit/s</td><td align="center">100 Mbit/s</td><td align="center">250 Mbit/s</td><td align="center">260 Kč</td></tr>' + 50 '<tr><td>Internet 150M</td><td align="center">45 Mbit/s</td><td align="center">90 Mbit/s</td><td align="center">150 Mbit/s</td><td align="center">250 Mbit/s</td><td align="center">360 Kč</td></tr>' + 51 '<tr><td>Internet 200M</td><td align="center">60 Mbit/s</td><td align="center">120 Mbit/s</td><td align="center">200 Mbit/s</td><td align="center">250 Mbit/s</td><td align="center">520 Kč</td></tr>' + 52 '<tr><td>Internet 250M</td><td align="center">75 Mbit/s</td><td align="center">150 Mbit/s</td><td align="center">250 Mbit/s</td><td align="center">250 Mbit/s</td><td align="center">750 Kč</td></tr>' + 53 53 '</table>' + 54 54 '<br/>' + … … 58 58 'Bonusová rychlost je negarantovaná rychlost ze společné sdílené kapacity, na kterou může rychlost stoupnout nad rámec maximální rychlosti.<br/>' + 59 59 '<br/>' + 60 '<i>Ceny platné od: 1.1.202 1</i><br/>' +60 '<i>Ceny platné od: 1.1.2024</i><br/>' + 61 61 '<br/>' + 62 62 '<strong>Maximální rychlosti pro jednotlivé technologie:</strong><br/>' + 63 63 '<ul>' + 64 64 '<li>Kabelové připojení Ethernet - 100 Mbit/s nebo 1 Gbit/s</li>' + 65 '<li>Bezdrátové připojení Wifi 802.11g - 20 Mbit/s</li>' + 66 '<li>Bezdrátové připojení Wifi 802.11n - 100 Mbit/s</li>' + 67 '<li>Bezdrátové připojení Wifi 802.11ac - 200 Mbit/s</li>' + 65 '<li>Bezdrátové připojení Wifi 2,4 GHz (802.11g) - 20 Mbit/s</li>' + 66 '<li>Bezdrátové připojení Wifi 5 GHz (802.11n) - 100 Mbit/s</li>' + 67 '<li>Bezdrátové připojení Wifi 5 GHz (802.11ac) - 200 Mbit/s</li>' + 68 '<li>Bezdrátové připojení Wifi 60 GHz (802.11ad) - 1000 Mbit/s</li>' + 68 69 '</ul>' + 69 70 'Podle minimální a maximální rychlosti se také určuje poměrově přerozdělení sdílené rychlosti při vytížené lince. ' + … … 77 78 '<i>V případě velkých odchylek od běžně dostupné rychlosti stahování nebo vkládání dat, má účastník právo službu reklamovat.</i><br/>' + 78 79 '<br/>' + 79 'Aktualizováno: 1.1.202 3';80 'Aktualizováno: 1.1.2024'; 80 81 end; 81 82 GeneratePage(Self); -
trunk/Modules/ZdechovNET/LinksPage.pas
r145 r146 1 unit ULinksPage;1 unit LinksPage; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UModuleUser;6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser; 7 7 8 8 type … … 25 25 26 26 uses 27 UCore, UWebSession;27 Core, WebSession; 28 28 29 29 { TLinksPage } -
trunk/Modules/ZdechovNET/ModuleZdechovNET.pas
r145 r146 1 unit UModuleZdechovNET;1 unit ModuleZdechovNET; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, UModularSystem, UWebPage, URobotsPage,7 UWebSession, DateUtils, UModuleBase, UModuleUser, UIPTVPage,8 UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,9 ULinksPage, UPlansPage, UServerInfoPage, UWebCamPage, UUser,10 UNetworkPage, UAboutPage, UContactPage, UProjectsPage;6 Classes, SysUtils, UModularSystem, UWebPage, RobotsPage, 7 WebSession, DateUtils, ModuleBase, ModuleUser, IPTVPage, 8 InternetPage, HostingPage, HistoryPage, DocumentsPage, VoIPPage, 9 LinksPage, PlansPage, ServerInfoPage, WebCamPage, User, 10 NetworkPage, AboutPage, ContactPage, ProjectsPage; 11 11 12 12 type … … 49 49 50 50 uses 51 UCore, USqlDatabase, UXmlClasses, UHtmlClasses, UUtils;51 Core, USqlDatabase, UXmlClasses, UHtmlClasses, Utils; 52 52 53 53 { TModuleZdechovNET } … … 169 169 DbRows := TDbRows.Create; 170 170 171 Core.Co mmonDatabase.Query(DbRows,171 Core.Core.CommonDatabase.Query(DbRows, 172 172 'CREATE TABLE IF NOT EXISTS `VPSHosting` (' + 173 173 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 181 181 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;'); 182 182 183 Core.Co mmonDatabase.Query(DbRows,183 Core.Core.CommonDatabase.Query(DbRows, 184 184 'CREATE TABLE IF NOT EXISTS `History` (' + 185 185 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 189 189 ') ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 190 190 191 Core.Co mmonDatabase.Query(DbRows,191 Core.Core.CommonDatabase.Query(DbRows, 192 192 'CREATE TABLE IF NOT EXISTS `Webcam` (' + 193 193 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 204 204 ') ENGINE=MyISAM DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;'); 205 205 206 Core.Co mmonDatabase.Query(DbRows,206 Core.Core.CommonDatabase.Query(DbRows, 207 207 ' CREATE TABLE IF NOT EXISTS `Plans` (' + 208 208 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 217 217 ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;'); 218 218 219 Core.Co mmonDatabase.Query(DbRows,219 Core.Core.CommonDatabase.Query(DbRows, 220 220 'CREATE TABLE IF NOT EXISTS `HostedProject` (' + 221 221 ' `Id` int(11) NOT NULL AUTO_INCREMENT,' + … … 245 245 try 246 246 DbRows := TDbRows.Create; 247 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `HostedProject`');248 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Plans`');249 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Webcam`');250 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `VPSHosting`');251 Core.Co mmonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `History`');247 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `HostedProject`'); 248 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Plans`'); 249 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Webcam`'); 250 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `VPSHosting`'); 251 Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `History`'); 252 252 finally 253 253 DbRows.Free; -
trunk/Modules/ZdechovNET/NetworkPage.pas
r145 r146 1 unit UNetworkPage;1 unit NetworkPage; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UModuleUser;6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser; 7 7 8 8 type … … 25 25 26 26 uses 27 UCore, UUtils, UWebSession;27 Core, Utils, WebSession; 28 28 29 29 { TNetworkPage } -
trunk/Modules/ZdechovNET/PlansPage.pas
r145 r146 1 unit UPlansPage;1 unit PlansPage; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, UWebPage, UHtmlClasses, UHTTPServer, USqlDatabase, 7 UModuleUser;7 ModuleUser; 8 8 9 9 type … … 26 26 27 27 uses 28 UCore, UWebSession;28 Core, WebSession; 29 29 30 30 { TPlansPage } -
trunk/Modules/ZdechovNET/ProjectsPage.pas
r145 r146 1 unit UProjectsPage;1 unit ProjectsPage; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, UWebPage, UHtmlClasses, UHTTPServer, USqlDatabase, 7 UModuleUser;7 ModuleUser; 8 8 9 9 type … … 26 26 27 27 uses 28 UCore, UWebSession;28 Core, WebSession; 29 29 30 30 { TProjectsPage } -
trunk/Modules/ZdechovNET/RobotsPage.pas
r145 r146 1 unit URobotsPage;1 unit RobotsPage; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UModuleUser;6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser; 7 7 8 8 type … … 25 25 26 26 uses 27 UCore, UUtils, UWebSession, USqlDatabase;27 Core, Utils, WebSession, USqlDatabase; 28 28 29 29 { TRobotsPage } -
trunk/Modules/ZdechovNET/VoIPPage.lfm
r145 r146 1 1 object VoIPPage: TVoIPPage 2 2 OldCreateOrder = False 3 Raw = False 3 4 Caption = 'VoIP' 4 5 OnProduce = DataModuleProduce -
trunk/Modules/ZdechovNET/VoIPPage.pas
r145 r146 1 unit UVoIPPage;1 unit VoIPPage; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UHtmlClasses, UHTTPServer, UModuleUser;6 Classes, SysUtils, FileUtil, UWebPage, UHtmlClasses, UHTTPServer, ModuleUser; 7 7 8 8 type … … 25 25 26 26 uses 27 UCore, UWebSession;27 Core, WebSession; 28 28 29 29 { TVoIPPage } -
trunk/Modules/ZdechovNET/WebCamPage.pas
r145 r146 1 unit UWebCamPage;1 unit WebCamPage; 2 2 3 3 interface … … 5 5 uses 6 6 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, USqlDatabase, 7 UModuleUser, DateUtils;7 ModuleUser, DateUtils; 8 8 9 9 type … … 32 32 33 33 uses 34 UCore, UUtils, UWebSession;34 Core, Utils, WebSession; 35 35 36 36 -
trunk/Pages/PageAdmin.pas
r145 r146 1 unit UPageAdmin;1 unit PageAdmin; 2 2 3 3 interface … … 29 29 30 30 uses 31 UCore, UXmlClasses, UHtmlClasses, UUtils, USqlDatabase, UModularSystem,32 UModuleSystem, UWebSession;31 Core, UXmlClasses, UHtmlClasses, Utils, USqlDatabase, UModularSystem, 32 ModuleSystem, WebSession; 33 33 34 34 {$R *.lfm} -
trunk/Pages/PageNotFound.pas
r145 r146 1 unit UPageNotFound;1 unit PageNotFound; 2 2 3 3 interface … … 23 23 24 24 uses 25 UWebSession;25 WebSession; 26 26 27 27 { TPageNotFound } -
trunk/Pages/ServerInfoPage.pas
r145 r146 1 unit UServerInfoPage;1 unit ServerInfoPage; 2 2 3 3 interface 4 4 5 5 uses 6 Classes, SysUtils, FileUtil, UWebPage, UWebApp, UHTTPServer, UModuleUser;6 Classes, SysUtils, FileUtil, UWebPage, UWebApp, UHTTPServer, ModuleUser; 7 7 8 8 type … … 25 25 26 26 uses 27 UCore, UWebSession;27 Core, WebSession; 28 28 29 29 { TServerInfoPage } -
trunk/ZdechovNET.lpi
r143 r146 124 124 </Unit0> 125 125 <Unit1> 126 <Filename Value="Common/U Utils.pas"/>126 <Filename Value="Common/Utils.pas"/> 127 127 <IsPartOfProject Value="True"/> 128 128 </Unit1> 129 129 <Unit2> 130 <Filename Value="Application/ UWebObjects.pas"/>130 <Filename Value="Application/WebObjects.pas"/> 131 131 <IsPartOfProject Value="True"/> 132 132 </Unit2> 133 133 <Unit3> 134 <Filename Value="Pages/ UServerInfoPage.pas"/>134 <Filename Value="Pages/ServerInfoPage.pas"/> 135 135 <IsPartOfProject Value="True"/> 136 136 <ComponentName Value="ServerInfoPage"/> … … 143 143 </Unit4> 144 144 <Unit5> 145 <Filename Value="Modules/User/ UModuleUser.pas"/>145 <Filename Value="Modules/User/ModuleUser.pas"/> 146 146 <IsPartOfProject Value="True"/> 147 147 </Unit5> 148 148 <Unit6> 149 <Filename Value=" UCore.pas"/>149 <Filename Value="Core.pas"/> 150 150 <IsPartOfProject Value="True"/> 151 151 <ComponentName Value="Core"/> … … 154 154 </Unit6> 155 155 <Unit7> 156 <Filename Value="Modules/User/U UserControlPage.pas"/>156 <Filename Value="Modules/User/UserControlPage.pas"/> 157 157 <IsPartOfProject Value="True"/> 158 158 <ComponentName Value="UserControlPage"/> … … 161 161 </Unit7> 162 162 <Unit8> 163 <Filename Value="Modules/System/ UModuleSystem.pas"/>163 <Filename Value="Modules/System/ModuleSystem.pas"/> 164 164 <IsPartOfProject Value="True"/> 165 165 </Unit8> 166 166 <Unit9> 167 <Filename Value="Pages/ UPageAdmin.pas"/>167 <Filename Value="Pages/PageAdmin.pas"/> 168 168 <IsPartOfProject Value="True"/> 169 169 <ComponentName Value="PageAdmin"/> … … 172 172 </Unit9> 173 173 <Unit10> 174 <Filename Value="Modules/ZdechovNET/ UModuleZdechovNET.pas"/>174 <Filename Value="Modules/ZdechovNET/ModuleZdechovNET.pas"/> 175 175 <IsPartOfProject Value="True"/> 176 176 </Unit10> 177 177 <Unit11> 178 <Filename Value="Modules/ZdechovNET/ UAboutPage.pas"/>178 <Filename Value="Modules/ZdechovNET/AboutPage.pas"/> 179 179 <IsPartOfProject Value="True"/> 180 180 <ComponentName Value="AboutPage"/> … … 183 183 </Unit11> 184 184 <Unit12> 185 <Filename Value="Modules/ZdechovNET/ UContactPage.pas"/>185 <Filename Value="Modules/ZdechovNET/ContactPage.pas"/> 186 186 <IsPartOfProject Value="True"/> 187 187 <ComponentName Value="ContactPage"/> … … 190 190 </Unit12> 191 191 <Unit13> 192 <Filename Value="Modules/ZdechovNET/ UDocumentsPage.pas"/>192 <Filename Value="Modules/ZdechovNET/DocumentsPage.pas"/> 193 193 <IsPartOfProject Value="True"/> 194 194 <HasResources Value="True"/> 195 195 </Unit13> 196 196 <Unit14> 197 <Filename Value="Modules/ZdechovNET/ UHistoryPage.pas"/>197 <Filename Value="Modules/ZdechovNET/HistoryPage.pas"/> 198 198 <IsPartOfProject Value="True"/> 199 199 <HasResources Value="True"/> 200 200 </Unit14> 201 201 <Unit15> 202 <Filename Value="Modules/ZdechovNET/ UHostingPage.pas"/>202 <Filename Value="Modules/ZdechovNET/HostingPage.pas"/> 203 203 <IsPartOfProject Value="True"/> 204 204 <ComponentName Value="HostingPage"/> … … 207 207 </Unit15> 208 208 <Unit16> 209 <Filename Value="Modules/ZdechovNET/ UInternetPage.pas"/>209 <Filename Value="Modules/ZdechovNET/InternetPage.pas"/> 210 210 <IsPartOfProject Value="True"/> 211 211 <ComponentName Value="InternetPage"/> … … 214 214 </Unit16> 215 215 <Unit17> 216 <Filename Value="Modules/ZdechovNET/ ULinksPage.pas"/>216 <Filename Value="Modules/ZdechovNET/LinksPage.pas"/> 217 217 <IsPartOfProject Value="True"/> 218 218 <ComponentName Value="LinksPage"/> … … 221 221 </Unit17> 222 222 <Unit18> 223 <Filename Value="Modules/ZdechovNET/ UNetworkPage.pas"/>223 <Filename Value="Modules/ZdechovNET/NetworkPage.pas"/> 224 224 <IsPartOfProject Value="True"/> 225 225 <ComponentName Value="NetworkPage"/> … … 228 228 </Unit18> 229 229 <Unit19> 230 <Filename Value="Modules/ZdechovNET/ UPlansPage.pas"/>230 <Filename Value="Modules/ZdechovNET/PlansPage.pas"/> 231 231 <IsPartOfProject Value="True"/> 232 232 <ComponentName Value="PlansPage"/> … … 235 235 </Unit19> 236 236 <Unit20> 237 <Filename Value="Modules/ZdechovNET/ UProjectsPage.pas"/>237 <Filename Value="Modules/ZdechovNET/ProjectsPage.pas"/> 238 238 <IsPartOfProject Value="True"/> 239 239 <ComponentName Value="ProjectsPage"/> … … 242 242 </Unit20> 243 243 <Unit21> 244 <Filename Value="Modules/ZdechovNET/ UVoIPPage.pas"/>244 <Filename Value="Modules/ZdechovNET/VoIPPage.pas"/> 245 245 <IsPartOfProject Value="True"/> 246 246 <ComponentName Value="VoIPPage"/> … … 249 249 </Unit21> 250 250 <Unit22> 251 <Filename Value="Modules/ZdechovNET/ UWebCamPage.pas"/>251 <Filename Value="Modules/ZdechovNET/WebCamPage.pas"/> 252 252 <IsPartOfProject Value="True"/> 253 253 <ComponentName Value="WebCamPage"/> … … 256 256 </Unit22> 257 257 <Unit23> 258 <Filename Value="Modules/TV/ UModuleTV.pas"/>258 <Filename Value="Modules/TV/ModuleTV.pas"/> 259 259 <IsPartOfProject Value="True"/> 260 260 </Unit23> 261 261 <Unit24> 262 <Filename Value="Modules/TV/ UPageTV.pas"/>262 <Filename Value="Modules/TV/PageTV.pas"/> 263 263 <IsPartOfProject Value="True"/> 264 264 <ComponentName Value="WebPageTV"/> … … 266 266 </Unit24> 267 267 <Unit25> 268 <Filename Value="Modules/TV/ UPlaylist.pas"/>268 <Filename Value="Modules/TV/Playlist.pas"/> 269 269 <IsPartOfProject Value="True"/> 270 270 </Unit25> 271 271 <Unit26> 272 <Filename Value="Modules/Finance/ UModuleFinance.pas"/>272 <Filename Value="Modules/Finance/ModuleFinance.pas"/> 273 273 <IsPartOfProject Value="True"/> 274 274 </Unit26> 275 275 <Unit27> 276 <Filename Value="Modules/Finance/ UPageFinance.pas"/>276 <Filename Value="Modules/Finance/PageFinance.pas"/> 277 277 <IsPartOfProject Value="True"/> 278 278 <ComponentName Value="WebPageFinance"/> … … 281 281 </Unit27> 282 282 <Unit28> 283 <Filename Value="Modules/Network/ UModuleNetwork.pas"/>283 <Filename Value="Modules/Network/ModuleNetwork.pas"/> 284 284 <IsPartOfProject Value="True"/> 285 285 </Unit28> 286 286 <Unit29> 287 <Filename Value="Modules/Network/ UPageNetwork.pas"/>287 <Filename Value="Modules/Network/PageNetwork.pas"/> 288 288 <IsPartOfProject Value="True"/> 289 289 <ComponentName Value="WebPageNetwork"/> … … 292 292 </Unit29> 293 293 <Unit30> 294 <Filename Value="Modules/Portal/ UModulePortal.pas"/>294 <Filename Value="Modules/Portal/ModulePortal.pas"/> 295 295 <IsPartOfProject Value="True"/> 296 296 </Unit30> 297 297 <Unit31> 298 <Filename Value="Modules/Portal/ UPagePortal.pas"/>298 <Filename Value="Modules/Portal/PagePortal.pas"/> 299 299 <IsPartOfProject Value="True"/> 300 300 <ComponentName Value="WebPagePortal"/> … … 303 303 </Unit31> 304 304 <Unit32> 305 <Filename Value="Modules/IS/ UModuleIS.pas"/>305 <Filename Value="Modules/IS/ModuleIS.pas"/> 306 306 <IsPartOfProject Value="True"/> 307 307 </Unit32> 308 308 <Unit33> 309 <Filename Value="Application/ UWebSession.pas"/>309 <Filename Value="Application/WebSession.pas"/> 310 310 <IsPartOfProject Value="True"/> 311 311 </Unit33> 312 312 <Unit34> 313 <Filename Value="Modules/User/U User.pas"/>313 <Filename Value="Modules/User/User.pas"/> 314 314 <IsPartOfProject Value="True"/> 315 315 </Unit34> 316 316 <Unit35> 317 <Filename Value="Modules/News/ UModuleNews.pas"/>317 <Filename Value="Modules/News/ModuleNews.pas"/> 318 318 <IsPartOfProject Value="True"/> 319 319 </Unit35> 320 320 <Unit36> 321 <Filename Value="Modules/Base/ UModuleBase.pas"/>321 <Filename Value="Modules/Base/ModuleBase.pas"/> 322 322 <IsPartOfProject Value="True"/> 323 323 </Unit36> 324 324 <Unit37> 325 <Filename Value="Modules/News/ UNews.pas"/>325 <Filename Value="Modules/News/News.pas"/> 326 326 <IsPartOfProject Value="True"/> 327 327 </Unit37> 328 328 <Unit38> 329 <Filename Value="Modules/ZdechovNET/ UIPTVPage.pas"/>329 <Filename Value="Modules/ZdechovNET/IPTVPage.pas"/> 330 330 <IsPartOfProject Value="True"/> 331 331 <ComponentName Value="IPTVPage"/> … … 334 334 </Unit38> 335 335 <Unit39> 336 <Filename Value="Modules/ZdechovNET/ URobotsPage.pas"/>336 <Filename Value="Modules/ZdechovNET/RobotsPage.pas"/> 337 337 <IsPartOfProject Value="True"/> 338 338 <ComponentName Value="RobotsPage"/> … … 341 341 </Unit39> 342 342 <Unit40> 343 <Filename Value="Pages/ UPageNotFound.pas"/>343 <Filename Value="Pages/PageNotFound.pas"/> 344 344 <IsPartOfProject Value="True"/> 345 345 <ComponentName Value="PageNotFound"/> -
trunk/ZdechovNET.lpr
r132 r146 7 7 cthreads, clocale, 8 8 {$ENDIF} 9 U Utils, USqlDatabase, SysUtils, Forms,10 U User, UHTTPSessionMySQL, UHTTPSessionFile, Printers,9 Utils, USqlDatabase, SysUtils, Forms, 10 User, UHTTPSessionMySQL, UHTTPSessionFile, Printers, 11 11 UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool, 12 UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UCore, UWebApp;12 UMemoryStreamEx, UMIMEType, UPageList, Interfaces, Core, UWebApp; 13 13 14 14 {$if declared(UseHeapTrace)} … … 25 25 with Application do begin 26 26 Initialize; 27 Core := TCore.Create(Application);28 Core. Run;27 Core.Core := TCore.Create(Application); 28 Core.Core.Run; 29 29 Run; 30 30 //Printer.RawMode := True; // Avoid printer finalization exception -
trunk/languages/index.cs.po
r130 r146 12 12 "X-Generator: Poedit 3.0\n" 13 13 14 #: uuser.scannotuseanonymous 14 #: user.scannotuseanonymous 15 #, fuzzy 16 msgctxt "user.scannotuseanonymous" 15 17 msgid "Cannot use anonymous user" 16 18 msgstr "Nelze použít anonymního uživatele" 17 19 18 #: uuser.sduplicateuseritem 19 #, object-pascal-format 20 #: user.sduplicateuseritem 21 #, object-pascal-format, fuzzy 22 msgctxt "user.sduplicateuseritem" 20 23 msgid "User name \"%s\" already used." 21 24 msgstr "Uživatelské jméno \"%s\" již použito." 22 25 23 #: uuser.semptyuserparameters 26 #: user.semptyuserparameters 27 #, fuzzy 28 msgctxt "user.semptyuserparameters" 24 29 msgid "Missing user parameters" 25 30 msgstr "Chybějící uživatelský parametr" 26 31 27 #: uuser.susernotfound 28 #, object-pascal-format 32 #: user.susernotfound 33 #, object-pascal-format, fuzzy 34 msgctxt "user.susernotfound" 29 35 msgid "User \"%s\" not found" 30 36 msgstr "Uživatel \"%s\" nebyl nalezen" 31 37 32 #: uwebsession.serror33 #, object-pascal-format 34 msgctxt " uwebsession.serror"38 #: websession.serror 39 #, object-pascal-format, fuzzy 40 msgctxt "websession.serror" 35 41 msgid "<div>Error: %s</div>" 36 42 msgstr "<div>Chyba: %s</div>" 43 -
trunk/languages/index.pot
r130 r146 2 2 msgstr "Content-Type: text/plain; charset=UTF-8" 3 3 4 #: uuser.scannotuseanonymous 4 #: user.scannotuseanonymous 5 msgctxt "user.scannotuseanonymous" 5 6 msgid "Cannot use anonymous user" 6 7 msgstr "" 7 8 8 #: u user.sduplicateuseritem9 #: user.sduplicateuseritem 9 10 #, object-pascal-format 11 msgctxt "user.sduplicateuseritem" 10 12 msgid "User name \"%s\" already used." 11 13 msgstr "" 12 14 13 #: uuser.semptyuserparameters 15 #: user.semptyuserparameters 16 msgctxt "user.semptyuserparameters" 14 17 msgid "Missing user parameters" 15 18 msgstr "" 16 19 17 #: u user.susernotfound20 #: user.susernotfound 18 21 #, object-pascal-format 22 msgctxt "user.susernotfound" 19 23 msgid "User \"%s\" not found" 20 24 msgstr "" 21 25 22 #: uwebsession.serror26 #: websession.serror 23 27 #, object-pascal-format 28 msgctxt "websession.serror" 24 29 msgid "<div>Error: %s</div>" 25 30 msgstr ""
Note:
See TracChangeset
for help on using the changeset viewer.