Check-in [b4c6d05df2]
Overview
Comment:Updated to store files using names that Windows can cope with
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:b4c6d05df202d556586ed71f3d6332e1148592c2
User & Date: rkeene on 2012-05-14 20:16:26
Other Links: manifest | tags
Context
2012-08-19
16:50
Upgraded to tcllib 1.14 check-in: b61e6038a8 user: rkeene tags: trunk
2012-05-14
20:16
Updated to store files using names that Windows can cope with check-in: b4c6d05df2 user: rkeene tags: trunk
2012-05-12
18:20
Updated ignores check-in: cacef894ea user: rkeene tags: trunk
Changes

Modified client/lib/teapotclient0.1/teapotclient.tcl from [a38541090a] to [ce9ff0669b].

120
121
122
123
124
125
126


127
128
129
130
131
132
133
134
...
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175

			set pkginfo [lindex $pkgdata($extension) 0]

			set ver [lindex $pkginfo 0]
			set arch [lindex $pkginfo 1]
			set server [lindex $pkginfo 2]



			set pkgdir [file join $rootdir $extension$ver]
			file mkdir $pkgdir $::teapotclient::pkgcachedir

			set url "http://$server/package/name/$extension/ver/$ver/arch/$arch/file"
			set urlcachefile [file join $::teapotclient::pkgcachedir [::md5::md5 -hex $url]]

			if {![file exists $urlcachefile]} {
				set tmpfd [open $urlcachefile w]
................................................................................
						}
						close $fd
					}
				}
				"(^| )text($| )" {
					unset -nocomplain fd

					set extfile [file join $pkgdir ${extension}.tcl]
					set idxfile [file join $pkgdir pkgIndex.tcl]

					catch {
						file copy -force -- $urlcachefile $extfile

						set fd [open $idxfile w]
						puts $fd "package ifneeded $extension $ver \[list source \[file join \$dir [file tail $extfile]\]\]"







>
>
|







 







|







120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
...
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177

			set pkginfo [lindex $pkgdata($extension) 0]

			set ver [lindex $pkginfo 0]
			set arch [lindex $pkginfo 1]
			set server [lindex $pkginfo 2]

			set safe_ext_name [string map [list ":" "_"] $extension]

			set pkgdir [file join $rootdir ${safe_ext_name}$ver]
			file mkdir $pkgdir $::teapotclient::pkgcachedir

			set url "http://$server/package/name/$extension/ver/$ver/arch/$arch/file"
			set urlcachefile [file join $::teapotclient::pkgcachedir [::md5::md5 -hex $url]]

			if {![file exists $urlcachefile]} {
				set tmpfd [open $urlcachefile w]
................................................................................
						}
						close $fd
					}
				}
				"(^| )text($| )" {
					unset -nocomplain fd

					set extfile [file join $pkgdir ${safe_ext_name}.tcl]
					set idxfile [file join $pkgdir pkgIndex.tcl]

					catch {
						file copy -force -- $urlcachefile $extfile

						set fd [open $idxfile w]
						puts $fd "package ifneeded $extension $ver \[list source \[file join \$dir [file tail $extfile]\]\]"