Modified build/utils/kitcreator-downloader.tcl from [f7dbe58451] to [a023a886a6].

     1      1   #!/usr/bin/env tclsh
     2         -# KitCreator downloader v0.2.0 -- download Tclkits created with the KitCreator
            2  +# KitCreator downloader v0.2.1 -- download Tclkits created with the KitCreator
     3      3   # Web Interface. Works with Tcl 8.5+ and Jim Tcl v0.75+.
     4      4   # Copyright (C) 2016, dbohdan.
     5      5   # License: MIT.
     6      6   proc download url {
     7      7       # Guess at what the buildinfo URL might be if we are given, e.g., a building
     8      8       # page URL.
     9      9       set url [string map {/building {}} $url]
................................................................................
    33     33       if {[string index $baseUrl end] ne {/}} {
    34     34           append baseUrl /
    35     35       }
    36     36       set tclkit $baseUrl[dict get $buildInfo filename]
    37     37   
    38     38       puts "Downloading $tclkit to $filename..."
    39     39       exec curl -o $filename $tclkit >@ stdout 2>@ stderr
           40  +    file attributes $filename -permissions +x
    40     41   }
    41     42   
    42     43   set url [lindex $argv 0]
    43     44   if {$url eq {}} {
    44     45       puts "usage: $argv0 url"
    45     46       puts {The URL must be a KitCreator Web Interface buildinfo page.}
    46     47   } else {
    47     48       download $url
    48     49   }