4fc
@verb #101:"bf_set_verb_code" this none this rxdo #55
@program #101:"bf_set_verb_code" this none this
"Copied from Hobbes (#9299):bf_set_verb_code Aug 21 18:07:17 1997"
{object, verb, code} = args
if (index(code ? code[$] | "", "\"Last modified by", 1) == 1)
  code = listdelete(code, length(code))
endif
if (`caller_perms().wizard || caller_perms().include_last_modified_date ! ANY => 1' && callers()[1][2] != "deval")
  code = {@code, tostr("\"Last modified by ", caller_perms().name, " (", caller_perms(), ") on ", ctime(), ".\";")}
endif
if (!caller_perms():controls_verb(object, verb))
  raise(E_PERM, "You don't control that verb.")
endif
retval = pass(object, verb, code)
if (!$perm_utils:is_called_from($code_utils, "generic_security_check"))
  set_task_perms(caller_perms())
  vnames = verb_info(object, verb)[3]
  for x in ($su:explode(vnames, " "))
    try
      $code_utils:generic_security_check(object, x)
    except (E_PROPNF)
      "acceptable."
    except q (ANY)
      "$wiz_utils:wiz_alert(tostr(\"set_verb_code(\", toliteral(object), \", \", toliteral(verb), \", ...) failed in generic_security_check setting.\"));"
    endtry
  endfor
endif
return retval
"Last modified by Lao-Tzu (#8084) on Sat Aug 10 06:42:19 2002 MDT."
.

0