@verb #7407:"transfer_quota" this none this rxdo #7407
@program #7407:"transfer_quota" this none this
"Prototype quota system, by Cecil"
if (!`caller_perms():controls(this) ! ANY')
  raise(E_PERM)
endif
{who, bytes, objects, dbytes, @args} = args
tbytes = this:transfer_bytes(who, bytes)
tobjects = this:transfer_objects(who, objects)
tdbytes = this:transfer_dbytes(who, dbytes)
return {tbytes, tobjects, tdbytes}
.