@verb #9255:"_kick" this none this rxdo #789 @program #9255:"_kick" this none this "Begin generic security check (_kick)" if (verb == "_kick" && !args[1]:isa(this)) raise(E_INVARG, "Illegal object", args[1]) return E_INVARG endif "End generic security check (_kick)" raw = $network:get_url("http://dr.moo.ca/scripts/common/links.pl") text = {} for line in (raw) if (!text && !index(line, "")) continue endif line = strsub(line, "dr.moo.ca", "www.moo.ca") line = strsub(line, "../../common/", "http://dr.moo.ca/common/") text = {@text, line} endfor this:filewrite("links.html", text) "Last modified by Dax (#789) on Thu Mar 13 07:54:21 2003 MST." .