View/Edit #456:set_contents

Switch to edit mode.

1:  {object, cvsroot, update} = args
2:  set_task_perms(caller_perms())
3:  {path, filename, version, perms, text} = update
4:  name = $file_utils:trans_from(filename)
5:  repository = cvsroot[rindex(cvsroot, ":") + 1..$]
6:  path = path[length(repository) + 2..$]
7:  path = path[1..$ - length(filename) - 1]
8:  type = name[1]
9:  oname = name[2..$]
10: if (type == "V")
11:   $xml_dump_utils:load_verb(object, oname, text)
12:   hash = value_hash(text)
13: else
14:   hash = value_hash(text)
15: endif
16: {cvsroot, dir, @entries} = this:cvsinfo(object)
17: if (ei = $list_utils:iassoc(name, entries, 3))
18:   {cvsroot, path} = entries[ei][1..2]
19:   entries[ei] = {cvsroot, path, filename, version, hash}
20: else
21:   entries = {@entries, {cvsroot, path, filename, version, hash}}
22: endif
23: ci = {cvsroot, dir, @entries}
24: this:cvsinfo_set(object, ci)
25: "Last modified by manta (#7165) on Fri Oct 12 13:13:44 2001 MDT."
26: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
27: "Last modified by Dax (#789) on Sat Aug 17 14:50:06 2002 MDT."

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