# byte based quota

Edward Goff (egoff@iquest.com)
Tue, 30 Apr 1996 18:51:05 PDT

- Messages sorted by:[ date ][ thread ][ subject ][ author ]

    Has anyone gotten it to work. .since 1.7.8p4 ?? I didn't try on 1.7.9p2
    and 1.8.0p2 won't do it. E_PERM in obj #80.. went to 1.8.0p4 hoping to
    fix it after several wizards said ain't fixable.. (BTW its a basic core.
    no modsat all yet..

    BTW here's the TB when we tried it with 1.8.0p4

    #80:charge_quota, line 16:  Permission denied
    ... called from #80:bi_create, line 7
    ... called from #62:_create, line 6
    ... called from #4:_create (this == #2), line 5
    ... called from #4:@create (this == #2), line 29
    (End of traceback)

    and said verb

    #80:charge_quota   this none this
     1:  "Charge args[1] for the quota required to own args[2]";
     2:  if (caller == this || caller_perms().wizard)
     3:    usage_index = 2;
     4:    unmeasured_index = 4;
     5:    who = args[1];
     6:    what = args[2];
     7:    object_size = $object_utils:has_property(what, "object_size") ?
    what.object_size[1] | -1;
     8:    if (object_size <= 0)
     9:      who.size_quota[unmeasured_index] =
    who.size_quota[unmeasured_index] +
    1;
    10:    else
    11:      who.size_quota[usage_index] = who.size_quota[usage_index] +
    object_size;
    12:    endif
    13:  else
    14:    return E_PERM;
    15:  endif

    me where's line 16 (or in p2 wheres line 8 on add_quota (think thats the
    verb.)))

    egoff@vespucci.iquest.com