1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
-
-
+
+
|
#! /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.tcl get <dir> <os> <cpu> <packages...>"
puts stderr "Usage: teapot-client.tcl list ?<os> ?<cpu>??"
puts stderr "Usage: teapot-client get <dir> <os> <cpu> <packages...>"
puts stderr "Usage: teapot-client list ?<os> ?<cpu>??"
}
set cmd [lindex $argv 0]
set argv [lrange $argv 1 end]
switch -- $cmd {
"get" {
|