Differences From Artifact [383b0cc171]:
- File client/1.0/pkgr.eagle — part of check-in [af1f559982] at 2016-09-18 03:32:44 on branch trunk — More refactoring of the native Tcl 'getFileViaHttp' helper procedure. (user: mistachkin, size: 68165) [annotate] [blame] [check-ins using]
To Artifact [5776616d58]:
- File client/1.0/pkgr.eagle — part of check-in [36c123618c] at 2016-09-18 04:03:19 on branch trunk — Add the HTTP status code 300 as 'unsupported' instead of 'unrecognized'. (user: mistachkin, size: 68182) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 |
# NOTE: Just "give up" and raise a script error.
#
::http::cleanup $token; error [appendArgs \
"redirect from \"" $uri "\" missing location, code " \
$code ", data: " $data]
}
}
304 -
305 -
306 {
::http::cleanup $token; error [appendArgs \
"unsupported redirection HTTP response status code " $code \
", data: " $data]
}
| > | 1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 |
# NOTE: Just "give up" and raise a script error.
#
::http::cleanup $token; error [appendArgs \
"redirect from \"" $uri "\" missing location, code " \
$code ", data: " $data]
}
}
300 -
304 -
305 -
306 {
::http::cleanup $token; error [appendArgs \
"unsupported redirection HTTP response status code " $code \
", data: " $data]
}
|
| ︙ | ︙ |