More debug output
This commit is contained in:
parent
f3d96227b0
commit
863ecf50b6
|
@ -206,7 +206,10 @@
|
||||||
(send-empty-reply w q)]
|
(send-empty-reply w q)]
|
||||||
[(question-state zone q client-sock nameservers-tried old-retry-count)
|
[(question-state zone q client-sock nameservers-tried old-retry-count)
|
||||||
;; Credit remaining. Try once more (perhaps for the first time, in fact).
|
;; Credit remaining. Try once more (perhaps for the first time, in fact).
|
||||||
(match (resolve-from-zone q zone #f nameservers-tried)
|
(define resolution-result (resolve-from-zone q zone #f nameservers-tried))
|
||||||
|
(begin (write `(Resolution result ,resolution-result))
|
||||||
|
(newline))
|
||||||
|
(match resolution-result
|
||||||
[#f ;; We're not authoritative so this is just a signal that we can't answer usefully
|
[#f ;; We're not authoritative so this is just a signal that we can't answer usefully
|
||||||
(send-empty-reply w q)]
|
(send-empty-reply w q)]
|
||||||
[(referral zone-origin nameserver-rrs _)
|
[(referral zone-origin nameserver-rrs _)
|
||||||
|
|
Loading…
Reference in New Issue