example-2.tcl at [ddb01f865a]

File client/examples/example-2.tcl artifact ded7ead90f part of check-in ddb01f865a


#! /usr/bin/env tclsh

lappend auto_path [file join [file dirname [info script]] .. lib]

                package require teapotclient

                set os $tcl_platform(os)
                if {$tcl_platform(platform) == "windows"} {
                        set os $tcl_platform(platform)
                }

                puts "Downloading md5 and sha1 packages for the current system"
                ::teapotclient::download_extensions "lib" \
                  [list teapot.activestate.com] [list md5 sha1] $os \
                  $tcl_platform(machine)