30f
@verb #340:"_open_connection" this none this rxdo #7214
@program #340:"_open_connection" this none this
caller == this || raise(E_PERM)
{server, root, user} = this.CVSROOT
c = open_network_connection(server, 2401)
set_connection_option(c, "hold-input", 1)
this:_send_line(c, "BEGIN AUTH REQUEST")
this:_send_line(c, root)
this:_send_line(c, user)
this:_send_line(c, this.cvspass)
this:_send_line(c, "END AUTH REQUEST")
result = read(c)
if (result == "I LOVE YOU")
  this:_send_line(c, "Valid-responses ", $string_utils:from_list(this.Valid_responses, " "))
  this:_send_line(c, "UseUnchanged ")
  this:_send_line(c, "Root ", root)
  return c
else
  player:tell("Authentication failed.")
endif
"Last modified by manta (#7165) on Thu May  4 00:19:56 2000 MDT."
.

0