From f3d96227b067e1759b3490323b55c635d745a499 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 19 Feb 2012 10:56:45 -0500 Subject: [PATCH] Debug on referral incorporation --- proxy.rkt | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/proxy.rkt b/proxy.rkt index a55fd3e..0038870 100644 --- a/proxy.rkt +++ b/proxy.rkt @@ -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