diff options
| author | hobbs <hobbs> | 2006-09-16 00:19:41 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2006-09-16 00:19:41 (GMT) |
| commit | d7ecf2f735c34c837b464e3fc4af74c48efe1a2a (patch) | |
| tree | 4341aa48221d56bd965cbb502f2ad12ee038c856 | |
| parent | c5e2ae09424655cfb0a69b301ee78dcda43b63f4 (diff) | |
| download | tcl-d7ecf2f735c34c837b464e3fc4af74c48efe1a2a.zip tcl-d7ecf2f735c34c837b464e3fc4af74c48efe1a2a.tar.gz tcl-d7ecf2f735c34c837b464e3fc4af74c48efe1a2a.tar.bz2 | |
* library/http/http.tcl: Change " " -> "+" url encoding mapping
* library/http/pkgIndex.tcl: to " " -> "%20" as per RFC 3986.
* tests/http.test (http-5.1): bump http to 2.5.3
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | library/http/http.tcl | 6 | ||||
| -rw-r--r-- | library/http/pkgIndex.tcl | 2 | ||||
| -rw-r--r-- | tests/http.test | 4 |
4 files changed, 12 insertions, 6 deletions
@@ -1,3 +1,9 @@ +2006-09-15 Jeff Hobbs <jeffh@ActiveState.com> + + * library/http/http.tcl: Change " " -> "+" url encoding mapping + * library/http/pkgIndex.tcl: to " " -> "%20" as per RFC 3986. + * tests/http.test (http-5.1): bump http to 2.5.3 + 2006-09-12 Andreas Kupries <andreask@activestate.com> * unix/configure.in (HAVE_MTSAFE_GETHOST*): Modified to recognize diff --git a/library/http/http.tcl b/library/http/http.tcl index db54d34..1e5818a 100644 --- a/library/http/http.tcl +++ b/library/http/http.tcl @@ -8,7 +8,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.57 2006/03/07 19:32:24 dgp Exp $ +# RCS: @(#) $Id: http.tcl,v 1.58 2006/09/16 00:19:41 hobbs Exp $ # Rough version history: # 1.0 Old http_get interface. @@ -24,7 +24,7 @@ package require Tcl 8.4 # Keep this in sync with pkgIndex.tcl and with the install directories # in Makefiles -package provide http 2.5.2 +package provide http 2.5.3 namespace eval http { variable http @@ -50,7 +50,7 @@ namespace eval http { } } # These are handled specially - array set map { " " + \n %0d%0a } + set map(\n) %0d%0a variable formMap [array get map] } init diff --git a/library/http/pkgIndex.tcl b/library/http/pkgIndex.tcl index 1691b51..af88a2e 100644 --- a/library/http/pkgIndex.tcl +++ b/library/http/pkgIndex.tcl @@ -9,4 +9,4 @@ # full path name of this file's directory. if {![package vsatisfies [package provide Tcl] 8.4]} {return} -package ifneeded http 2.5.2 [list tclPkgSetup $dir http 2.5.2 {{http.tcl source {::http::config ::http::formatQuery ::http::geturl ::http::reset ::http::wait ::http::register ::http::unregister}}}] +package ifneeded http 2.5.3 [list tclPkgSetup $dir http 2.5.3 {{http.tcl source {::http::config ::http::formatQuery ::http::geturl ::http::reset ::http::wait ::http::register ::http::unregister ::http::mapReply}}}] diff --git a/tests/http.test b/tests/http.test index b7d618c..1e62f9d 100644 --- a/tests/http.test +++ b/tests/http.test @@ -12,7 +12,7 @@ # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # -# RCS: @(#) $Id: http.test,v 1.41 2005/11/18 14:51:02 dkf Exp $ +# RCS: @(#) $Id: http.test,v 1.42 2006/09/16 00:19:42 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -463,7 +463,7 @@ test http-4.15 {http::Event} { test http-5.1 {http::formatQuery} { http::formatQuery name1 value1 name2 "value two" -} {name1=value1&name2=value+two} +} {name1=value1&name2=value%20two} # test http-5.2 obsoleted by 5.4 and 5.5 with http 2.5 test http-5.3 {http::formatQuery} { http::formatQuery lines "line1\nline2\nline3" |