syndicate-lang
/
racket-dns-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Debug on referral incorporation

This commit is contained in:
Tony Garnock-Jones 2012-02-19 10:56:45 -05:00
parent 2490431364
commit f3d96227b0
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
proxy.rkt
View File

@ -229,6 +229,13 @@
(transition w (send-message (answered-question q #f)))]
[(network-reply (== referral-id) ans)
(define-values (new-zone ignored-timers) (incorporate-complete-answer ans zone))
(begin (write `(Referral ,referral-id results in origin ,zone-origin)) (newline)
(for ([k (set-union (list->set (hash-keys zone))
(list->set (hash-keys new-zone)))]
#:when (in-bailiwick? k zone-origin))
(write `(old ,k ,(hash-ref zone k 'missing))) (newline)
(write `(new ,k ,(hash-ref new-zone k 'missing))) (newline))
(write `(=-=-=-=-=-=)) (newline))
(define nameserver-names (for/set ([rr nameserver-rrs]) (rr-rdata rr)))
(extend-transition
(retry-question (struct-copy question-state w