                                :satellite_count (:satellite_count data)
                                :altitude (:altitude data)}))
       )
+    
     (doseq [key extension-keys]
       (insert event-extension-value
               (values

               )))
    event-entity
 ))

(defn -main []
  (map-entities *database-config*)
  (select tracker)
  (get-tracker! "roo2" name)
  )

  (let [extension-keys (filter (fn [key]
                                 (.startsWith (name key) "X-"))
                               (keys data))
        tracker (get-tracker-by-identifier! (:tracker_identifier data))
        latitude (:latitude data)
        longitude (:longitude data)

        event-entity (insert event (values
                                    {:tracker_id (tracker :id)
                                     :event_time (or (to-sql-timestamp (:event_time data))
                                                     (current-sql-timestamp) )
                                     }))]

    (if (and latitude longitude)
