Overview
| Artifact ID: | 35de9bfaafc42db3c6566b997ea5f1282bee8e10 |
|---|---|
| Ticket: | 3163579fffffffffffffffffffffffffffffffff |
| Date: | 2011-01-25 00:17:22 |
| User: | karll |
| Artifact Attached: | eecf918e60fc3df57ae05285d131049004ab4c33 |
| Filename: | http-compress-switch-patch.txt |
| Description: | patch to add -compress option to http library |
Content:
*** http-old.tcl Mon Jan 24 11:13:09 2011 --- http.tcl Mon Jan 24 11:12:57 2011 *************** *** 316,321 **** --- 316,322 ---- array set state { -binary false -blocksize 8192 + -compress 1 -queryblocksize 8192 -validate 0 -headers {} *************** *** 347,357 **** -strict boolean -timeout integer -validate boolean } set state(charset) $defaultCharset set options { ! -binary -blocksize -channel -command -handler -headers -keepalive ! -method -myaddr -progress -protocol -query -queryblocksize -querychannel -queryprogress -strict -timeout -type -validate } set usage [join [lsort $options] ", "] --- 348,359 ---- -strict boolean -timeout integer -validate boolean + -compress boolean } set state(charset) $defaultCharset set options { ! -binary -blocksize -channel -command -compress -handler -headers ! -keepalive -method -myaddr -progress -protocol -query -queryblocksize -querychannel -queryprogress -strict -timeout -type -validate } set usage [join [lsort $options] ", "] *************** *** 695,701 **** } # Soft zlib dependency check - no package require if { ! !$accept_encoding_seen && ([package vsatisfies [package provide Tcl] 8.6] || [llength [package provide zlib]]) && !([info exists state(-channel)] || [info exists state(-handler)]) --- 697,703 ---- } # Soft zlib dependency check - no package require if { ! !$accept_encoding_seen && $state(-compress) && ([package vsatisfies [package provide Tcl] 8.6] || [llength [package provide zlib]]) && !([info exists state(-channel)] || [info exists state(-handler)])