scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Protect dns-lookup-ip with a fatal error handler.

This commit is contained in:
mainzelm 2002-12-19 14:30:39 +00:00
parent 5a20cc1e0a
commit 8b6d244f0e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/httpd/logging.scm
View File

@ -164,6 +164,10 @@
(define (maybe-dns-lookup remote-ip) (define (maybe-dns-lookup remote-ip)
(if (logging-dns-lookup?) (if (logging-dns-lookup?)
(or (dns-lookup-ip remote-ip) (or (with-fatal-error-handler*
(lambda (condition decline)
remote-ip)
(lambda ()
(dns-lookup-ip remote-ip)))
remote-ip) remote-ip)
remote-ip)) remote-ip))