From d7ecf2f735c34c837b464e3fc4af74c48efe1a2a Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Sat, 16 Sep 2006 00:19:41 +0000
Subject: 	* 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

---
 ChangeLog                 | 6 ++++++
 library/http/http.tcl     | 6 +++---
 library/http/pkgIndex.tcl | 2 +-
 tests/http.test           | 4 ++--
 4 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index dca72e0..48aff0f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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"
-- 
cgit v0.12