1de
@verb #7407:"Fix-projects" none none none rdo #7407
@program #7407:"Fix-projects" none none none
for x in ($project:descendants())
  player:notify_bin("Testing " + tostr(x) + "... ")
  if (x:free_bytes() < 0 || x:free_objects() < 0 || x:free_dbytes() < 0)
    player:notify("Nuking " + tostr(x))
    for contrib in (x.quota_contribs)
      `x:take_quota(@contrib) ! ANY'
    endfor
  endif
endfor
"Last modified by Cecil (#7407) on Thu Mar 29 13:00:48 2001 MST."
.

0