@verb #340:"login" this none this rxdo #7214
@program #340:"login" this none this
caller == this || $perm_utils:controls(caller_perms(), this) || raise(E_PERM)
{pass} = args
p = this:_encode_password(pass)
old_pass = this.cvspass
this.cvspass = p
c = this:_open_connection()
if (c == 0)
  this.cvspass = old_pass
else
  this:_close_connection()
  return 1
endif
"Last modified by manta (#7165) on Sun May  7 13:50:21 2000 MDT."
.