Check-in [80b9e66ca3]
Overview
Comment:Added support for multiple teapot servers Added teapot.rkeene.org to teapot servers
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 80b9e66ca3520196c35b9eb290b01e988fced0f6
User & Date: rkeene on 2010-02-05 05:12:43
Other Links: manifest | tags
Context
2010-02-05
05:14
Updated example to use single server check-in: 698e02690e user: rkeene tags: trunk
05:12
Added support for multiple teapot servers Added teapot.rkeene.org to teapot servers check-in: 80b9e66ca3 user: rkeene tags: trunk
05:03
Corrected teapot index creation for Tclx Corrected order of printing of working directory check-in: 3d6c0da0bc user: rkeene tags: trunk
Changes

Modified client/lib/teapotclient0.1/teapotclient.tcl from [ff47dbe894] to [03a62da1de].

223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
	}

	proc get_extensions {server {limitos "*"} {limitcpu "*"}} {
		upvar ::teapotclient::osTeapotToLocal osTeapotToLocal
		upvar ::teapotclient::cpuTeapotToLocal cpuTeapotToLocal

		file mkdir $::teapotclient::pkgcachedir
		set cachefile [file join $::teapotclient::pkgcachedir TEAPOTINFO]
		
		set currtime [clock seconds]

		if {[file exists $cachefile]} {
			catch {
				set fd [open $cachefile r]
				set data [read $fd]







|







223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
	}

	proc get_extensions {server {limitos "*"} {limitcpu "*"}} {
		upvar ::teapotclient::osTeapotToLocal osTeapotToLocal
		upvar ::teapotclient::cpuTeapotToLocal cpuTeapotToLocal

		file mkdir $::teapotclient::pkgcachedir
		set cachefile [file join $::teapotclient::pkgcachedir TEAPOTINFO-[::md5::md5 -hex $server]]
		
		set currtime [clock seconds]

		if {[file exists $cachefile]} {
			catch {
				set fd [open $cachefile r]
				set data [read $fd]

Modified client/teapot-client.tcl from [c44684b043] to [bc242be260].

1
2
3
4
5
6
7
8
9
10
#! /usr/bin/env tclsh

set teapotservers [list teapot.activestate.com]

lappend auto_path [file join [file dirname [info script]] lib]

package require teapotclient

proc print_help {} {
	puts stderr "Usage: teapot-client get <dir> <os> <cpu> <packages...>"


|







1
2
3
4
5
6
7
8
9
10
#! /usr/bin/env tclsh

set teapotservers [list teapot.activestate.com teapot.rkeene.org]

lappend auto_path [file join [file dirname [info script]] lib]

package require teapotclient

proc print_help {} {
	puts stderr "Usage: teapot-client get <dir> <os> <cpu> <packages...>"
72
73
74
75
76
77
78

79


80
81
82
83
84
85
86
		}
		if {[llength $argv] > 1} {
			set cpu [lindex $argv 1]
		}

		puts "Extensions available for OS=$os, CPU=$cpu:"


		array set exts [::teapotclient::get_extensions $teapotservers $os $cpu]


		foreach ext [lsort -dictionary [array names exts]] {
			set extinfo $exts($ext)

			set extvers [list]
			foreach extinfoitem $extinfo {
				set extinfoitemvers [lindex $extinfoitem 0]
				if {[lsearch -exact $extvers $extinfoitemvers] == -1} {







>
|
>
>







72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
		}
		if {[llength $argv] > 1} {
			set cpu [lindex $argv 1]
		}

		puts "Extensions available for OS=$os, CPU=$cpu:"

		foreach teapotserver $teapotservers {
			array set exts [::teapotclient::get_extensions $teapotserver $os $cpu]
		}

		foreach ext [lsort -dictionary [array names exts]] {
			set extinfo $exts($ext)

			set extvers [list]
			foreach extinfoitem $extinfo {
				set extinfoitemvers [lindex $extinfoitem 0]
				if {[lsearch -exact $extvers $extinfoitemvers] == -1} {