File client/examples/example-2.tcl artifact ded7ead90f part of check-in 5435b29fc0
#! /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)