--- kgsueme/bin/gtp-controller	2004/05/23 12:36:14	1.4
+++ kgsueme/bin/gtp-controller	2004/06/07 13:44:07	1.9
@@ -87,6 +87,11 @@
    print STDERR "login: $msg->{message}\n" if $verbose >= 2;
 
    $gtp->send ("kgs-login $msg->{message}");
+
+#   use KGS::Listener::User;
+#   $user = new KGS::Listener::User name => "tetra";
+#   $user->listen ($self->{conn});
+#   $user->game_record;
 }
 
 sub inject_msg_room {
@@ -126,7 +131,13 @@
    my ($self, $msg) = @_;
 
    $::lastnew = $msg->{channel};#d#
-   $gtp->send ("kgs-game-new $msg->{id} $msg->{channel}");
+   $gtp->send ("kgs-game-new $msg->{cid} $msg->{channel}");
+}
+
+sub inject_idle_warn {
+   my ($self, $msg) = @_;
+
+   $self->send ("idle_reset");
 }
 
 #############################################################################
@@ -162,9 +173,9 @@
       $gtp->send (sprintf "kgs-game-update %d %d %s %s %s %s %d %d %f %d %d %d %d %s",
                   $self->{channel}, $_->{channel},
                   $_->type_char,
-                  ::format_user $_->{user1},
-                  ::format_user $_->{user2},
-                  ::format_user $_->{user3},
+                  ::format_user $_->{black},
+                  ::format_user $_->{white},
+                  ::format_user $_->{owner},
                   $_->size,
                   $_->{handicap},
                   $_->{komi},
@@ -451,11 +462,11 @@
       $self->reply ($id, "");
 
    } elsif ($cmd =~ /^kgs-game-new-demo\s+(\d+)\s+(\d+)$/) {
-      my $tid = $conn->alloc_channel;
+      my $tid = $conn->alloc_clientid;
       $kgs->send (new_game =>
                   channel  => $1,
-                  id       => $tid,
-                  gametype => 0,
+                  cid      => $tid,
+                  type     => 0,
                   rules => {
                      ruleset  => 0,
                      size     => $2,
@@ -534,8 +545,8 @@
 kgs-login message
 kgs-room-update <rid> <name>          # update room info
 kgs-room-chat <rid> <user> <message>  # somebody says sth.
-kgs-game-update <rid> <gid> <type> <user1> <user2> \
-                <user3> <size> <handicap> <komi> <moves> \
+kgs-game-update <rid> <gid> <type> <black> <white> \
+                <owner> <size> <handicap> <komi> <moves> \
                 <flags> <observers> <saved> <notes>
 kgs-game-delete <rid> <gid>           # game removed
 kgs-user-update <rid> <user>          # user added/updated