Browse Source

bizarre

master
eta 3 weeks ago
parent
commit
98840ced0f
  1. 18
      trackernet.lisp

18
trackernet.lisp

@ -1205,18 +1205,20 @@ @@ -1205,18 +1205,20 @@
(filename (format nil "~A-~A.trn" last-ts key))
(all-records (redis-cpk-sorted-set-all key))
(unique-track-code-count
(when (< records-archived 1000)
(length
(remove-duplicates
(mapcar (lambda (trn) (track-code (third trn)))
all-records)
:test #'string=))))
(ignore-errors
(when (< records-archived 1000)
(length
(remove-duplicates
(mapcar (lambda (trn) (track-code (third trn)))
all-records)
:test #'string=)))))
(ltid (red:get (format nil "ltmap:~A" key)))
(ltid-or-key (or ltid key))
(clickhouse-data (list ltid-or-key last-ts key all-records))
(archive-data (list last-ts key all-records)))
(red:incr (format nil "~A-code-archives-~A"
line-code (track-code last-data)))
(ignore-errors
(red:incr (format nil "~A-code-archives-~A"
line-code (track-code last-data))))
(statsd-inc "intertube.archived")
(statsd-counter "intertube.archived-records" records-archived)
(conspack-encode-to-archive tar-out filename archive-data)

Loading…
Cancel
Save