… | |
… | |
85 | my ($self, $msg) = @_; |
85 | my ($self, $msg) = @_; |
86 | |
86 | |
87 | print STDERR "login: $msg->{message}\n" if $verbose >= 2; |
87 | print STDERR "login: $msg->{message}\n" if $verbose >= 2; |
88 | |
88 | |
89 | $gtp->send ("kgs-login $msg->{message}"); |
89 | $gtp->send ("kgs-login $msg->{message}"); |
|
|
90 | |
|
|
91 | # use KGS::Listener::User; |
|
|
92 | # $user = new KGS::Listener::User name => "tetra"; |
|
|
93 | # $user->listen ($self->{conn}); |
|
|
94 | # $user->game_record; |
90 | } |
95 | } |
91 | |
96 | |
92 | sub inject_msg_room { |
97 | sub inject_msg_room { |
93 | my ($self, $msg) = @_; |
98 | my ($self, $msg) = @_; |
94 | |
99 | |