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

			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]







>
>
|







120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136

			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]
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
						}
						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]\]\]"







|







163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
						}
						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]\]\]"