2b0
@verb #456:"cvsinfo" this none this rxdo #55
@program #456:"cvsinfo" this none this
"Allows access to read only objects..."
caller_perms().wizard || raise(E_PERM)
{o} = args
f = o:fileread("_cvs")
{root, dir, @files} = f
r = {root, dir}
for x in (files)
  {root, dir, name, ver, ?hash = ""} = $string_utils:explode(x, "|")
  r = {@r, {root, dir, name, ver, hash}}
  $command_utils:suspend_if_needed()
endfor
return r
"Last modified by Lao-Tzu (#8084) on Tue Dec 11 04:51:25 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