View/Edit #9909:authorise

Switch to edit mode.

1:  "Copied from Mark_VI_Shaney (#2570):authorize by manta (#7165)Feb 21 09:51:06 1999"
2:  "Begin generic security check (authorise)"
3:  if (verb == "authorise" && caller != $perm_utils)
4:    raise(E_PERM, "Calls to authorise must be made through $perm_utils:authorise_user.")
5:    return E_PERM
6:  endif
7:  "End generic security check (authorise)"
8:  if (!$perm_utils:can_hack())
9:    raise(E_PERM)
10: endif
11: if ($tcm)
12:   return 0
13: else
14:   return pass(@args)
15: endif
16: "Last modified by Lao-Tzu (#8084) on Mon Dec 17 13:56:28 2001 MST."

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