Check-in [1ee3190643]
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
122
123
124
125
126
127


128
129
130
131
132
133
134
135
			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]


				set token [::http::geturl $url -channel $tmpfd]

				::http::cleanup $token
				close $tmpfd
			}

			set retarr($extension) [list $ver $arch $server]
			switch -regexp -- [::fileutil::fileType $urlcachefile] {







>
>
|







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] {