… | |
… | |
130 | sub inject_new_game { |
130 | sub inject_new_game { |
131 | my ($self, $msg) = @_; |
131 | my ($self, $msg) = @_; |
132 | |
132 | |
133 | $::lastnew = $msg->{channel};#d# |
133 | $::lastnew = $msg->{channel};#d# |
134 | $gtp->send ("kgs-game-new $msg->{cid} $msg->{channel}"); |
134 | $gtp->send ("kgs-game-new $msg->{cid} $msg->{channel}"); |
|
|
135 | } |
|
|
136 | |
|
|
137 | sub inject_idle_warn { |
|
|
138 | my ($self, $msg) = @_; |
|
|
139 | |
|
|
140 | $self->send ("idle_reset"); |
135 | } |
141 | } |
136 | |
142 | |
137 | ############################################################################# |
143 | ############################################################################# |
138 | |
144 | |
139 | package room; |
145 | package room; |