View/Edit #456:cvsinfo_set

Name(s): cvsinfo_set

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

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.