View/Edit #7639:_kick

Switch to edit mode.

1:  "Begin generic security check (_kick)"
2:  if (verb == "_kick" && !args[1]:isa(this))
3:    raise(E_INVARG, "Illegal object", args[1])
4:    return E_INVARG
5:  endif
6:  "End generic security check (_kick)"
7:  "Look for tricorder modules."
8:  for x in [1..9999]
9:    object = toobj(x)
10:   $command_utils:suspend_if_needed()
11:   `object.module_ok ! E_PROPNF => 0' && this:_set_known_modules(setadd(this.known_modules, object))
12:   return pass(@args)
13: endfor
14: "Last modified by Lao-Tzu (#8084) on Tue Dec 18 08:29:54 2001 MST."

[home | help | who | search | setup | code]