Diff

Differences From Artifact [b940fef8b1]:

To Artifact [e6f656d8b6]:


     5      5   
     6      6   package require md5
     7      7   package require http
     8      8   package require fileutil
     9      9   
    10     10   namespace eval ::teapotclient {}
    11     11   namespace eval ::teapotclient {
    12         -	set pkgcachedir "/tmp/DELETEME_teapotclient_[string tolower [md5::md5 -hex [list [info script] $::tcl_platform(user)]]].cache"
           12  +	proc __get_tmpdir {} {
           13  +		foreach checkenv [list TMPDIR TEMP TMP TEMPDIR] {
           14  +			if {[info exists ::env($checkenv)]} {
           15  +				return $::env($checkenv)
           16  +			}
           17  +		}
           18  +		return "/tmp"
           19  +	}
           20  +
           21  +	set pkgcachedir [file join [__get_tmpdir] "DELETEME_teapotclient_[string tolower [md5::md5 -hex [list [info script] $::tcl_platform(user)]]].cache"]
    13     22   
    14     23           # Conversions from Teapot-style names to local ones
    15     24   	set osTeapotToLocal(tcl) *
    16     25   	set osTeapotToLocal(linux-*) linux
    17     26   	set osTeapotToLocal(win32) windows
    18     27   	set osTeapotToLocal(solaris*) solaris
    19     28   	set osTeapotToLocal(freebsd) freebsd_*
................................................................................
   146    155   			if {[lsearch $existingExts $dep] == -1} {
   147    156   				lappend existingExts $dep
   148    157   				lappend fetchDeps $dep
   149    158   			}
   150    159   		}
   151    160   
   152    161   		if {[info exists fetchDeps]} {
   153         -			set addRet [download_extensions_teapot $rootdir $servers $fetchDeps $os $cpu $existingExts]
          162  +			set addRet [download_extensions $rootdir $servers $fetchDeps $os $cpu $existingExts]
   154    163   			array set retarr $addRet
   155    164   		}
   156    165   
   157    166   		return [array get retarr]
   158    167   	}
   159    168   
   160    169   	proc get_extensions {server {limitos "*"} {limitcpu "*"}} {