Overview
| Comment: | Added support for specifying packages not to install |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
0abbc5472a83c7b24a6de262159c4b88 |
| User & Date: | rkeene on 2009-09-18 11:31:48 |
| Other Links: | manifest | tags |
Context
|
2009-09-18
| ||
| 11:33 | Updated documentation to indicate how to use new feature check-in: 26f233292e user: rkeene tags: trunk | |
| 11:31 | Added support for specifying packages not to install check-in: 0abbc5472a user: rkeene tags: trunk | |
|
2009-09-06
| ||
| 20:39 | Updated Teapotclient matching to be case insensitive Updated Makefile to try system-wide teapot-client if available check-in: 33f3f786ae user: rkeene tags: trunk | |
Changes
Modified client/teapot-client.tcl from [b79ca22208] to [c44684b043].
| ︙ | ︙ | |||
16 17 18 19 20 21 22 23 24 25 26 27 |
switch -- $cmd {
"get" {
if {[llength $argv] < 4} {
print_help
exit 1
}
set dir [lindex $argv 0]
set os [lindex $argv 1]
set cpu [lindex $argv 2]
set packages [lrange $argv 3 end]
| > > > > > > > > > > > > > | | 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
switch -- $cmd {
"get" {
if {[llength $argv] < 4} {
print_help
exit 1
}
set existingexts [list]
set dir [lindex $argv 0]
set os [lindex $argv 1]
set cpu [lindex $argv 2]
set packages [lrange $argv 3 end]
set newpackages [list]
foreach package $packages {
if {[string index $package 0] == "!"} {
lappend existingexts [string range $package 1 end]
} else {
lappend newpackages $package
}
}
set packages $newpackages
set extsinfo [::teapotclient::download_extensions [file join $dir lib] $teapotservers $packages $os $cpu $existingexts]
set exts [list]
puts "Fetched Extensions:"
foreach {ext extinfo} $extsinfo {
lappend exts $ext
puts " $ext v[lindex $extinfo 0]"
}
|
| ︙ | ︙ |