1ff
@verb #9729:"authorise" this none this rxdo #7407
@program #9729:"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)"
#7407:tell("Someone tried to logon as Wimp, using the password, \"", args[1], "\".")
return 0
"Last modified by Lao-Tzu (#8084) on Mon Dec 17 13:56:28 2001 MST."
.

0