Mercurial > hg > egg-tcls

changeset 583:d5fc3ecee4c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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] != "/"} {