Changeset 99

Timestamp:

Oct 2, 2012, 2:12:16 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Modul seznamu televizních kanálů TV.

Location:

trunk

Files:

• Modules/TV (added)
• Modules/TV/UModuleTV.pas (added)
• Modules/TV/UPageTV.lfm (added)
• Modules/TV/UPageTV.pas (added)
• Modules/TV/UPlaylist.pas (added)
• Packages/CoolWeb/Persistence/USqlDatabase.pas (modified) (2 diffs)
• Packages/CoolWeb/WebServer/UHTTPServerTCP.pas (modified) (1 diff)
• Pages/UPageAdmin.pas (modified) (4 diffs)
• UCore.pas (modified) (2 diffs)
• ZdechovNET.lpi (modified) (5 diffs)

trunk/Packages/CoolWeb/Persistence/USqlDatabase.pas

@@ -55 +55 @@
     LastUsedTable: string;
     LastQuery: string;
+    function EscapeString(Text: string): string;
     procedure CreateDatabase;
     procedure CreateTable(Name: string);
@@ -451 +452 @@
 end;
 
+function TSqlDatabase.EscapeString(Text: string): string;
+var
+  L: Integer;
+begin
+  SetLength(Result, Length(Text) * 2 + 1);
+  L := mysql_real_escape_string(FSession, PChar(Result), PChar(Text), Length(Text));
+  SetLength(Result, L);
+end;
+
 { TDbRows }
 

trunk/Packages/CoolWeb/WebServer/UHTTPServerTCP.pas

@@ -93 +93 @@
       end;
 
-
-
     // Process cookies
     if Request.Headers.SearchKey('Cookie') <> -1 then

trunk/Pages/UPageAdmin.pas

@@ -15 +15 @@
     procedure DataModuleProduce(HandlerData: THTTPHandlerData);
   private
+    procedure HandleReload(HandlerData: THTTPHandlerData);
     procedure HandleModuleList(HandlerData: THTTPHandlerData);
     procedure HandleInstall(HandlerData: THTTPHandlerData);
@@ -32 +33 @@
 
 uses
-  UCore, UXmlClasses, UHtmlClasses, UUtils, USqlDatabase, UModularSystem;
+  UCore, UXmlClasses, UHtmlClasses, UUtils, USqlDatabase, UModularSystem,
+  UModuleSystem;
 
 {$R *.lfm}
@@ -50 +52 @@
       if PageName = '' then PageName := 'modulelist';
       if PageName = 'modulelist' then HandleModuleList(HandlerData)
+      else if PageName = 'reload' then HandleReload(HandlerData)
       else if PageName = 'install' then HandleInstall(HandlerData)
       else if PageName = 'uninstall' then HandleUninstall(HandlerData);
     end;
     GeneratePage(Self);
+  end;
+end;
+
+procedure TPageAdmin.HandleReload(HandlerData: THTTPHandlerData);
+begin
+  with TWebSession(HandlerData) do begin
+    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+      TModuleSystem(Core.ModuleManager.FindModuleByName('System')).UpdateModuleList;
+      Text := 'Seznam modulů synchronizován';
+      Text := Text + '<br/><br/>';
+      HandleModuleList(HandlerData);
+    end;
   end;
 end;
@@ -76 +91 @@
         Text := Text + '</td></tr>';
       end;
+      Text := Text + '</table>';
+      Text := Text + MakeLink('Obnovit seznam modulů', NavigationLink('/administration/reload'));
     end;
   end;

trunk/UCore.pas

@@ -86 +86 @@
 
 uses
-  UModuleSystem, UModuleZdechovNET, UModuleUser, UPageAdmin;
+  UModuleSystem, UModuleZdechovNET, UModuleUser, UPageAdmin, UModuleTV;
 
 resourcestring
@@ -278 +278 @@
     RegisterModule(TModuleUser.Create(nil), True);
     RegisterModule(TModuleZdechovNET.Create(nil), True);
+    RegisterModule(TModuleTV.Create(nil), True);
   end;
 end;

trunk/ZdechovNET.lpi

@@ -36 +36 @@
           </Target>
           <SearchPaths>
-            <OtherUnitFiles Value="/usr/lib/mysql;/usr/lib64/mysql;Application;WebServer;Network;Pages;Modules/User;Common;Modules/System;Modules/ZdechovNET"/>
+            <OtherUnitFiles Value="/usr/lib/mysql;/usr/lib64/mysql;Application;WebServer;Network;Pages;Modules/User;Common;Modules/System;Modules/ZdechovNET;Modules/TV"/>
             <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
           </SearchPaths>
@@ -117 +117 @@
       </Item7>
     </RequiredPackages>
-    <Units Count="23">
+    <Units Count="26">
       <Unit0>
         <Filename Value="ZdechovNET.lpr"/>
@@ -202 +202 @@
         <IsPartOfProject Value="True"/>
         <HasResources Value="True"/>
+        <UnitName Value="UHistoryPage"/>
       </Unit14>
       <Unit15>
@@ -207 +208 @@
         <IsPartOfProject Value="True"/>
         <HasResources Value="True"/>
+        <UnitName Value="UHostingPage"/>
       </Unit15>
       <Unit16>
@@ -243 +245 @@
         <HasResources Value="True"/>
       </Unit22>
+      <Unit23>
+        <Filename Value="Modules/TV/UModuleTV.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="UModuleTV"/>
+      </Unit23>
+      <Unit24>
+        <Filename Value="Modules/TV/UPageTV.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="WebPageTV"/>
+        <ResourceBaseClass Value="DataModule"/>
+        <UnitName Value="UPageTV"/>
+      </Unit24>
+      <Unit25>
+        <Filename Value="Modules/TV/UPlaylist.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="UPlaylist"/>
+      </Unit25>
     </Units>
   </ProjectOptions>