tyrel/advisory-circular
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Logging tweaks.

Browse Source
This commit is contained in:
John Wiseman 2019-12-28 22:26:38 -08:00
parent 259159e838
commit 516ec4bd24
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/main/lemondronor/circlebot.cljs
View File

@ -188,7 +188,7 @@
;; :viewport {:width 1600 :height 800} ;; :viewport {:width 1600 :height 800}
;; :clip {:width 1600 :height 800 :x 0 :y 0} ;; :clip {:width 1600 :height 800 :x 0 :y 0}
:vrs-settings (fs/readFileSync "vrs-settings.json" "utf-8")})] :vrs-settings (fs/readFileSync "vrs-settings.json" "utf-8")})]
(log-warn "%s: Got screenshot" icao) (log-verbose "%s: Got screenshot" icao)
image-path)) image-path))
@ -405,7 +405,7 @@
(get-in f [:properties :label] f) (get-in f [:properties :label] f)
(get-in f [:properties :addendum] f))) (get-in f [:properties :addendum] f)))
(let [description (generate-description ac sqb coarse wiki-nearby nearby)] (let [description (generate-description ac sqb coarse wiki-nearby nearby)]
(log-warn "Description: %s" description) (log-info "Description: %s" description)
description))]) description))])
(fn [[image-path description]] (fn [[image-path description]]
(if (or (nil? coarse) (if (or (nil? coarse)
@ -480,7 +480,7 @@
(write-history-db new-db history-db-path) (write-history-db new-db history-db-path)
(let [end-time (current-time)] (let [end-time (current-time)]
(log-info (log-info
"Completed processing in %s seconds: tracking %s aircraft; %s potential circles" "Completed processing in %f seconds: tracking %s aircraft; %s potential circles"
(/ (- end-time start-time) 1000) (/ (- end-time start-time) 1000)
(count new-db) (count new-db)
(count potential-circles))))))))) (count potential-circles)))))))))

2
src/main/lemondronor/circlebot/twitter.cljs
View File

@ -38,7 +38,7 @@
(defn tweet [twit status image-paths lat lon] (defn tweet [twit status image-paths lat lon]
(p/then (p/all (map #(upload-image twit %) image-paths)) (p/then (p/all (map #(upload-image twit %) image-paths))
(fn [media-ids] (fn [media-ids]
(log-info "Tweeting status:'%s' with media: %s" status media-ids) (log-warn "Tweeting status:'%s' with media: %s" status media-ids)
(p/let [result (.post twit "statuses/update" (p/let [result (.post twit "statuses/update"
(clj->js {:status status (clj->js {:status status
:media_ids [media-ids] :media_ids [media-ids]