@verb #80:"previous_object" this none this rxdo #789
@program #80:"previous_object" this none this
"What was the refering object?"
{?prev = player.referer} = args
if (prev)
  for url in ($sites)
    if ($www.port != 80)
      url = tostr(url, ":", $www.port)
    endif
    pat = "^http[s]?://%(www%.%)?" + $string_utils:regexp_quote(url)
    if (m = match(prev, pat))
      return $www:parse_url(prev[m[2] + 1..$])[1]
    endif
  endfor
endif
return #-1
"Last modified by Dax (#789) on Sun Feb  6 21:01:49 2000 MST."
.