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

recognize 302 redirection

Browse Source 
svn: r7090
This commit is contained in:
Matthew Flatt 2007-08-13 22:50:11 +00:00
parent 3747f712a9
commit df0c8c3245
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/browser/private/hyper.ss
View File

@ -259,7 +259,7 @@ A test case:
(yield s)) (yield s))
(let ([headers (get-headers/read-from-port progress)]) (let ([headers (get-headers/read-from-port progress)])
;; Page is a redirection? ;; Page is a redirection?
(let ([m (regexp-match "^HTTP/[^ ]+ 301 " headers)]) (let ([m (regexp-match "^HTTP/[^ ]+ 30[12] " headers)])
(when m (when m
(let ([loc (extract-field "location" headers)]) (let ([loc (extract-field "location" headers)])
(when loc (when loc