@verb #1409:"update" this none this rxdo #8084
@program #1409:"update" this none this
caller_perms().wizard || raise(E_PERM, "Love ya dear!")
hour = toint(ctime()[12..13])
if (hour > 16 || hour < 6)
  return
elseif (index(ctime(), "Sat") == 1 || index(ctime(), "Sun") == 1)
  return
endif
for __x in [1..3]
  update = this.last_update + 1
  if (`this.quotes[update] ! E_RANGE' == E_RANGE)
    update = 1
  endif
  if (this.quotes[update][2] == -1)
    this.last_update = update
    continue
  endif
  quote = `this:_get_quote(this.quotes[update][1]) ! E_INVARG'
  if (quote == E_INVARG)
    "    $mail_agent:send_message(this, {#8084, #7407}, \"Invalid Symbol\", {(\"I was unable to get a quote for stock market symbol '\" + tostr(this.quotes[update][1])) + \"'. I've ignored it.\"});"
  else
    this.quotes[update][2] = quote
  endif
  this.last_update = update
endfor
"Last modified by Dax (#789) on Tue May  3 14:09:33 2005 MDT."
.