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

Log tar1090 url.

Browse Source
This commit is contained in:
John Wiseman 2020-03-03 16:29:47 -08:00
parent e06f82a73f
commit e910eddc4a
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/main/lemondronor/circlebot/adsbx.cljs
View File

@ -63,10 +63,12 @@
(if-let [user-agent (:user-agent options)] (if-let [user-agent (:user-agent options)]
(.setUserAgent page user-agent)) (.setUserAgent page user-agent))
(log-debug "Navigating") (log-debug "Navigating")
(p/all [(.waitForNavigation page) (let [url (gstring/format "https://tar1090.adsbexchange.com/?icao=%s&noIsolation&hideButtons&hideSidebar&monochromeMarkers=ffff55&monochromeTracks=010101&outlineColor=505050&zoom=14" icao)]
(.goto page (log-info "Getting screenshot at url %s" url)
(gstring/format "https://tar1090.adsbexchange.com/?icao=%s&noIsolation&hideButtons&hideSidebar&monochromeMarkers=ffff55&monochromeTracks=010101&outlineColor=505050&zoom=14" icao) (p/all [(.waitForNavigation page)
(clj->js {:referer "https://adsbexchange.com/"}))]) (.goto page
url
(clj->js {:referer "https://adsbexchange.com/"}))]))
(timeout 3000) (timeout 3000)
(p/all [(.type (.-keyboard page) "l") (p/all [(.type (.-keyboard page) "l")
(timeout 1000)]) (timeout 1000)])