@verb #340:"@login" this at/to any rdo #7214
@program #340:"@login" this at/to any
$perm_utils:controls(player, this) || raise(E_PERM)
old_root = this.CVSROOT
this:_set_cvsroot(iobjstr)
{server, root, user} = this.CVSROOT
player:tell("(Logging into ", server, ")")
player:tell("CVS password for ", user, ": ")
p = read(player)
if (this:login(p))
  player:tell("Login successful")
endif
"Last modified by manta (#7165) on Thu May  4 00:19:00 2000 MDT."
.