Brandon

alias nasa {  if ($sock(*nasa,0)) echo 4 -agtle Download in progress, please wait!  else {    sockopen nasa www.nasa.gov 80    sockmark nasa /  }}on *:signal:nasa:{  sockclose *nasa  unset %ndescript  noop $input(Error downloading Nasa Image of the Day.,ohu,Error)}on *:close:@Nasa: unset %ndescriptmenu @Nasa {  sclick: noop $input(%ndescript,oiu,About the Image)}on *:sockopen:*nasa:{  if ($sockerr) .signal -n nasa  sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.0  sockwrite $sockname Host: $sock($sockname).addr $  $str($crlf,2)  sockmark $sockname $false}on *:sockread:nasa:{  if ($sockerr) .signal -n nasa  else {    var %s    sockread %s    if ($regex(%s,/<a href="\/multimedia. ALT="(. )". SRC="(\/images\/content\/. )"/U)) {      set %ndescript $regml(1)      sockopen _nasa $sock($sockname).addr 80      sockmark _nasa $regml(2)      sockclose $sockname    }  }}on *:sockread:_nasa:{  if ($sockerr) .signal -n nasa  else {    if ($sock($sockname).mark) {      :i      sockread &iod      bwrite iod.jpg -1 -1 &iod      if ($sock($sockname).rq) goto i      if ($file(iod.jpg).size >= $sock($sockname).mark) {        sockclose $sockname        window -Cpdow0k0  fbnL @Nasa 1 1 $calc($pic(iod.jpg).width  7) $calc($pic(iod.jpg).height  24)        drawpic @Nasa -1 -1 iod.jpg        titlebar @Nasa Image of the Day! (Click image for description)        .timer 1 1 .remove iod.jpg      }    }    else {      var %s      :head      sockread %s      if (content-len isin %s) sockmark $sockname $gettok(%s,2,32)      if (%s) goto head    }  }}