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

remove MY-REPORTED-PORT (relict of old URL parser)

This commit is contained in:
vibr 2005-04-05 18:45:02 +00:00
parent da10de6309
commit 9399bf9397
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scheme/httpd/core.scm
View File

@ -160,8 +160,6 @@
(enum exception os-error))));;?? -> (enum exception os-error))));;?? ->
;;which cases is this supposed to catch excactly? broken ;;which cases is this supposed to catch excactly? broken
;;connection to client? If so, does it work? ;;connection to client? If so, does it work?
;; try to send bug report to client
(values #f (values #f
(apply make-error-response (status-code internal-error) (apply make-error-response (status-code internal-error)
#f ; don't know #f ; don't know
@ -181,7 +179,7 @@
(socket:inport sock)))) (socket:inport sock))))
((nph-response? response) ((nph-response? response)
(values req response)) (values req response))
((eq? (response-code response) (status-code redirect)) ((eq? (response-code response) (status-code redirect));internal redirect
(redirect-loop (redirect-request req response sock options))) (redirect-loop (redirect-request req response sock options)))
(else (else
(values req response))))))))) (values req response)))))))))
@ -340,7 +338,3 @@
(write-crlf port)) (write-crlf port))
headers)) headers))
(define (my-reported-port addr)
(receive (ip-addr portnum) (socket-address->internet-address addr)
portnum))