@@ -7,11 +7,20 @@ package require http package require fileutil namespace eval ::teapotclient {} namespace eval ::teapotclient { - set pkgcachedir "/tmp/DELETEME_teapotclient_[string tolower [md5::md5 -hex [list [info script] $::tcl_platform(user)]]].cache" + proc __get_tmpdir {} { + foreach checkenv [list TMPDIR TEMP TMP TEMPDIR] { + if {[info exists ::env($checkenv)]} { + return $::env($checkenv) + } + } + return "/tmp" + } + + set pkgcachedir [file join [__get_tmpdir] "DELETEME_teapotclient_[string tolower [md5::md5 -hex [list [info script] $::tcl_platform(user)]]].cache"] # Conversions from Teapot-style names to local ones set osTeapotToLocal(tcl) * set osTeapotToLocal(linux-*) linux set osTeapotToLocal(win32) windows @@ -148,11 +157,11 @@ lappend fetchDeps $dep } } if {[info exists fetchDeps]} { - set addRet [download_extensions_teapot $rootdir $servers $fetchDeps $os $cpu $existingExts] + set addRet [download_extensions $rootdir $servers $fetchDeps $os $cpu $existingExts] array set retarr $addRet } return [array get retarr] }