diff options
| author | hobbs <hobbs> | 2006-09-15 19:53:32 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2006-09-15 19:53:32 (GMT) |
| commit | e54225009c1133029084660b54b930783c1fbb94 (patch) | |
| tree | 60857e3a8c5dbb012c19b85195a12b6075a24e70 | |
| parent | 481c3e966dec813f857ea8fe0608e4f46c46a606 (diff) | |
| download | tcl-e54225009c1133029084660b54b930783c1fbb94.zip tcl-e54225009c1133029084660b54b930783c1fbb94.tar.gz tcl-e54225009c1133029084660b54b930783c1fbb94.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 for 8.4.14
| -rw-r--r-- | ChangeLog | 18 | ||||
| -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, 18 insertions, 12 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 for 8.4.14 + 2006-09-12 Andreas Kupries <andreask@activestate.com> * unix/configure.in (HAVE_MTSAFE_GETHOST*): Modified to recognize @@ -54,13 +60,13 @@ 2006-09-07 Zoran Vasiljevic <vasiljevic@users.sourceforge.net> - * unix/tclUnixFCmd.c: Removed some false tests added - (and left by mistake) by fixing the Tcl Bug: 999544 + * unix/tclUnixFCmd.c: Removed some false tests added + (and left by mistake) by fixing the Tcl Bug: 999544 - * unix/tclUnixCompat.c: Added fallback to MT-unsafe - library calls if TCL_THREADS is not defined. - Fixed alignment of arrays copied by CopyArrayi() to be - on the sizeof(char *) boundary. + * unix/tclUnixCompat.c: Added fallback to MT-unsafe + library calls if TCL_THREADS is not defined. + Fixed alignment of arrays copied by CopyArrayi() to be + on the sizeof(char *) boundary. 2006-09-07 Andreas Kupries <andreask@activestate.com> diff --git a/library/http/http.tcl b/library/http/http.tcl index 878f02d..1a79ceb 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.43.2.11 2006/03/07 19:18:39 dgp Exp $ +# RCS: @(#) $Id: http.tcl,v 1.43.2.12 2006/09/15 19:53:33 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 773b7b3..1fca0c4 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.33.2.4 2005/11/18 15:20:47 dkf Exp $ +# RCS: @(#) $Id: http.test,v 1.33.2.5 2006/09/15 19:53:33 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" |