View/Edit #456:checkout co

Switch to edit mode.

1:  caller_perms().wizard && caller == this || raise(E_PERM)
2:  {cvsroot, object} = args
3:  o = player:match_object(object)
4:  {cvsroot, module} = o._CVS
5:  repository = cvsroot[rindex(cvsroot, ":") + 1..$]
6:  h = this:open_connection(cvsroot, player)
7:  {updates, commits} = $cvs:get(h, repository, module)
8:  for x in (updates)
9:    this:set_contents(o, cvsroot, x)
10: endfor
11: player:tell("--- CVS: done ---")
12: "Last modified by Lao-Tzu (#8084) on Tue Dec 11 04:46:21 2001 MST."
13: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
14: "Last modified by Dax (#789) on Sat Aug 17 14:50:06 2002 MDT."

[home | help | who | search | setup | code]