summaryrefslogtreecommitdiffstats
path: root/library/http/http.tcl
diff options
context:
space:
mode:
authorsandeep <sandeep>2000-04-05 00:30:14 (GMT)
committersandeep <sandeep>2000-04-05 00:30:14 (GMT)
commit3cffb6ec71805a501fb2b5958a3d336f9630b2b8 (patch)
tree3faf2184d6c4e2b2c62352c9c3012e1db4d8166c /library/http/http.tcl
parent654b797828a64252043684a8896212e371fbb59d (diff)
downloadtcl-3cffb6ec71805a501fb2b5958a3d336f9630b2b8.zip
tcl-3cffb6ec71805a501fb2b5958a3d336f9630b2b8.tar.gz
tcl-3cffb6ec71805a501fb2b5958a3d336f9630b2b8.tar.bz2
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.
Diffstat (limited to 'library/http/http.tcl')
-rw-r--r--library/http/http.tcl4
1 files changed, 2 insertions, 2 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
}