| … | |
… | |
| 26 | |
26 | |
| 27 | while (my $l = $l->accept) { |
27 | while (my $l = $l->accept) { |
| 28 | if (fork == 0) { |
28 | if (fork == 0) { |
| 29 | printf TRACE "$$ + %d\n", int time; |
29 | printf TRACE "$$ + %d\n", int time; |
| 30 | |
30 | |
| 31 | my $r = new IO::Socket::INET PeerHost => "kgs.kiseido.com:2379"; |
31 | my $r = new IO::Socket::INET PeerHost => KGS::Protocol::KGSHOST, PeerPort => KGS::Protocol::KGSPORT; |
| 32 | $prot->handshake ($r); |
32 | $prot->handshake ($r); |
| 33 | { |
33 | { |
| 34 | sysread $l, my $buf, 1; |
34 | sysread $l, my $buf, 1; |
| 35 | $buf = chr 3; |
35 | $buf = chr 3; |
| 36 | syswrite $l, $buf, 1; |
36 | syswrite $l, $buf, 1; |
