suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

abort if bad HTTP reply

Browse Source 
svn: r1520
This commit is contained in:
Eli Barzilay 2005-12-04 19:18:04 +00:00
parent e1cf51dea0
commit ef87bdc876
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/version/check.ss
View File

@ -15,7 +15,8 @@
(fprintf o "GET ~a HTTP/1.0\r\nHost: ~a\r\n\r\n" path host) (fprintf o "GET ~a HTTP/1.0\r\nHost: ~a\r\n\r\n" path host)
(flush-output o) (flush-output o)
(close-output-port o) (close-output-port o)
(regexp-match #rx"^HTTP/[0-9.]+ 200 OK\r\n.*?\r\n\r\n" i) (unless (regexp-match #rx"^HTTP/[0-9.]+ 200 OK\r\n.*?\r\n\r\n" i)
(error 'url->port "bad reply from server: ~a" (read-line)))
i) i)
(define error-value (define error-value