224
@verb #340:"set_cvsroot" this none this rxdo #7214
@program #340:"set_cvsroot" this none this
caller == this || $perm_utils:controls(caller_perms(), this) || raise(E_PERM)
{cvsroot} = args
m = match(cvsroot, "^:pserver:%([^@]+%)@%([^:]+%):%(.*%)$")
if (!m)
  raise(E_INVARG, tostr("Unparsable CVSROOT: ", cvsroot))
endif
this.CVSROOT = {cvsroot[m[3][2][1]..m[3][2][2]], cvsroot[m[3][3][1]..m[3][3][2]], cvsroot[m[3][1][1]..m[3][1][2]]}
"return {hostname, root, user}"
"Last modified by manta (#7165) on Sun May  7 13:49:19 2000 MDT."
.

0