2a3
@verb #456:"cvsinfo_set" this none this rxdo #55
@program #456:"cvsinfo_set" this none this
caller_perms().wizard && caller == this || raise(E_PERM)
{o, ci} = args
{root, dir, @files} = ci
out = {root, dir}
for x in (files)
  {root, dir, name, version, hash} = x
  out = {@out, tostr(root, "|", dir, "|", name, "|", version, "|", hash)}
  $command_utils:suspend_if_needed()
endfor
o:filewrite("_cvs", out)
"Last modified by Lao-Tzu (#8084) on Tue Dec 11 04:43:02 2001 MST."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:06 2002 MDT."
.

0