KitCreator downloader v0.1.0

#!/usr/bin/env tclsh
# KitCreator downloader v0.1.0
proc download url {
    set page [split [exec curl -s $url] \n]
    set descr [lsearch -glob -inline $page *Description:*]
    regexp {(http://kitcreator.rkeene.org/[^"]+/tclkit)} \
            [lsearch -glob -inline $page *URL:*] _ url

    set filename tclkit

    regexp {Tcl ([0-9.]+)} $descr _ version
    append filename -$version

    regexp {Platform ([-a-z0-9]+)} $descr _ platform
    append filename -$platform

    if {[regexp {packages statically linked} $descr]} {
        append filename -staticpkgs
    }

    if {[regexp {Threaded} $descr]} {
        append filename -threaded
    }

    if {[regexp {Packages: (.*)} $descr _ packages]} {
        foreach package $packages {
            set package [string trimright $package ,]
            append filename -$package
        }
    }

    puts "Downloading $url to $filename..."
    exec curl -o $filename $url > stdout 2> stderr
}

download [lindex $argv 0]