diff options
| -rw-r--r-- | ChangeLog | 9 | ||||
| -rw-r--r-- | library/http/http.tcl | 4 | ||||
| -rw-r--r-- | library/http2.1/http.tcl | 4 | ||||
| -rw-r--r-- | library/http2.3/http.tcl | 4 |
4 files changed, 15 insertions, 6 deletions
@@ -1,3 +1,12 @@ +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. 2000-04-03 Andreas Kupries <a.kupries@westend.com> 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 } |