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: |
80b9e66ca3520196c35b9eb290b01e98 |
| 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 |
}
proc get_extensions {server {limitos "*"} {limitcpu "*"}} {
upvar ::teapotclient::osTeapotToLocal osTeapotToLocal
upvar ::teapotclient::cpuTeapotToLocal cpuTeapotToLocal
file mkdir $::teapotclient::pkgcachedir
| | | 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 | #! /usr/bin/env tclsh | | | 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 |
}
if {[llength $argv] > 1} {
set cpu [lindex $argv 1]
}
puts "Extensions available for OS=$os, CPU=$cpu:"
| > | > > | 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} {
|
| ︙ | ︙ |