Overview
| Comment: | Made unzipping its own procedure, in the hopes of replacing it with a portable unzipping routine in the future. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
037c0fa43201df9f0d2bffb0c139a840 |
| User & Date: | rkeene on 2009-04-18 22:28:08 |
| Other Links: | manifest | tags |
Context
|
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 | |
| 22:22 | Documentation update check-in: 3913113214 user: rkeene tags: trunk | |
Changes
Modified client/lib/teapotclient0.1/teapotclient.tcl from [a933729bfc] to [0dfe97b138].
| ︙ | ︙ | |||
33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
set ::env(HOME) [file join [__get_tmpdir] FAKEHOME_$tcl_platform(user)]
catch {
file mkdir $::env(HOME)
}
return $::env(HOME)
}
set pkgcachedir [file join [__get_homedir] ".teapot-client" "cachedir"]
# Conversions from Teapot-style names to local ones
set osTeapotToLocal(tcl) *
set osTeapotToLocal(linux-*) linux
set osTeapotToLocal(win32) windows
| > > > > | 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 |
set ::env(HOME) [file join [__get_tmpdir] FAKEHOME_$tcl_platform(user)]
catch {
file mkdir $::env(HOME)
}
return $::env(HOME)
}
proc __unzip {dir file} {
exec unzip -d $dir -n -qq $urlcachefile
}
set pkgcachedir [file join [__get_homedir] ".teapot-client" "cachedir"]
# Conversions from Teapot-style names to local ones
set osTeapotToLocal(tcl) *
set osTeapotToLocal(linux-*) linux
set osTeapotToLocal(win32) windows
|
| ︙ | ︙ | |||
100 101 102 103 104 105 106 |
close $tmpfd
}
set retarr($extension) [list $ver $arch $server]
switch -regexp -- [::fileutil::fileType $urlcachefile] {
"(^| )zip($| )" {
catch {
| | | 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 |
close $tmpfd
}
set retarr($extension) [list $ver $arch $server]
switch -regexp -- [::fileutil::fileType $urlcachefile] {
"(^| )zip($| )" {
catch {
__unzip $pkgdir $urlcachefile
}
# Process $pkgdir/teapot.txt
set teapot [file join $pkgdir teapot.txt]
if {[file exists $teapot]} {
set fd [open $teapot r]
for {gets $fd line} {![eof $fd]} {gets $fd line} {
|
| ︙ | ︙ |