Check-in [0abbc5472a]
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:0abbc5472a83c7b24a6de262159c4b880acb054e
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











28
29
30
31
32
33
34
35

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]











		set extsinfo [::teapotclient::download_extensions [file join $dir lib] $teapotservers $packages $os $cpu]
		set exts [list]
		puts "Fetched Extensions:"
		foreach {ext extinfo} $extsinfo {
			lappend exts $ext
			puts "  $ext v[lindex $extinfo 0]"
		}








>
>





>
>
>
>
>
>
>
>
>
>
>
|







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]"
		}