die "Socket to $serv: $!\n" unless defined $s;
$s->write("BEGIN AUTH REQUEST\n$repo\n$user\n$pass\nEND AUTH REQUEST\n")
or die "Write to $serv: $!\n";
$s->flush();my $rep = <$s>;
if($rep ne "I LOVE YOU\n") {
$rep="<unknown>" unless $rep;
die "AuthReply: $rep\n";
}-------
: tazenda 23 ; telnet cvs.sourceforge.net 2401 Trying 66.35.250.207... Connected to cvs.sourceforge.net. Escape character is '^]'. BEGIN AUTH REQUEST /cvsroot/bochs anonymous
END AUTH REQUEST cvs [pserver aborted]: descramble: unknown scrambling method Connection closed by foreign host.