@verb #1004:"retrieve_listing" this none this rxdo #7165
@program #1004:"retrieve_listing" this none this
{zip, ?time = time()} = args
"Stores data in #1004.current_listing with this format:"
"{<channel number>, <channel name>, <start time>, <length>, <name>, <genre>, <lookup tag>}"
time = this:calc_time(time)
"if ({zip, time} == this.current_listing[1..2])"
"return;"
"endif"
listing = {zip, time}
l = $network:get_url(tostr("http://tvguide.com/Listings/GridView.asp?I=64421&Zip=", zip, "&ST=", time))
if (l[1] != "HTTP/1.1 200 OK")
  raise(E_INVIND, "TV Guide server is unhappy...")
endif
l[1.."<TR>" in l] = {}
l = $list_utils:explode(l, "<TR>")
for x in (l)
  chan = x[5]
  {chan_num, chan_name} = $string_utils:explode(chan, "&nbsp;")
  s = 10
  while (x[s] != "</TR>")
    genre_length = $html_utils:tag_explode_args(x[s])
    show = x[s + 1]
    listing = {@listing, {toint(chan_num), chan_name, "Now", "Later", show, "something", "sometag"}}
    x[s + 2] == "" && (s = s + 1)
    s = s + 3
  endwhile
  $cmd_utils:suspend_if_needed()
endfor
this.current_listing = listing
"Last modified by Dax (#789) on Tue May  3 14:13:05 2005 MDT."
.