Attachment "http-compress-switch-patch.txt" to
ticket [3163579fff]
added by
karll
2011-01-25 00:17:22.
*** 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)])
