2ad
@verb #80:"refererlisted" this none this rxdo #55
@program #80:"refererlisted" this none this
":refererlisted(URL) => is URL on the .refererlist"
caller_perms().wizard || raise(E_PERM)
sitelist = this.refererlist
if ((URL = args[1]) in sitelist)
  return 1
else
  for site in (sitelist)
    if (index(site, "*"))
      if ($su:match_string(URL, site))
        return 1
      endif
    endif
  endfor
endif
return 0
"Last modified by Dax (#789) on Sun Feb  6 20:14:01 2000 MST."
"This verb previously owned by Raptor (#6319), and chowned to $slacker upon dewizarding (Sat Aug 17 14:48:43 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:48:43 2002 MDT."
.

0