@verb #2570:"authorise" this none this rdo #7165
@program #2570:"authorise" this none this
"Begin generic security check (authorise)"
if (verb == "authorise" && caller != $perm_utils)
  raise(E_PERM, "Calls to authorise must be made through $perm_utils:authorise_user.")
  return E_PERM
endif
"End generic security check (authorise)"
if (!$perm_utils:can_hack())
  raise(E_PERM)
endif
if ($tcm)
  return 0
else
  return pass(@args)
endif
"Last modified by Lao-Tzu (#8084) on Mon Dec 17 13:56:28 2001 MST."
.