syndicate-lang
/
racketmq-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Convert the issued lease-seconds from string

This commit is contained in:
Tony Garnock-Jones 2016-11-22 11:51:10 +13:00
parent f14e0acfcb
commit 709042bb46
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racketmq/hub/remote-topic.rkt
View File

@ -168,10 +168,11 @@
(on (web-request-get (id req) (vh host-name port) ("sub" (,sub-id ())))
(log-info "Received verification-of-intent: ~v" (web-request-header-query req))
(define challenge (dict-ref (web-request-header-query req) 'hub.challenge ""))
(define lease-seconds (dict-ref (web-request-header-query req) 'hub.lease_seconds #f))
(if lease-seconds
(define lease-seconds-str (dict-ref (web-request-header-query req) 'hub.lease_seconds #f))
(if lease-seconds-str
(next-subscription-refresh (+ (current-inexact-milliseconds)
(* 1000.0 (shrink-lease lease-seconds))))
(* 1000.0
(shrink-lease (string->number lease-seconds-str)))))
(log-warning "Upstream hub for topic ~s did not supply hub.lease_seconds" full-topic))
(web-respond/bytes! id (string->bytes/utf-8 challenge)))