Diff

Differences From Artifact [c44684b043]:

To Artifact [bc242be260]:


     1      1   #! /usr/bin/env tclsh
     2      2   
     3         -set teapotservers [list teapot.activestate.com]
            3  +set teapotservers [list teapot.activestate.com teapot.rkeene.org]
     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     10   	puts stderr "Usage: teapot-client get <dir> <os> <cpu> <packages...>"
................................................................................
    72     72   		}
    73     73   		if {[llength $argv] > 1} {
    74     74   			set cpu [lindex $argv 1]
    75     75   		}
    76     76   
    77     77   		puts "Extensions available for OS=$os, CPU=$cpu:"
    78     78   
    79         -		array set exts [::teapotclient::get_extensions $teapotservers $os $cpu]
           79  +		foreach teapotserver $teapotservers {
           80  +			array set exts [::teapotclient::get_extensions $teapotserver $os $cpu]
           81  +		}
           82  +
    80     83   		foreach ext [lsort -dictionary [array names exts]] {
    81     84   			set extinfo $exts($ext)
    82     85   
    83     86   			set extvers [list]
    84     87   			foreach extinfoitem $extinfo {
    85     88   				set extinfoitemvers [lindex $extinfoitem 0]
    86     89   				if {[lsearch -exact $extvers $extinfoitemvers] == -1} {