Check-in [16162d46b5]
Overview
Comment:Updated to not leak file descriptors for invalid sites
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 16162d46b51ed1d7336ea85311c814a8ffa6c570
User & Date: rkeene on 2014-09-10 07:54:02.021
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
27
28
29
30
31
32
33

34
35
36










37
38
39
40
41
42
43
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]
			set ncode [::http::ncode $token]
			::http::reset $token
				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
				}