Mercurial > hg > egg-tcls
changeset 583:d5fc3ecee4c7
urllog: Handle 303 redirects.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sun, 10 Jan 2021 14:57:30 +0200 |
parents | 1ace0cbde1dd |
children | 9b64f201b3a7 |
files | urllog.tcl |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/urllog.tcl Tue Jan 05 09:13:55 2021 +0200 +++ b/urllog.tcl Sun Jan 10 14:57:30 2021 +0200 @@ -348,7 +348,7 @@ } ### Handle redirects - if {$ucode >= 301 && $ucode <= 302} { + if {$ucode >= 301 && $ucode <= 303} { set nurlStr $umeta(Location) if {![regexp "\[a-z\]+://" $nurlStr]} { if {[string range $nurlStr 0 0] != "/"} { @@ -369,7 +369,7 @@ } ### Handle 2nd level redirects - if {$ucode >= 301 && $ucode <= 302} { + if {$ucode >= 301 && $ucode <= 303} { set nurlStr $umeta(Location) if {![regexp "\[a-z\]+://" $nurlStr]} { if {[string range $nurlStr 0 0] != "/"} {