376
@verb #101:"bf_create bf_recycle" this none this rxdo #55
@program #101:"bf_create bf_recycle" this none this
set_task_perms(caller_perms())
if (task_id() in this.hard_creating_tasks && caller_perms().wizard)
  this.hard_creating_tasks = setremove(this.hard_creating_tasks, task_id())
  retval = pass(@args)
  if (verb == "bf_create")
    "Hard-creating new object. It might need a new directory for itself on the filesystem, so create one."
    if (typeof(basedir = `retval:basedir() ! ANY') != $ERR)
      dirs = $string_utils:explode(basedir, "/")
      existing = ""
      for dir in (dirs)
        `filemkdir(existing, dir) ! E_PERM'
        existing = existing ? tostr(existing, "/", dir) | dir
      endfor
    endif
  endif
  return retval
else
  return $recycler:(verb[4..$])(@args)
endif
"Last modified by Dax (#789) on Wed May  4 06:46:29 2005 MDT."
.

0