Changeset 153 for trunk/Modules/ZdechovNET

Timestamp:

Feb 11, 2024, 3:07:19 PM (9 months ago)

Author:

chronos

Message:

• Added: Support for private webcams.

File:

• trunk/Modules/ZdechovNET/WebCamPage.pas (modified) (3 diffs)

trunk/Modules/ZdechovNET/WebCamPage.pas

@@ -81 +81 @@
       try
         DbRows := TDbRows.Create;
-        Database.Query(DbRows, 'SELECT * FROM `Webcam` WHERE `Enabled`=1');
+        Database.Query(DbRows, 'SELECT * FROM `Webcam` WHERE `Enabled`=1 AND `Public`=1');
         for I := 0 to DbRows.Count - 1 do begin
           Text := Text + MakeLink(DbRows[I].Items['Name'], NavigationLink(
@@ -119 +119 @@
   try
     DbRows := TDbRows.Create;
-    Database.Query(DbRows, 'SELECT * FROM `Webcam` WHERE `Enabled`=1');
+    Database.Query(DbRows, 'SELECT * FROM `Webcam` WHERE `Enabled`=1 AND `Public`=1');
     ImageWidthThumb := 160;
     for I := 0 to DbRows.Count - 1 do begin
@@ -142 +142 @@
   RefreshInterval: Integer;
   LastFileDate: string;
+  Token: string;
 begin
   Result := '';
   with TWebSession(HandlerData) do
   try
+    if HandlerData.Request.Query.TryGetValue('Token', Token) then
+      else Token := '';
+
     DbRows := TDbRows.Create;
     Database.Query(DbRows, 'SELECT * FROM `Webcam` WHERE (`Id`=' +
-      IntToStr(Id) + ') AND (`Enabled`=1)');
+      IntToStr(Id) + ') AND (`Enabled`=1) AND ' +
+      '((`Public` = 1) OR ((`Public` = 0) AND (`Token`="' +
+      Database.EscapeString(Token) + '")))');
     if DbRows.Count > 0 then begin
       WebCamImage := 'images/webcam/' + DbRows[0].Items['ImageName'];