2000-03-29 Sandeep Tamhankar <sandeep@scriptics.com>

	* library/http2.1/http.tcl: For the -querychannel option,
	fconfigure the socket to be binary so that we don't translate
	anything while reading the data.  This is because we determine the
	content length of the data on the channel by using seek (to the end
	of the file) and tell on the file handle, and we need the
	content-length to match the amount of data actually sent, and
	translation can affect the number of bytes posted.


FossilOrigin-Name: 709209ad4d15f2b8aef1b74d1714c2b13eeb8cad

3 files changed, 6 insertions, 6 deletions

diff --git a/library/http/http.tcl b/library/http/http.tcl
index 617684c..c7369e4 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.28 2000/03/29 20:19:59 sandeep Exp $
+# RCS: @(#) $Id: http.tcl,v 1.29 2000/04/05 00:30:15 sandeep Exp $
 
 package provide http 2.3	;# This uses Tcl namespaces
 
@@ -365,7 +365,7 @@ proc http::geturl { url args } {
 	set how POST
 	# The query channel must be blocking for the async Write to
 	# work properly.
-	fconfigure $state(-querychannel) -blocking 1
+	fconfigure $state(-querychannel) -blocking 1 -translation binary
 	set contDone 0
     }
 
diff --git a/library/http2.1/http.tcl b/library/http2.1/http.tcl
index 617684c..c7369e4 100644
--- a/library/http2.1/http.tcl
+++ b/library/http2.1/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.28 2000/03/29 20:19:59 sandeep Exp $
+# RCS: @(#) $Id: http.tcl,v 1.29 2000/04/05 00:30:15 sandeep Exp $
 
 package provide http 2.3	;# This uses Tcl namespaces
 
@@ -365,7 +365,7 @@ proc http::geturl { url args } {
 	set how POST
 	# The query channel must be blocking for the async Write to
 	# work properly.
-	fconfigure $state(-querychannel) -blocking 1
+	fconfigure $state(-querychannel) -blocking 1 -translation binary
 	set contDone 0
     }
 
diff --git a/library/http2.3/http.tcl b/library/http2.3/http.tcl
index 617684c..c7369e4 100644
--- a/library/http2.3/http.tcl
+++ b/library/http2.3/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.28 2000/03/29 20:19:59 sandeep Exp $
+# RCS: @(#) $Id: http.tcl,v 1.29 2000/04/05 00:30:15 sandeep Exp $
 
 package provide http 2.3	;# This uses Tcl namespaces
 
@@ -365,7 +365,7 @@ proc http::geturl { url args } {
 	set how POST
 	# The query channel must be blocking for the async Write to
 	# work properly.
-	fconfigure $state(-querychannel) -blocking 1
+	fconfigure $state(-querychannel) -blocking 1 -translation binary
 	set contDone 0
     }