Check-in [d0513156ec]
Overview
Comment:Updated to download files as binary
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:d0513156ec22fec7b239942a28cc6abcb79048dc
User & Date: rkeene on 2014-09-09 06:46:34
Other Links: manifest | tags
Context
2014-09-09
06:46
Implemented basic open() and read() check-in: a7c7a7a363 user: rkeene tags: trunk
06:46
Updated to download files as binary check-in: d0513156ec user: rkeene tags: trunk
06:10
Added executable bit check-in: 99c9d35a89 user: rkeene tags: trunk
Changes

Modified appfs.tcl from [10ad08f811] to [8e33ab2552].

    24     24   
    25     25   		file mkdir [file dirname $file]
    26     26   
    27     27   		if {![file exists $file]} {
    28     28   			set tmpfile "${file}.new"
    29     29   
    30     30   			set fd [open $tmpfile "w"]
           31  +			fconfigure $fd -translation binary
    31     32   
    32         -			set token [::http::geturl $url -channel $fd]
           33  +			set token [::http::geturl $url -channel $fd -binary true]
    33     34   			set ncode [::http::ncode $token]
    34     35   			::http::reset $token
    35     36   			close $fd
    36     37   
    37     38   			if {$ncode == "200"} {
    38     39   				file rename -force -- $tmpfile $file
    39     40   			} else {