From 3cffb6ec71805a501fb2b5958a3d336f9630b2b8 Mon Sep 17 00:00:00 2001 From: sandeep Date: Wed, 5 Apr 2000 00:30:14 +0000 Subject: 2000-03-29 Sandeep Tamhankar * 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. --- ChangeLog | 9 +++++++++ library/http/http.tcl | 4 ++-- library/http2.1/http.tcl | 4 ++-- library/http2.3/http.tcl | 4 ++-- 4 files changed, 15 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 5e72a53..d783e67 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +2000-03-29 Sandeep Tamhankar + + * 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. 2000-04-03 Andreas Kupries 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 } -- cgit v0.12