View/Edit #4:_destructor

Name(s): _destructor

1:  "Begin generic security check (_destructor)"
2:  if (verb == "_destructor" && caller_perms() != #-1)
3:    raise(E_PERM)
4:    return E_PERM
5:  endif
6:  "End generic security check (_destructor)"
7:  if (caller_perms() == #-1)
8:    args[1]:_set_teachers({})
9:    args[1]:_set_students({})
10:   args[1]:zap_contribs()
11:   $clock:zap_tasks(args[1])
12:   disowned = setremove(args[1].owned_objects, args[1])
13:   fork (5)
14:     $repo_man:dispatch(@disowned)
15:   endfork
16: endif
17: "Last modified by Slacker (#55) on Sat Mar 30 16:27:09 2002 MST."
18: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
19: "Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.