Diff

Differences From Artifact [74f5cdd85f]:

To Artifact [dbdef8ce98]:


     3      3   set teapotservers [list teapot.activestate.com]
     4      4   
     5      5   lappend auto_path [file join [file dirname [info script]] lib]
     6      6   
     7      7   package require teapotclient
     8      8   
     9      9   proc print_help {} {
    10         -	puts stderr "Usage: teapot-client.tcl get <dir> <os> <cpu> <packages...>"
    11         -	puts stderr "Usage: teapot-client.tcl list ?<os> ?<cpu>??"
           10  +	puts stderr "Usage: teapot-client get <dir> <os> <cpu> <packages...>"
           11  +	puts stderr "Usage: teapot-client list ?<os> ?<cpu>??"
    12     12   }
    13     13   
    14     14   set cmd [lindex $argv 0]
    15     15   set argv [lrange $argv 1 end]
    16     16   
    17     17   switch -- $cmd {
    18     18   	"get" {