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