Artifact 835098013acc73843a36bd3488f22f13bfa6bce8:

• Executable file client/examples/example-1.tcl — part of check-in [698e02690e] at 2010-02-05 05:14:02 on branch trunk — Updated example to use single server (user: rkeene, size: 496) [annotate] [blame] [check-ins using]

#! /usr/bin/env tclsh

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

		package require teapotclient

                puts "The following extensions are available:"
                foreach {extension extensioninfo} [::teapotclient::get_extensions \
                                                   teapot.activestate.com \
                                                   {*} {*}] {
                        puts "  $extension [join $extensioninfo {, }]"
                }