From dbb5c4b6b882cd99981eb854386586854a23fdec Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Wed, 13 May 2026 00:05:37 +0200
Subject: Server.Frontend.Tracker: dedicated configuration menu

There is no back-channel with which we could retrieve the config that is
currently on an owntracks client. However, we can send out each config
with its own slightly tweaked host url, so that we can detect its
provisioning on the incoming requests anyways.

Credits for the idea go to Emily.
---
 lib/Persist.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lib/Persist.hs')

diff --git a/lib/Persist.hs b/lib/Persist.hs
index dbab9bd..6f459fc 100644
--- a/lib/Persist.hs
+++ b/lib/Persist.hs
@@ -94,6 +94,7 @@ derivePersistFieldJSON "Value"
 -- We derive these here so that OwnTracks.* can become its own package eventually
 derivePersistFieldJSON "OwnTracks.Status"
 derivePersistFieldJSON "OwnTracks.Command"
+derivePersistFieldJSON "OwnTracks.Configuration"
 
 
 data CommandStatus = Queued | Sent
@@ -144,6 +145,7 @@ Tracker sql=tt_tracker
   blocked Bool
   agent Text
   currentTicket TicketId Maybe
+  configVersion Int Maybe
   deriving Eq Show Generic
 
 TrackerStatus sql=tt_tracker_status
@@ -164,6 +166,13 @@ TrackerCommand sql=tt_tracker_command
   command OwnTracks.Command
   deriving Show Eq
 
+TrackerConfig sql=tt_tracker_config
+  tracker TrackerId
+  timestamp UTCTime
+  seen Bool
+  configuration OwnTracks.Configuration
+  deriving Show Eq
+
 -- raw frames as received from OBUs
 Ping json sql=tt_trip_ping
   ticket TicketId Maybe OnDeleteCascade OnUpdateCascade
-- 
cgit v1.2.3