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]:
 #!/bin/sh
 # -*- tcl -*-
 # The next line is executed by /bin/sh, but not tcl \
 exec tclsh "$0" ${1+"[email protected]"}

 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
 ]

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

     img#apod {
         width: 144px;
         border: solid 1px #000000;
     }
 </style>

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

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


Could you add a way to contact you?

Sure, my email is mailto:[email protected]