Overview
| Comment: | Switched to force to binary download of packages |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 1ee3190643c67f36b93e7fa1c1a548d770fde571 |
| User & Date: | rkeene on 2010-02-05 05:38:31 |
| Other Links: | manifest | tags |
Context
|
2010-02-05
| ||
| 05:39 | Teaparty 0.9.4 check-in: 646eeec6a7 user: rkeene tags: trunk | |
| 05:38 | Switched to force to binary download of packages check-in: 1ee3190643 user: rkeene tags: trunk | |
| 05:14 | Updated example to use single server check-in: 698e02690e user: rkeene tags: trunk | |
Changes
Modified client/lib/teapotclient0.1/teapotclient.tcl from [03a62da1de] to [a5bf42fefe].
121 121 file mkdir $pkgdir $::teapotclient::pkgcachedir 122 122 123 123 set url "http://$server/package/name/$extension/ver/$ver/arch/$arch/file" 124 124 set urlcachefile [file join $::teapotclient::pkgcachedir [::md5::md5 -hex $url]] 125 125 126 126 if {![file exists $urlcachefile]} { 127 127 set tmpfd [open $urlcachefile w] 128 - set token [::http::geturl $url -channel $tmpfd] 128 + fconfigure $tmpfd -encoding binary -translation binary -buffering none 129 + 130 + set token [::http::geturl $url -binary true -channel $tmpfd] 129 131 130 132 ::http::cleanup $token 131 133 close $tmpfd 132 134 } 133 135 134 136 set retarr($extension) [list $ver $arch $server] 135 137 switch -regexp -- [::fileutil::fileType $urlcachefile] {