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: |
1ee3190643c67f36b93e7fa1c1a548d7 |
| 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 122 123 124 125 126 127 |
file mkdir $pkgdir $::teapotclient::pkgcachedir
set url "http://$server/package/name/$extension/ver/$ver/arch/$arch/file"
set urlcachefile [file join $::teapotclient::pkgcachedir [::md5::md5 -hex $url]]
if {![file exists $urlcachefile]} {
set tmpfd [open $urlcachefile w]
| > > | | 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 |
file mkdir $pkgdir $::teapotclient::pkgcachedir
set url "http://$server/package/name/$extension/ver/$ver/arch/$arch/file"
set urlcachefile [file join $::teapotclient::pkgcachedir [::md5::md5 -hex $url]]
if {![file exists $urlcachefile]} {
set tmpfd [open $urlcachefile w]
fconfigure $tmpfd -encoding binary -translation binary -buffering none
set token [::http::geturl $url -binary true -channel $tmpfd]
::http::cleanup $token
close $tmpfd
}
set retarr($extension) [list $ver $arch $server]
switch -regexp -- [::fileutil::fileType $urlcachefile] {
|
| ︙ | ︙ |