@verb #70:"search_page" this none this rxdo #60
@program #70:"search_page" this none this
{q} = args
q = strsub(q, $su.tab, "")
data = {tostr("7Searching for '", q, "'", $su.tab, "/search", $su.tab, $site, $su.tab, this.port)}
for x in [#0..max_object()]
  if (valid(x) && index(x:nn(), q))
    data = {@data, this:object_link(x, "")}
    $command_utils:suspend_if_needed()
  endif
endfor
if (length(data) == 1)
  data = {@data, tostr("iSorry, no objects with that name/number found.", $su.tab, $su.tab, "error.host", $su.tab, "1")}
endif
return {@data, "."}
"Last modified by Dax (#789) on Sat Jan  5 02:57:43 2002 MST."
.