summaryrefslogtreecommitdiffstats
path: root/library/http/http.tcl
diff options
context:
space:
mode:
authorhobbs <hobbs>2005-10-05 05:03:38 (GMT)
committerhobbs <hobbs>2005-10-05 05:03:38 (GMT)
commitffcbe192a990ccb07e04eb6f162091c91d8f377b (patch)
tree521d0e6199ca9835bbbf615d75c16f3d7cb57389 /library/http/http.tcl
parent7e7f91c8f1a841e4f5eb79bc40eebdac7c153e56 (diff)
downloadtcl-ffcbe192a990ccb07e04eb6f162091c91d8f377b.zip
tcl-ffcbe192a990ccb07e04eb6f162091c91d8f377b.tar.gz
tcl-ffcbe192a990ccb07e04eb6f162091c91d8f377b.tar.bz2
* tests/http.test: do not URI encode -._~ according
* library/http/http.tcl (init): to RFC3986. [Bug 1182373] (aho)
Diffstat (limited to 'library/http/http.tcl')
-rw-r--r--library/http/http.tcl12
1 files changed, 8 insertions, 4 deletions
diff --git a/library/http/http.tcl b/library/http/http.tcl
index c3454c4..39814f8 100644
--- a/library/http/http.tcl
+++ b/library/http/http.tcl
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and
# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: http.tcl,v 1.51 2005/05/10 18:34:54 kennykb Exp $
+# RCS: @(#) $Id: http.tcl,v 1.52 2005/10/05 05:03:38 hobbs Exp $
# Rough version history:
# 1.0 Old http_get interface
@@ -40,10 +40,14 @@ namespace eval http {
proc init {} {
# Set up the map for quoting chars
- # The spec says: "non-alphanumeric characters are replaced by '%HH'"
- for {set i 0} {$i < 256} {incr i} {
+ # RFC3986 Section 2.3 say percent encode all except:
+ # "... percent-encoded octets in the ranges of ALPHA
+ # (%41-%5A and %61-%7A), DIGIT (%30-%39), hyphen (%2D),
+ # period (%2E), underscore (%5F), or tilde (%7E) should
+ # not be created by URI producers ..."
+ for {set i 0} {$i <= 256} {incr i} {
set c [format %c $i]
- if {![string match {[a-zA-Z0-9]} $c]} {
+ if {![string match {[-._~a-zA-Z0-9]} $c]} {
set map($c) %[format %.2x $i]
}
}