346
@verb #2:"_set_best_before" this none this rxd #55
@program #2:"_set_best_before" this none this
"object:_set_best_before([until])"
"extends object until <until>.  If <until> is not specified, extends object for the appropriate time for that object class."
{?until = time() + (this.owner:is_over_quota() ? 3600 * 48 | this.extend_expiry_time)} = args
if (!caller_perms():isa($guardian))
  raise(E_PERM)
elseif (this:_get_solidified() || this:_get_petrified())
  raise(E_INVARG)
  "Don't allow unfreezing of frozen objects"
else
  return this.best_before = until
endif
"Last modified by Lao-Tzu (#8084) on Wed Feb 21 12:41:06 2001 MST."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.

0