| … | |
… | |
| 55 | my $class = shift; |
55 | my $class = shift; |
| 56 | my $self = bless { @_ }, $class; |
56 | my $self = bless { @_ }, $class; |
| 57 | |
57 | |
| 58 | print STDERR "$0 version $VERSION connecting...\n" if $verbose; |
58 | print STDERR "$0 version $VERSION connecting...\n" if $verbose; |
| 59 | |
59 | |
| 60 | my $sock = new IO::Socket::INET PeerHost => $ENV{KGSHOST} || "kgs.kiseido.com", PeerPort => "2379" |
60 | my $sock = new IO::Socket::INET PeerHost => KGS::Protocol::KGSHOST, PeerPort => KGS::Protocol::KGSPORT |
| 61 | or die "connect: $!"; |
61 | or die "connect: $!"; |
| 62 | |
62 | |
| 63 | $sock->blocking (1); |
63 | $sock->blocking (1); |
| 64 | $conn->handshake ($sock); |
64 | $conn->handshake ($sock); |
| 65 | |
65 | |
