From 5fa550010cd0d9293d253d9528a4029db26ced54 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 2 May 2026 14:31:33 +0200
Subject: owntracks: support returning commands

---
 lib/Persist.hs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'lib/Persist.hs')

diff --git a/lib/Persist.hs b/lib/Persist.hs
index 7ff3f1d..dbab9bd 100644
--- a/lib/Persist.hs
+++ b/lib/Persist.hs
@@ -93,8 +93,14 @@ derivePersistFieldJSON "Value"
 
 -- We derive these here so that OwnTracks.* can become its own package eventually
 derivePersistFieldJSON "OwnTracks.Status"
+derivePersistFieldJSON "OwnTracks.Command"
 
 
+data CommandStatus = Queued | Sent
+  deriving (Eq, Show, Read, Generic)
+
+derivePersistField "CommandStatus"
+
 share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
 Ticket sql=tt_ticket
   Id UUID default=uuid_generate_v4()
@@ -150,6 +156,14 @@ TrackerTicket
   tracker TrackerId OnDeleteCascade OnUpdateCascade
   UniqueTrackerTicket ticket tracker
 
+-- owntracks commands enqueued, to be sent to a tracker on next contact
+TrackerCommand sql=tt_tracker_command
+  tracker TrackerId
+  timestamp UTCTime
+  status CommandStatus
+  command OwnTracks.Command
+  deriving Show Eq
+
 -- raw frames as received from OBUs
 Ping json sql=tt_trip_ping
   ticket TicketId Maybe OnDeleteCascade OnUpdateCascade
-- 
cgit v1.2.3