ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/bin/gtp-controller
(Generate patch)

Comparing kgsueme/bin/gtp-controller (file contents):
Revision 1.6 by pcg, Sat May 29 06:38:24 2004 UTC vs.
Revision 1.9 by root, Mon Jun 7 13:44:07 2004 UTC

… …
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
92sub inject_msg_room { 97sub inject_msg_room {
93 my ($self, $msg) = @_; 98 my ($self, $msg) = @_;
94 99
… …
127 132
128 $::lastnew = $msg->{channel};#d# 133 $::lastnew = $msg->{channel};#d#
129 $gtp->send ("kgs-game-new $msg->{cid} $msg->{channel}"); 134 $gtp->send ("kgs-game-new $msg->{cid} $msg->{channel}");
130} 135}
131 136
137sub inject_idle_warn {
138 my ($self, $msg) = @_;
139
140 $self->send ("idle_reset");
141}
142
132############################################################################# 143#############################################################################
133 144
134package room; 145package room;
135 146
136use base KGS::Listener::Room; 147use base KGS::Listener::Room;
… …
160 171
161 for (@$add, @$upd) { 172 for (@$add, @$upd) {
162 $gtp->send (sprintf "kgs-game-update %d %d %s %s %s %s %d %d %f %d %d %d %d %s", 173 $gtp->send (sprintf "kgs-game-update %d %d %s %s %s %s %d %d %f %d %d %d %d %s",
163 $self->{channel}, $_->{channel}, 174 $self->{channel}, $_->{channel},
164 $_->type_char, 175 $_->type_char,
176 ::format_user $_->{black},
177 ::format_user $_->{white},
165 ::format_user $_->{user1}, 178 ::format_user $_->{owner},
166 ::format_user $_->{user2},
167 ::format_user $_->{user3},
168 $_->size, 179 $_->size,
169 $_->{handicap}, 180 $_->{handicap},
170 $_->{komi}, 181 $_->{komi},
171 $_->moves, 182 $_->moves,
172 $_->{flags}, 183 $_->{flags},
… …
532Command extension used by the controller: 543Command extension used by the controller:
533 544
534kgs-login message 545kgs-login message
535kgs-room-update <rid> <name> # update room info 546kgs-room-update <rid> <name> # update room info
536kgs-room-chat <rid> <user> <message> # somebody says sth. 547kgs-room-chat <rid> <user> <message> # somebody says sth.
537kgs-game-update <rid> <gid> <type> <user1> <user2> \ 548kgs-game-update <rid> <gid> <type> <black> <white> \
538 <user3> <size> <handicap> <komi> <moves> \ 549 <owner> <size> <handicap> <komi> <moves> \
539 <flags> <observers> <saved> <notes> 550 <flags> <observers> <saved> <notes>
540kgs-game-delete <rid> <gid> # game removed 551kgs-game-delete <rid> <gid> # game removed
541kgs-user-update <rid> <user> # user added/updated 552kgs-user-update <rid> <user> # user added/updated
542kgs-user-delete <rid> <user> # user removed 553kgs-user-delete <rid> <user> # user removed
543 554

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines