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: |
16162d46b51ed1d7336ea85311c814a8 |
| 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 |
if {![file exists $file]} {
set tmpfile "${file}.new"
set fd [open $tmpfile "w"]
fconfigure $fd -translation binary
| > | > > > | | > > > > | 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
}
|
| ︙ | ︙ |