View/Edit #456:log

Switch to edit mode.

1:  caller_perms().wizard && caller == this || raise(E_PERM)
2:  {root, rspec} = args
3:  {object, name} = this:parse_rspec(rspec)
4:  {cvsroot, dir, @entries} = this:cvsinfo(object)
5:  e = listassoc(entries, name, 3)
6:  {cvsroot, dir, name, ver, hash} = e
7:  repository = cvsroot[rindex(cvsroot, ":") + 1..$]
8:  h = this:open_connection(cvsroot, player)
9:  try
10:   {updates, commits} = $cvs:log(h, {repository, dir, name, ver, 0})
11: finally
12:   $cvs:close_connection(h)
13: endtry
14: player:tell("--- CVS: done ---")
15: "Last modified by Lao-Tzu (#8084) on Tue Dec 11 04:45:46 2001 MST."
16: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
17: "Last modified by whiz (#3135) on Wed Jan 24 09:23:02 2007 EST."

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