Changeset 146 for trunk/Modules/ZdechovNET

Timestamp:

Dec 29, 2023, 11:44:26 PM (11 months ago)

Author:

chronos

Message:

• Modified: Unit names without U prefix.

Location:

trunk/Modules/ZdechovNET

Files:

• AboutPage.lfm (moved) (moved from trunk/Modules/ZdechovNET/UAboutPage.lfm )
• AboutPage.lrs (moved) (moved from trunk/Modules/ZdechovNET/UAboutPage.lrs )
• AboutPage.pas (moved) (moved from trunk/Modules/ZdechovNET/UAboutPage.pas ) (2 diffs)
• ContactPage.lfm (moved) (moved from trunk/Modules/ZdechovNET/UContactPage.lfm )
• ContactPage.pas (moved) (moved from trunk/Modules/ZdechovNET/UContactPage.pas ) (2 diffs)
• DocumentsPage.lfm (moved) (moved from trunk/Modules/ZdechovNET/UDocumentsPage.lfm )
• DocumentsPage.pas (moved) (moved from trunk/Modules/ZdechovNET/UDocumentsPage.pas ) (2 diffs)
• HistoryPage.lfm (moved) (moved from trunk/Modules/ZdechovNET/UHistoryPage.lfm )
• HistoryPage.pas (moved) (moved from trunk/Modules/ZdechovNET/UHistoryPage.pas ) (3 diffs)
• HostingPage.lfm (moved) (moved from trunk/Modules/ZdechovNET/UHostingPage.lfm )
• HostingPage.pas (moved) (moved from trunk/Modules/ZdechovNET/UHostingPage.pas ) (3 diffs)
• IPTVPage.lfm (moved) (moved from trunk/Modules/ZdechovNET/UIPTVPage.lfm )
• IPTVPage.pas (moved) (moved from trunk/Modules/ZdechovNET/UIPTVPage.pas ) (2 diffs)
• InternetPage.lfm (moved) (moved from trunk/Modules/ZdechovNET/UInternetPage.lfm ) (1 diff)
• InternetPage.pas (moved) (moved from trunk/Modules/ZdechovNET/UInternetPage.pas ) (5 diffs)
• LinksPage.lfm (moved) (moved from trunk/Modules/ZdechovNET/ULinksPage.lfm )
• LinksPage.pas (moved) (moved from trunk/Modules/ZdechovNET/ULinksPage.pas ) (2 diffs)
• ModuleZdechovNET.pas (moved) (moved from trunk/Modules/ZdechovNET/UModuleZdechovNET.pas ) (8 diffs)
• NetworkPage.lfm (moved) (moved from trunk/Modules/ZdechovNET/UNetworkPage.lfm )
• NetworkPage.pas (moved) (moved from trunk/Modules/ZdechovNET/UNetworkPage.pas ) (2 diffs)
• PlansPage.lfm (moved) (moved from trunk/Modules/ZdechovNET/UPlansPage.lfm )
• PlansPage.pas (moved) (moved from trunk/Modules/ZdechovNET/UPlansPage.pas ) (3 diffs)
• ProjectsPage.lfm (moved) (moved from trunk/Modules/ZdechovNET/UProjectsPage.lfm )
• ProjectsPage.pas (moved) (moved from trunk/Modules/ZdechovNET/UProjectsPage.pas ) (3 diffs)
• RobotsPage.lfm (moved) (moved from trunk/Modules/ZdechovNET/URobotsPage.lfm )
• RobotsPage.pas (moved) (moved from trunk/Modules/ZdechovNET/URobotsPage.pas ) (2 diffs)
• VoIPPage.lfm (moved) (moved from trunk/Modules/ZdechovNET/UVoIPPage.lfm ) (1 diff)
• VoIPPage.pas (moved) (moved from trunk/Modules/ZdechovNET/UVoIPPage.pas ) (2 diffs)
• WebCamPage.lfm (moved) (moved from trunk/Modules/ZdechovNET/UWebCamPage.lfm )
• WebCamPage.pas (moved) (moved from trunk/Modules/ZdechovNET/UWebCamPage.pas ) (3 diffs)

trunk/Modules/ZdechovNET/AboutPage.pas

@@ -1 @@
-unit UAboutPage;
+unit AboutPage;
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UModuleUser;
+  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser;
 
 type
@@ -25 +25 @@
 
 uses
-  UCore, UUtils, UWebSession, USqlDatabase;
+  Core, Utils, WebSession, USqlDatabase;
 
 { TAboutPage }

trunk/Modules/ZdechovNET/ContactPage.pas

@@ -1 @@
-unit UContactPage;
+unit ContactPage;
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UModuleUser;
+  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser;
 
 type
@@ -25 +25 @@
 
 uses
-  UCore, UWebSession;
+  Core, WebSession;
 
 procedure TContactPage.DataModuleProduce(HandlerData: THTTPHandlerData);

trunk/Modules/ZdechovNET/DocumentsPage.pas

@@ -1 @@
-unit UDocumentsPage;
+unit DocumentsPage;
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UModuleUser;
+  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser;
 
 type
@@ -25 +25 @@
 
 uses
-  UCore, UUtils, UWebSession;
+  Core, Utils, WebSession;
 
 { TDocumentsPage }

trunk/Modules/ZdechovNET/HistoryPage.pas

@@ -1 @@
-unit UHistoryPage;
+unit HistoryPage;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, USqlDatabase,
-  UModuleUser;
+  ModuleUser;
 
 type
@@ -26 +26 @@
 
 uses
-  UCore, UUtils, UWebSession;
+  Core, Utils, WebSession;
 
 { THistoryPage }

trunk/Modules/ZdechovNET/HostingPage.pas

@@ -1 @@
-unit UHostingPage;
+unit HostingPage;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, USqlDatabase, UHtmlClasses,
-  UModuleUser;
+  ModuleUser;
 
 type
@@ -26 +26 @@
 
 uses
-  UCore, UWebSession;
+  Core, WebSession;
 
 { THostingPage }

trunk/Modules/ZdechovNET/IPTVPage.pas

@@ -1 @@
-unit UIPTVPage;
+unit IPTVPage;
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UModuleUser,
+  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, ModuleUser,
   Generics.Collections;
 
@@ -44 +44 @@
 
 uses
-  UCore, UHtmlClasses, UWebSession;
+  Core, UHtmlClasses, WebSession;
 
 { TChannels }

trunk/Modules/ZdechovNET/InternetPage.lfm

@@ -1 +1 @@
 object InternetPage: TInternetPage
   OldCreateOrder = False
+  Raw = False
   Caption = 'Internet'
   OnProduce = DataModuleProduce

trunk/Modules/ZdechovNET/InternetPage.pas

@@ -1 @@
-unit UInternetPage;
+unit InternetPage;
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UModuleUser;
+  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, ModuleUser;
 
 type
@@ -25 +25 @@
 
 uses
-  UCore, UHtmlClasses, UWebSession;
+  Core, UHtmlClasses, WebSession;
 
 { TInternetPage }
@@ -45 +45 @@
       '<table class="WideTable">' +
       '<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>' +
-      '<tr><td>Zdarma</td><td align="center">0</td><td align="center">&nbsp;</td><td align="center">256 kbit/s</td><td align="center">&nbsp;</td><td align="center">0 Kč</td></tr>' +
-      '<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>' +
-      '<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>' +
-      '<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>' +
-      '<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>' +
-      '<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>' +
+      '<tr><td>Zdarma</td><td align="center">0</td><td align="center">&nbsp;</td><td align="center">1 Mbit/s</td><td align="center">&nbsp;</td><td align="center">0 Kč</td></tr>' +
+      '<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>' +
+      '<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>' +
+      '<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>' +
+      '<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>' +
+      '<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>' +
       '</table>' +
       '<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/>' +
       '<br/>' +
-      '<i>Ceny platné od: 1.1.2021</i><br/>' +
+      '<i>Ceny platné od: 1.1.2024</i><br/>' +
       '<br/>' +
       '<strong>Maximální rychlosti pro jednotlivé technologie:</strong><br/>' +
       '<ul>' +
       '<li>Kabelové připojení Ethernet - 100 Mbit/s nebo 1 Gbit/s</li>' +
-      '<li>Bezdrátové připojení Wifi 802.11g - 20 Mbit/s</li>' +
-      '<li>Bezdrátové připojení Wifi 802.11n - 100 Mbit/s</li>' +
-      '<li>Bezdrátové připojení Wifi 802.11ac - 200 Mbit/s</li>' +
+      '<li>Bezdrátové připojení Wifi 2,4 GHz (802.11g) - 20 Mbit/s</li>' +
+      '<li>Bezdrátové připojení Wifi 5 GHz (802.11n) - 100 Mbit/s</li>' +
+      '<li>Bezdrátové připojení Wifi 5 GHz (802.11ac) - 200 Mbit/s</li>' +
+      '<li>Bezdrátové připojení Wifi 60 GHz (802.11ad) - 1000 Mbit/s</li>' +
       '</ul>' +
       '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/>' +
       '<br/>' +
-      'Aktualizováno: 1.1.2023';
+      'Aktualizováno: 1.1.2024';
     end;
     GeneratePage(Self);

trunk/Modules/ZdechovNET/LinksPage.pas

@@ -1 @@
-unit ULinksPage;
+unit LinksPage;
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UModuleUser;
+  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser;
 
 type
@@ -25 +25 @@
 
 uses
-  UCore, UWebSession;
+  Core, WebSession;
 
 { TLinksPage }

trunk/Modules/ZdechovNET/ModuleZdechovNET.pas

@@ -1 @@
-unit UModuleZdechovNET;
+unit ModuleZdechovNET;
 
 interface
 
 uses
-  Classes, SysUtils, UModularSystem, UWebPage, URobotsPage,
-  UWebSession, DateUtils, UModuleBase, UModuleUser, UIPTVPage,
-  UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,
-  ULinksPage, UPlansPage, UServerInfoPage, UWebCamPage, UUser,
-  UNetworkPage, UAboutPage, UContactPage, UProjectsPage;
+  Classes, SysUtils, UModularSystem, UWebPage, RobotsPage,
+  WebSession, DateUtils, ModuleBase, ModuleUser, IPTVPage,
+  InternetPage, HostingPage, HistoryPage, DocumentsPage, VoIPPage,
+  LinksPage, PlansPage, ServerInfoPage, WebCamPage, User,
+  NetworkPage, AboutPage, ContactPage, ProjectsPage;
 
 type
@@ -49 +49 @@
 
 uses
-  UCore, USqlDatabase, UXmlClasses, UHtmlClasses, UUtils;
+  Core, USqlDatabase, UXmlClasses, UHtmlClasses, Utils;
 
 { TModuleZdechovNET }
@@ -169 +169 @@
     DbRows := TDbRows.Create;
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `VPSHosting` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -181 +181 @@
     ') ENGINE=InnoDB DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;');
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `History` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -189 +189 @@
     ') ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `Webcam` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -204 +204 @@
     ') ENGINE=MyISAM DEFAULT CHARSET=utf8 AUTO_INCREMENT=1 ;');
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     '  CREATE TABLE IF NOT EXISTS `Plans` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -217 +217 @@
     ') ENGINE=InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_czech_ci AUTO_INCREMENT=1 ;');
 
-    Core.CommonDatabase.Query(DbRows,
+    Core.Core.CommonDatabase.Query(DbRows,
     'CREATE TABLE IF NOT EXISTS `HostedProject` (' +
     '  `Id` int(11) NOT NULL AUTO_INCREMENT,' +
@@ -245 +245 @@
   try
     DbRows := TDbRows.Create;
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `HostedProject`');
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Plans`');
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Webcam`');
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `VPSHosting`');
-    Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `History`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `HostedProject`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Plans`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `Webcam`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `VPSHosting`');
+    Core.Core.CommonDatabase.Query(DbRows, 'DROP TABLE IF EXISTS `History`');
   finally
     DbRows.Free;

trunk/Modules/ZdechovNET/NetworkPage.pas

@@ -1 @@
-unit UNetworkPage;
+unit NetworkPage;
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UModuleUser;
+  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser;
 
 type
@@ -25 +25 @@
 
 uses
-  UCore, UUtils, UWebSession;
+  Core, Utils, WebSession;
 
 { TNetworkPage }

trunk/Modules/ZdechovNET/PlansPage.pas

@@ -1 @@
-unit UPlansPage;
+unit PlansPage;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, UWebPage, UHtmlClasses, UHTTPServer, USqlDatabase,
-  UModuleUser;
+  ModuleUser;
 
 type
@@ -26 +26 @@
 
 uses
-  UCore, UWebSession;
+  Core, WebSession;
 
 { TPlansPage }

trunk/Modules/ZdechovNET/ProjectsPage.pas

@@ -1 @@
-unit UProjectsPage;
+unit ProjectsPage;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, UWebPage, UHtmlClasses, UHTTPServer, USqlDatabase,
-  UModuleUser;
+  ModuleUser;
 
 type
@@ -26 +26 @@
 
 uses
-  UCore, UWebSession;
+  Core, WebSession;
 
 { TProjectsPage }

trunk/Modules/ZdechovNET/RobotsPage.pas

@@ -1 @@
-unit URobotsPage;
+unit RobotsPage;
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UModuleUser;
+  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, ModuleUser;
 
 type
@@ -25 +25 @@
 
 uses
-  UCore, UUtils, UWebSession, USqlDatabase;
+  Core, Utils, WebSession, USqlDatabase;
 
 { TRobotsPage }

trunk/Modules/ZdechovNET/VoIPPage.lfm

@@ -1 +1 @@
 object VoIPPage: TVoIPPage
   OldCreateOrder = False
+  Raw = False
   Caption = 'VoIP'
   OnProduce = DataModuleProduce

trunk/Modules/ZdechovNET/VoIPPage.pas

@@ -1 @@
-unit UVoIPPage;
+unit VoIPPage;
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil, UWebPage, UHtmlClasses, UHTTPServer, UModuleUser;
+  Classes, SysUtils, FileUtil, UWebPage, UHtmlClasses, UHTTPServer, ModuleUser;
 
 type
@@ -25 +25 @@
 
 uses
-  UCore, UWebSession;
+  Core, WebSession;
 
 { TVoIPPage }

trunk/Modules/ZdechovNET/WebCamPage.pas

@@ -1 @@
-unit UWebCamPage;
+unit WebCamPage;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, USqlDatabase,
-  UModuleUser, DateUtils;
+  ModuleUser, DateUtils;
 
 type
@@ -32 +32 @@
 
 uses
-  UCore, UUtils, UWebSession;
+  Core, Utils, WebSession;