Overview
| Comment: | Added extra sanity checks to home directory searching. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
de2b9ae7170da19339f52287ad2af863 |
| User & Date: | rkeene on 2009-04-18 22:30:10 |
| Other Links: | manifest | tags |
Context
|
2009-04-19
| ||
| 08:19 | Added support for using "vfs::zip" if it is available. check-in: 738556ed56 user: rkeene tags: trunk | |
|
2009-04-18
| ||
| 22:30 | Added extra sanity checks to home directory searching. check-in: de2b9ae717 user: rkeene tags: trunk | |
| 22:28 | Made unzipping its own procedure, in the hopes of replacing it with a portable unzipping routine in the future. check-in: 037c0fa432 user: rkeene tags: trunk | |
Changes
Modified client/lib/teapotclient0.1/teapotclient.tcl from [0dfe97b138] to [e17f36fccf].
| ︙ | ︙ | |||
11 12 13 14 15 16 17 18 19 20 21 22 |
namespace eval ::teapotclient {
proc __get_tmpdir {} {
foreach checkenv [list TMPDIR TEMP TMP TEMPDIR] {
if {[info exists ::env($checkenv)]} {
return $::env($checkenv)
}
}
return "/tmp"
}
proc __get_homedir {} {
if {[info exists ::env(HOME)]} {
| > > | > > | > | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 |
namespace eval ::teapotclient {
proc __get_tmpdir {} {
foreach checkenv [list TMPDIR TEMP TMP TEMPDIR] {
if {[info exists ::env($checkenv)]} {
return $::env($checkenv)
}
}
return "/tmp"
}
proc __get_homedir {} {
if {[info exists ::env(HOME)]} {
if {[file exists $::env(HOME)]} {
return $::env(HOME)
}
}
catch {
set ::env(HOME) [file normalize ~]
}
if {[info exists ::env(HOME)]} {
if {[file exists $::env(HOME)]} {
return $::env(HOME)
}
}
set ::env(HOME) [file join [__get_tmpdir] FAKEHOME_$tcl_platform(user)]
catch {
file mkdir $::env(HOME)
}
|
| ︙ | ︙ |