Check-in [16162d46b5]
Overview
Comment:Updated to not leak file descriptors for invalid sites
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:16162d46b51ed1d7336ea85311c814a8ffa6c570
User & Date: rkeene on 2014-09-10 07:54:02
Other Links: manifest | tags
Context
2014-09-10
07:55
Added basic usage check-in: 6a30dedf77 user: rkeene tags: trunk
07:54
Updated to not leak file descriptors for invalid sites check-in: 16162d46b5 user: rkeene tags: trunk
07:52
Implemented basic close mechanism check-in: e236f4717a user: rkeene tags: trunk
Changes

Modified appfsd.tcl from [ad6530f32d] to [8b965c29ef].

27
28
29
30
31
32
33

34



35
36




37
38
39
40
41
42
43

		if {![file exists $file]} {
			set tmpfile "${file}.new"

			set fd [open $tmpfile "w"]
			fconfigure $fd -translation binary


			set token [::http::geturl $url -channel $fd -binary true]



			set ncode [::http::ncode $token]
			::http::reset $token




			close $fd

			if {$keyIsHash} {
				catch {
					set hash [string tolower [exec openssl sha1 $tmpfile]]
					regsub {.*= *} $hash {} hash
				}







>
|
>
>
>
|
|
>
>
>
>







27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

		if {![file exists $file]} {
			set tmpfile "${file}.new"

			set fd [open $tmpfile "w"]
			fconfigure $fd -translation binary

			catch {
				set token [::http::geturl $url -channel $fd -binary true]
			}

			if {[info exists token]} {
				set ncode [::http::ncode $token]
				::http::reset $token
			} else {
				set ncode "900"
			}

			close $fd

			if {$keyIsHash} {
				catch {
					set hash [string tolower [exec openssl sha1 $tmpfile]]
					regsub {.*= *} $hash {} hash
				}