@verb #1:"fileappend" this none this rxd #55
@program #1:"fileappend" this none this
{file, data} = args
if (!$perm_utils:controls(caller_perms(), this))
  raise(E_PERM)
elseif (this.owner:free_dbytes() <= 0 && !caller_perms().wizard)
  raise(E_QUOTA, "Disk quota exhasted.")
elseif (file in this.files_unwritable_by_owner && !caller_perms().wizard)
  raise(E_PERM, "File is not writable by the owner.")
endif
filename = $file_utils:trans_to($string_utils:lowercase(file))
fh = file_open($file_utils:filespec(this, file), "a-tf")
try
  for x in ({@data})
    file_writeline(fh, tostr(x))
    $command_utils:suspend_if_needed()
  endfor
finally
  file_close(fh)
endtry
this.obj_disk_size = this.obj_disk_size + value_bytes(data)
"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."
.