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     33   		set ::env(HOME) [file join [__get_tmpdir] FAKEHOME_$tcl_platform(user)]
    34     34   		catch {
    35     35   			file mkdir $::env(HOME)
    36     36   		}
    37     37   
    38     38   		return $::env(HOME)
    39     39   	}
           40  +
           41  +	proc __unzip {dir file} {
           42  +		exec unzip -d $dir -n -qq $urlcachefile
           43  +	}
    40     44   
    41     45   	set pkgcachedir [file join [__get_homedir] ".teapot-client" "cachedir"]
    42     46   
    43     47           # Conversions from Teapot-style names to local ones
    44     48   	set osTeapotToLocal(tcl) *
    45     49   	set osTeapotToLocal(linux-*) linux
    46     50   	set osTeapotToLocal(win32) windows
................................................................................
   100    104   				close $tmpfd
   101    105   			}
   102    106   
   103    107   			set retarr($extension) [list $ver $arch $server]
   104    108   			switch -regexp -- [::fileutil::fileType $urlcachefile] {
   105    109   				"(^| )zip($| )" {
   106    110   					catch {
   107         -						exec unzip -d $pkgdir -n -qq $urlcachefile
          111  +						__unzip $pkgdir $urlcachefile
   108    112   					}
   109    113   
   110    114   					# Process $pkgdir/teapot.txt
   111    115   					set teapot [file join $pkgdir teapot.txt]
   112    116   					if {[file exists $teapot]} {
   113    117   						set fd [open $teapot r]
   114    118   						for {gets $fd line} {![eof $fd]} {gets $fd line} {