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
..
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
#! /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...>"
................................................................................
}
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} {
|
|
>
|
>
>
|
1
2
3
4
5
6
7
8
9
10
..
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
#! /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...>" ................................................................................ } 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} { |