Check-in [037c0fa432]
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: 037c0fa43201df9f0d2bffb0c139a840568e728f
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
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
107

108
109
110
111
112
113
114
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 {
						exec unzip -d $pkgdir -n -qq $urlcachefile
						__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} {