Some sites of interest: * McKesson Provider Technologies [http://www.mckesson.com/en_us/McKesson.com/Our%2BBusinesses/McKesson%2BProvider%2BTechnologies/McKesson%2BProvider%2BTechnologies.html] - where I work as a User Interface Design Engineer * O'Neil & Associates, Inc. [http://www.oneil.com] - my primary role at O'Neil was that of UI Developer for web and client-side software * My personal web site [http://www.wjeffreyrankin.com] ---- Here's a little script that determines the link to the current Astronomy Picture of the Day [http://antwrp.gsfc.nasa.gov/apod/astropix.html]: #!/bin/sh # -*- tcl -*- # The next line is executed by /bin/sh, but not tcl \ exec tclsh "$0" ${1+"$@"} package require http set base_url http://antwrp.gsfc.nasa.gov/apod set site [http::geturl $base_url/astropix.html] set html [http::data $site] regexp -nocase -linestop {(src="(.*)")} $html match src image puts $base_url/$image Here's the same thing as a [TclHttpd] template ('''Note:''' You'll want to have a 'package require http' in this template or in the .tml file): [ Doc_Dynamic set base_url http://antwrp.gsfc.nasa.gov/apod set template astropix.html set site [http::geturl $base_url/$template] set html [http::data $site] regexp -nocase -linestop {(src="(.*)")} $html match src image return ]

APOD

---- '''Some pages I've started, or plan on starting:''' * [TclHttpd RSS Processing] * [Simple Chaos Theory with Tcl] * [Generating Accessible HTML] * [TclHttpd as a Windows Service] * [TclHttpd: The .tml File] * [Web Site Status] ---- Could you add a way to contact you? Sure, my email is mailto:jeffrankin@mac.com <>Person | Home Page