Updated 2012-08-27 22:43:34 by LkpPo (Redirected from WJR)

Some sites of interest:

  • McKesson Provider Technologies [1] - where I work as a User Interface Design Engineer
  • O'Neil & Associates, Inc. [2] - my primary role at O'Neil was that of UI Developer for web and client-side software
  • My personal web site [3]

Here's a little script that determines the link to the current Astronomy Picture of the Day [4]:
 # -*- 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):

 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


 <style type="text/css">
     body {
         font-family: Arial, Helvetica, sans-serif;

     img#apod {
         width: 144px;
         border: solid 1px #000000;

 <p style="border-top: solid 4px #666666; width: 144px;">
     <span style="font-size: 14px; font-weight: bold; display: block;">
     <a href="$base_url/$template"
     title="Astronomy Picture of the Day">
         <img src="$base_url/$image" id="apod" alt="" />

Some pages I've started, or plan on starting:

Could you add a way to contact you?

Sure, my email is mailto:[email protected]