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

Silence the proxy's debug output a little

This commit is contained in:
Tony Garnock-Jones 2012-01-25 14:20:20 -05:00
parent 9770f0570b
commit 47a6607981
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
proxy.rkt
View File

@ -30,7 +30,7 @@
(define boot-server
(os-big-bang 'no-state
(spawn dns-spy)
;;(spawn dns-spy)
(send-meta-message `(request create-server-socket (udp new ,port-number 512)))
(subscribe 'wait-for-server-socket
(meta-message-handlers w
@ -62,7 +62,7 @@
(transition old-state (spawn (request-handler zone r c)))]))
(ground-vm (os-big-bang (void)
(spawn udp-spy)
;;(spawn udp-spy)
(spawn udp-driver)
(spawn (nested-vm boot-server)))))
@ -80,6 +80,8 @@
(define question (and (pair? (dns-message-questions request-message))
(car (dns-message-questions request-message))))
(write `(Looking up ,question)) (newline)
(define (make-reply answers authorities additional)
(dns-message (dns-message-id request-message)
'response
@ -97,7 +99,7 @@
(define (resolver-actions qr)
(match qr
[(resolver-network-query q zone ns-rr addresses k) ;; need subquestion answered
(write `(INTERMEDIATE ,q ,ns-rr (,(length addresses) addresses))) (newline)
;;(write `(INTERMEDIATE ,q ,ns-rr (,(length addresses) addresses))) (newline)
(network-query/addresses client-sock q zone ns-rr addresses
(lambda (qr) (resolver-actions (k qr))))]
[#f ;; got a name-error/NXDOMAIN from some nameserver